domfootwear > 23-07-11, 02:41 PM
(23-07-11, 01:58 PM)quanghoasla Đã viết: Vẫn bị bạn ơi. bạn test thử xem sao. cái đó hiện thông báo lỗi như sau: Run-time error : 13 type mistmachLỗi trên là do bạn nhập chuổi vào InputBox, thôi thì khai báo cho nhập chuổi lẫn số.
Private Sub cmdInputBox_Click()
Dim strName 'As Integer
strName = InputBox("Tui lµ InputBox TiÕng ViÖt ®©y nÌ b¹n ¬i ", "InputBox TiÕng ViÖt ®©y nÌ")
If Len(strName) = 0 Then Exit Sub
MsgBox strName, vbInformation, "Xin chµo tÊt c¶ c¸c b¹n"
End Sub
quanghoasla > 23-07-11, 03:32 PM
domfootwear > 23-07-11, 04:39 PM
(23-07-11, 03:32 PM)quanghoasla Đã viết: vẫn chưa đúng ý mình bạn à. ý mình muốn nếu nhập kiểu số thì ok, còn nếu nhập kiểu text " dang ký tự chữ" thì không cho nhập bắt nhập đúng kiểu số. bạn có cách nào?Cho nó vào cái xử lý lỗi là xong, bạn thử nhé.
Private Sub cmdInputBox_Click()
Dim strName 'As Integer
strName = InputBox("Tui lµ InputBox TiÕng ViÖt ®©y nÌ b¹n ¬i ", "InputBox TiÕng ViÖt ®©y nÌ")
If Len(strName) = 0 Or Not IsNumeric(strName) Then
MsgBox "Ph¶i nhËp vµo InputBox lµ sè hoÆc kh«ng ®îc ®Ó trèng b¹n ¬i !"
Exit Sub
End If
MsgBox strName, vbInformation, "Xin chµo tÊt c¶ c¸c b¹n"
End Sub
quanghoasla > 23-07-11, 05:16 PM
hmanhha > 15-03-13, 11:45 AM