trantu2012
Yêu THVBA
Chào các bạn,
File của mình cần ghi dữ liệu xuống sheet và cập nhật luôn trên listbox, mình làm một số bài thì dùng userform_initialize là được, nhưng bài này thì nó không tự động cập nhật dòng dữ liệu vào listbox mà nó chỉ cập nhật trên sheet và phải thoát ra rồi vào lại thì Listbox mới được cập nhật. Nhờ các bạn chỉ giáo thêm giúp mình, cảm ơn mọi người.
File của mình cần ghi dữ liệu xuống sheet và cập nhật luôn trên listbox, mình làm một số bài thì dùng userform_initialize là được, nhưng bài này thì nó không tự động cập nhật dòng dữ liệu vào listbox mà nó chỉ cập nhật trên sheet và phải thoát ra rồi vào lại thì Listbox mới được cập nhật. Nhờ các bạn chỉ giáo thêm giúp mình, cảm ơn mọi người.
Mã:
Private Sub cmd_ghi_Click()
Dim sohd, mamatbang As String
Dim ngaythue, ngaytra As Date
Dim tienthue As Long
Dim hople As Boolean
Dim dongtrongcuoi As Integer
Sheets("CT_HOPDONG").Select
dongtrongcuoi = Sheets("CT_HOPDONG").Range("A100").End(xlUp).Row + 1
hople = Kiem_tra_trung(th_sohopdong, dongtrongcuoi - 1)
If hople Then
sohd = th_sohopdong
mamatbang = cbo_ten_matbang
ngaythue = CDate(th_ngaythue)
ngaytra = CDate(th_ngaytra)
tienthue = Val(th_tienthue)
Range("A" & dongtrongcuoi).Value = sohd
Range("B" & dongtrongcuoi).Value = mamatbang
Range("C" & dongtrongcuoi).Value = ngaythue
Range("D" & dongtrongcuoi).Value = ngaytra
Range("E" & dongtrongcuoi).Value = tienthue
th_sohopdong = ""
th_ngaythue = ""
th_ngaytra = ""
th_tienthue = ""
th_sohopdong.SetFocus
Else
MsgBox ("So hop dong khong dung. Vui long nhap lai")
th_sohopdong = ""
th_sohopdong.SetFocus
End If
End Sub