Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Ban chua nhap gi ca!", vbInformation, "Thông báo": TextBox1.SetFocus: Exit Sub
ElseIf Not IsNumeric(TextBox1) Then
MsgBox "Ban nhap la text!", vbInformation, "Thông báo"
TextBox1.SetFocus: TextBox1.SelStart = 0: TextBox1.SelLength = Len(TextBox1.Text): Exit Sub
Else
MsgBox "Ban nhap la number!", vbInformation, "Thông báo": Exit Sub
End If
End Sub
Bạn thử xem nhé
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) Then
MsgBox "Khong phai so"
TextBox1.SelStart = Len(TextBox1.Text) - 1: TextBox1.SelLength = 1
End If
End Sub
Function ktra(ByVal ma As Integer, ByVal dai As Integer) As Integer
If IsNumeric(Chr(ma)) Then ktra = ma: Exit Function
If ma = 45 And dai = 0 Then ktra = 45: Exit Function
If ma = 46 And dai > 0 Then ktra = 46: Exit Function
ktra = 0
End FunctionPrivate Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = ktra(KeyAscii, Len(Trim(TextBox1)))
End Sub
Còn 1 vấn đề nữa là khi nhập dấu chấm (vbKeyDecimal) 2 lần thì nó vẫn cho, có cách nào khắc phục là chỉ cho 1 cái thôi, 2 cái trở lên thì không cho không anh ?
minhthien đã viết:
dom đã viết:
Em đồng ý với sư phụ!
Ai quen tay gõ dấu phân cách hàng ngàn như thế nhỉ? Lão chết tiệt chưa hề thấy!
Tôi nghĩ bạn khó mà thực hiện được yêu cầu này lắm... vì khi bạn gõ thì chương trình gõ tiếng Việt (như Unikey) có can thiệp vào quá trình Hook bàn phím nên bị... "loạn"
Lở Control Panel trên 1 máy khác quy định dấu phân cách ngàn là dấu chấm thì làm sao mà nhân với 1 được chứ ---> Replace là hợp lý rồi (không chậm đâu)
Thử với số 1,234 xem (tức số 1234 đang định dạng có dấu phân cách ngàn là dấu phẩy)
Ah.... không! Bạn hiểu sai ý tôi rồi
Vâng! Thì đúng là vậy... nhưng tôi đặt tình huống thế này:
Private Sub UserForm_Initialize()
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With
End SubPrivate Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ((KeyAscii >= 32 And KeyAscii <= 45) Or _
(KeyAscii = 47) Or (KeyAscii >= 58)) Then
KeyAscii = 0
End If
If InStr(1, TextBox1.Text, ".") > 1 And KeyAscii = 46 Then
KeyAscii = 0
End If
End Sub
Vâng! Hướng đi là vậy, nhưng chú ý thế này
Góp thêm 1 cách nhập số trong textbox:
Private Sub Txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 44
If Len(Txt) = 0 Or InStr(1, Txt, ",") Then KeyAscii = 0
Case 48 To 57
If Txt = "0" And KeyAscii = 48 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select
End SubPrivate Sub CommandButton1_Click()
Dim num As Double, nguyen As String, thapphan As String
If Right(Txt, 1) = "," Then Txt = Left(Txt, Len(Txt) - 1)
If InStr(1, Txt, ",") Then
nguyen = Left(Txt, InStr(1, Txt, ",") - 1)
thapphan = Mid(Txt, InStr(1, Txt, ",") + 1)
num = nguyen + thapphan / (10 ^ Len(thapphan))
Else
num = Txt
End If
[a1] = num
End SubChào domfootwear
[LEFT][B][COLOR=black][FONT=Courier New] With Application[/FONT][/COLOR][/B][/LEFT]
[B][COLOR=black][FONT=Courier New] .UseSystemSeparators = True[/FONT][/COLOR][/B]
[LEFT][B][COLOR=black][FONT=Courier New] End With[/FONT][/COLOR][/B][/LEFT]Đây không phải là cách "TRẢ VỀ NGUYÊN GỐC" ---> Bạn làm sao biết trước đó người ta set UserSystemSeparators là TRUE hay FALSE
Không biết code cua anh bị sao mà cả hai máy đều bị lỗi Run time 438.Nó bị lỗi trong 2 truòng hợp là không nhập gì,vẫn hiện thông báo.Khi nhấn OK để tat hộp thoại thì bị lỗi.Nó cũng tương tụ như nhập TEXT.Còn số thì không có hề hấn gì.Anh xem lại thử
Public m_DecimalSeparator As String
Public m_ThousandsSeparator As String
Public m_UseSys As Boolean
[COLOR=Red]'------------------------------------------------------------------[/COLOR]
Sub Set_User()
With Application
m_UseSys = .UseSystemSeparators
m_DecimalSeparator = .DecimalSeparator
m_ThousandsSeparator = .ThousandsSeparator
.UseSystemSeparators = False
.DecimalSeparator = ","
.ThousandsSeparator = "."
End With
End Sub
[COLOR=Red]'------------------------------------------------------------------
[/COLOR]Sub Set_General()
With Application
.UseSystemSeparators = False
.DecimalSeparator = m_DecimalSeparator
.ThousandsSeparator = m_ThousandsSeparator
.UseSystemSeparators = m_UseSys
End With
End Sub
