Vậy thì bắt lỗi ngay sự kiện AfterUpdate của các controls, nhập không phải ngày, không phải số, chi chạy code nhập liệu bắt lỗi ô trống. Nhưng nhiều khi người ta không cần nhập đủ thông tin anh à... Thôi thì tùy người sử dụng vậy.
Private Sub DTPicker_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = 13 Then
KeyCode = 0
SendKeys ("{TAB}")
End If
End Sub
Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox4 = Format(Me.TextBox4, "#,##0")
End SubEm chạy không lỗi anh ơi. không biết có phải do chạy bằng Excel2010?
Private Sub TextBox4_change()
Dim DecSpe, ThoSpe
DecSpe = Application.DecimalSeparator
ThoSpe = Application.ThousandsSeparator
If InStr(1, Me.TextBox4, DecSpe) Then
Me.TextBox4 = Format(Me.TextBox4, "#" & ThoSpe & "###" & DecSpe & "########")
Else
Me.TextBox4 = Format(Me.TextBox4, "#" & ThoSpe & "##0")
End If
End Sub
Sub KiemSo()
If TypeName(Me.ActiveControl) = "TextBox" Then
With Me.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString And .Value <> "-" Then
Beep
MsgBox "Xin loi, ban phai nhap so"
.Value = vbNullString
End If
End With
End If
End SubPrivate Sub TextBox4_Change()
KiemSo
End SubPrivate Sub TextBox4_AfterUpdate()
TextBox4.Value = Format(TextBox4.Value, "#,##0.00")
End SubVấn đề là Tùng đã nhập cái gì vào TB4 đó. và báo lỗi thế nào.
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9"), Asc("-")
Case Asc(".")
If InStr(1, Me.TextBox4.Text, ".") > 0 Then
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End SubPrivate Sub TextBox4_KeyPress(KeyAscii As Integer)
If InStr("1234567890" + Chr$(vbKeyBack), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End SubIf IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
Để xem chú Tùng "mần ăn" làm sao với "đứa con đầu lòng" đây!
Hai Lúa Miền Tây đã viết:
Sub TenConTrol()
Dim ctr As Control
For Each ctr In NHAPLIEU.Controls
If TypeOf ctr Is MSForms.TextBox Or TypeOf ctr Is MSForms.ComboBox Then
ctr.Value = ""
End If
Next
End SubLần đầu "làm chuyện ấy" như thế là ngon rồi
.Range("E" & LastRowData) = TextBox4TextBox4 = Format(TextBox4, "#,##0")Tôi thử dùng for each trên để gán dữ liệu vào 1Arr trước khi gán ="".
Option Explicit
Dim i&, iPos&, LastRow&
Dim sTxt$
Dim Dic As Object
Dim ArrTmp, Arr(1 To 5)
Private Sub ComboNCC_Enter()
SendKeys ("%{DOWN}")
End Sub
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "dd/mm/yyyy")
End Sub
Private Sub UserForm_Initialize()
ArrTmp = Array("TextBox1", "ComboNCC", "TextBox3", "TextBox5", "TextBox4")
Set Dic = CreateObject("Scripting.Dictionary")
For i = LBound(ArrTmp) To UBound(ArrTmp)
Dic.Add ArrTmp(i), i + 1
Next i
LastRow = Sheet2.Range("A65000").End(xlUp).Row
ComboNCC.RowSource = "'" & Sheet2.Name & "'!A2:b" & LastRow
End Sub
Private Sub ComboNCC_afterUpdate()
TextBox3 = ComboNCC.Column(1)
End Sub
Private Sub TextBox4_Change()
TextBox4 = Format(TextBox4, "#,##0")
End Sub
Private Sub CommandButton1_Click()
LastRow = Sheet3.Range("a50000").End(xlUp).Row + 1
LayConTrol
With Sheets("Data")
.Cells(LastRow, 1).Resize(, 5) = Arr
End With
Erase Arr
End Sub
Sub LayConTrol()
i = 0
Dim Ctr As Control
For Each Ctr In NHAPLIEU.Controls
If TypeOf Ctr Is MSForms.TextBox Or TypeOf Ctr Is MSForms.ComboBox Then
i = i + 1
sTxt = Ctr.Name
iPos = Dic.Item(sTxt)
Arr(iPos) = Ctr.Value
Ctr.Value = ""
End If
Next
Arr(5) = Arr(5) * 1
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
