Cách thì có, nhưng bạn sẽ không được giúp đỡ vì chẳng có ai dám tự nhận mình là Cao nhân đâu. Muốn giúp thì bạn làm 2 việc, thứ nhất sửa lại chổ Cao nhân, thứ hai phải có file mẫu và dữ liệu mẫu, sau đó mô tả chi tiết mong muốn của mình.
Phải gọi người làm dc là cao nhân, chứ những bạn như mình mới tập tành vba thì ko thể làm cao nhân dc.
Vậy giờ bạn muốn sao? Muốn vừa mở form và vừa nhập liệu được luôn? Mỗi lần nhập liệu xong, listbox tự cập nhật?
mở form hay nhập liệu thì ok hết rồi, chỉ là khi mình nhập mới 1 dòng thì trên list box nó ko update lên cho mình nhin thấy dc, và muốn xem giá trị mới đó trên listbox thì phải reset lại form
Chừa hỉnh dung được, bạn quay phim màn hình xem thử. Bởi tôi test trên máy tôi nó cập nhật bình thường
Private Sub UserForm_Initialize()
Dim endR As Long
cmd_SuaCSDL.Enabled = False
cmd_XoaCSDL.Enabled = False
endR = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
arr = Sheet1.Range("B2:I" & endR)
With ListBox_CSDL
.ColumnCount = 8
.ColumnWidths = "80,250,70,150,50,50,50,50"
.BoundColumn = 1
.TextColumn = 2
.List = arr
End With
End SubÝ em là lúc mình nhập dữ liệu xong, kicks vào nút OK, thì trên listbox sẽ hiện thị luôn dữ liệu mình vừa nhập đó, và có thể thì làm cho list box đó mặc định hiện thì trường dữ liệu ở phía cuối của bảng csdl ý ạ?
mình cho vào sự kiện change hả bác?
cho vào sự kiện khi bấm nút ok ấy, còn để cho nó chọn dòng nào thì dùng ListIndex.
dữ liệu cũ thì có, nhưng dữ liệu mình vừa nhập thêm vào thì ko thấy nó sau khi kích nút OK, muốn nhìn thấy dữ liệu mới phải tắt mở lại form
em làm việc chủ yếu tự động và dùng sub mà, tại nhiều lúc mình cần phải vào csdl để chỉnh sửa nội dung nên gán thêm cho vào sự kiện selectionchange thôi bác
UserForm_InitializeListBox_CSDL.ListIndex = ListBox_CSDL.ListCount - 1
Đúng là không cấm, nhưng nên khuyên người hỏi tránh từ đó - vì đốt đuốc tìm cao nhân đúng nghĩa hơi khó ở đây
thanks bác! đã chọn dc dòng cuối để xem, còn làm mới listbox để mình xem luôn giá trị sau khi mình nhập vào thì e làm chưa dc, bác xem giúp em.
Giải quyết xong rồi bác!. Cao nhân đây chứ còn đâu nữa.
Cao nhân gì. Dễ như ăn kẹo (thịt) mút
vậy bác rảnh làm em cái nút sửa và xóa dữ liệu ở form_IEport với! (sửa và xóa ở bảng CSDL bác nhé. THnask bácCao nhân gì. Dễ như ăn kẹo (thịt) mút
ở comment sau em nói rõ rồi còn gì, form: frm_IEport, sheets CSDL
Private Sub cmd_XoaCSDL_Click()
With ListBox_CSDL
If .ListIndex > -1 Then
Sheet1.Range("B" & .ListIndex + 3).Resize(, 8).Delete xlUp
.RemoveItem .ListIndex
End If
End With
End Sub
Private Sub load_listbox()
Dim lastRow As Long
lastRow = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
If lastRow > 2 Then ListBox_CSDL.List = Sheet1.Range("B2:I" & lastRow).Value
End SubPrivate Sub cmd_SuaCSDL_Click()
Dim curr_row As Long
If ListBox_CSDL.ListIndex = -1 Then Exit Sub
If Not ((txt_ID.Text <> "") And (txt_Name.Text <> "") And IsDate(txt_Date.Text) And (txt_Content.Text <> "") And (txt_HD.Text <> "") And IsNumeric(txt_Quantity.Value)) Then
MsgBox "Check Data Again! Please"
Exit Sub
End If
curr_row = ListBox_CSDL.ListIndex + 3
With Sheet1
.Range("B" & curr_row) = txt_ID.Text
.Range("C" & curr_row) = txt_Name.Text
.Range("D" & curr_row) = CDate(txt_Date.Text)
.Range("E" & curr_row) = txt_Content.Text
.Range("F" & curr_row) = txt_HD.Text
If Option_Import.Value Then
.Range("G" & curr_row) = txt_Quantity.Text
Else
.Range("H" & curr_row) = txt_Quantity.Text
End If
With ListBox_CSDL
.List(.ListIndex, 0) = txt_ID.Value
.List(.ListIndex, 1) = txt_Name.Value
.List(.ListIndex, 2) = txt_Date.Value
.List(.ListIndex, 3) = txt_Content.Value
.List(.ListIndex, 4) = txt_HD.Value
.List(.ListIndex, 5) = .Range("G" & curr_row)
.List(.ListIndex, 6) = .Range("H" & curr_row)
End With
ThisWorkbook.Save
MsgBox "Import Data Succesfull!"
If Not (Chechbox_Ngayhientai.Value Or CheckBox_ChuyenDS1.Value Or CheckBox_XuatLV.Value Or CheckBox_ChuyenNTL.Value) Then
txt_Date.Text = ""
txt_Content.Text = ""
End If
txt_ID.Text = ""
txt_Name.Text = ""
txt_HD.Text = ""
txt_Quantity.Text = ""
txt_ID.SetFocus
End With
End Sub
Private Sub ListBox_CSDL_Click()
With ListBox_CSDL
txt_ID.Value = .List(.ListIndex, 0)
txt_Name.Value = .List(.ListIndex, 1)
txt_Date.Value = .List(.ListIndex, 2)
txt_Content.Value = .List(.ListIndex, 3)
txt_HD.Value = .List(.ListIndex, 4)
End With
End Sub
Private Sub UserForm_Initialize()
Dim endR As Long
cmd_SuaCSDL.Enabled = False
cmd_XoaCSDL.Enabled = False
With ListBox_CSDL
.ColumnCount = 8
.ColumnWidths = "80,250,70,150,50,50,50,50"
' .BoundColumn = 1
' .TextColumn = 2
End With
load_listbox
End SubKhó vãi nước ra mà anh bảo là dễ, đúng là cao nhân có khác.Cao nhân gì. Dễ như ăn kẹo (thịt) mút
Đó cũng là một dạng, "cao nhân" là người cao người lớn, ai cứ qua tuổi dậy thì đều chả cao. Đây nè anh batman1 đấy, chả nhẽ anh ý lại chưa qua tuổi dậy thì sao!!!
Có người dậy thì sớm, có người muộn mà.
Nhiều người không có thói quen nói rõ ràng. Cứ bắt người khác phải phân tích code của mình để hiểu ý. Mà trong trường hợp này vẫn chưa có code Xóa, dù là code sai, để mà phân tích.
Nhưng mà anh dậy thì thành công rồi chứ gì?
Cũng gian nan lắm nhưng thành công rồi.
