Private Sub CmdNhapDL_Click()
Dim W As Integer, Rws As Long
Dim ShName As String: Dim Sh As Worksheet
For W = 3 To 4
ShName = "VN" & CStr(W)
Set Sh = ThisWorkbook.Worksheets(ShName)
Rws = Sh.[B1].End(xlDown).Row + 1
Sh.Cells(Rws, "A").Value = Me!tbMaCV.Value
Sh.Cells(Rws, "B").Value = Me!tbNgayCV.Value
Sh.Cells(Rws, "C").Value = Me!tbHTen.Text
Sh.Cells(Rws, "D").Value = Me!tbTDVi.Text
Sh.Cells(Rws, "E").Value = Me!tbNDung.Text
Sh.Cells(Rws, "F").Value = Me!tbGiaTri.Value
Next W
End Sub
em cám ơn anh rất nhiều, em đã làm được ý 1 theo code của anh(1): Bạn tham khảo cái này & tự chuyển hóa đi nha:
PHP:Private Sub CmdNhapDL_Click() Dim W As Integer, Rws As Long Dim ShName As String: Dim Sh As Worksheet For W = 3 To 4 ShName = "VN" & CStr(W) Set Sh = ThisWorkbook.Worksheets(ShName) Rws = Sh.[B1].End(xlDown).Row + 1 Sh.Cells(Rws, "A").Value = Me!tbMaCV.Value Sh.Cells(Rws, "B").Value = Me!tbNgayCV.Value Sh.Cells(Rws, "C").Value = Me!tbHTen.Text Sh.Cells(Rws, "D").Value = Me!tbTDVi.Text Sh.Cells(Rws, "E").Value = Me!tbNDung.Text Sh.Cells(Rws, "F").Value = Me!tbGiaTri.Value Next W End Sub
e có thể lọc 1 lúc theo các cột luôn ạ, em có file ví dụ trước đây đã từng làm để a hiểuBạn đang cần lọc dữ liệu từ trang 'VN3'; Nhưng ta cần xác định lọc theo những trường/cột nào
Ví dụ nếu lọc theo tháng công văn (CV) đến, hay lọc theo 'Tên người làm' hoặc theo 'Mã CV'?
Cũng có thể lọc theo 2 trường 1 lúc, nhưng phải là những trường có tính đặt trưng nhất mới được;
Chờ thông tin từ bạn.
buồn của emThú thật với bạn là mình không kham nổi chuyện này rồi.
Bạn cần chờ những bạn khác giúp tiếp đi vậy!
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2