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
