code nhập liệu

[yome]

Anh/chị GPE!
Anh/chị ơi, em có 1 file này nhờ các anh/chị viết dùm em code để Form nhập liệu này hoạt động.
Câu hỏi cụ thể em đã ghi trong file đính kèm.
Cám ơn anh/chị nhiều!

 

[Hai Lúa Miền Tây]

Anh/chị GPE!
Anh/chị ơi, em có 1 file này nhờ các anh/chị viết dùm em code để Form nhập liệu này hoạt động.
Câu hỏi cụ thể em đã ghi trong file đính kèm.
Cám ơn anh/chị nhiều!

Bạn chép code sau vào form nhé. (Có thể sửa code lại gọn hơn = For ... Nex...)

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
  If Trim(Me.TextBox2.Value) = "" Then
  Me.TextBox2.SetFocus
  MsgBox "Ho va ten khong duoc de trong ", vbCritical + vbOKOnly
  Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

 

[yome]

Bạn chép code sau vào form nhé. (Có thể sửa code lại gọn hơn = For ... Nex...)

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
  If Trim(Me.TextBox2.Value) = "" Then
  Me.TextBox2.SetFocus
  MsgBox "Ho va ten khong duoc de trong ", vbCritical + vbOKOnly
  Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Me.TextBox3.Value
ws.Cells(iRow, 4).Value = Me.TextBox4.Value
ws.Cells(iRow, 5).Value = Me.TextBox5.Value
ws.Cells(iRow, 6).Value = Me.TextBox6.Value
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Anh ơi, em muốn ô lương khi nhập vào có luốn định dạng phân biệt hàng nghìn, trăm, ..
Hoặc mục STT em muốn sửa là ngày.
anh sử dùm em với nhé!

 

[Hai Lúa Miền Tây]

Anh ơi, em muốn ô lương khi nhập vào có luốn định dạng phân biệt hàng nghìn, trăm, ..
Hoặc mục STT em muốn sửa là ngày.
anh sử dùm em với nhé!

STT chỉnh thành ngày thì bạn cứ chỉnh thôi, nhập liệu thoại mái, không ảnh hưởng gì hết.
Còn việc định dạng cho nó đẹp thì vào bảng tính định nguyên cột nó là được.
Còn muốn định dạng theo kiểu text thì dùng Format(TenTextBox,"KieuDinhDang")

 

[yome]

Anh sửa cụ thể dùm em nhé!?

 

[Hai Lúa Miền Tây]

Anh sửa cụ thể dùm em nhé!?

Bạn xem file đính kèm nhe