cần xin code vba cho bảng nhập liệu mong các cao thủ trợ giúp

[Deleted member 547]

Dim LastRow As Long
'L?y giá tr? dòng cùng cu?i c?t A
LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
'Combobox1 s? l?y t? A1 ??n A:LastRow (Dòng cu?i c?t A)
ComboBox1.RowSource = Range("A1:A" & LastRow).Address

anh ơi em muốn dùng cho 1 sheet cụ thể thì phải đổi tên những phần nào ạ . anh chú thích cho em với . vì userform của em có tận 3 cái combobox lận, cảm ơn anh chỉ dạy ạ

 

[vothanhthu]

anh ơi em muốn dùng cho 1 sheet cụ thể thì phải đổi tên những phần nào ạ . anh chú thích cho em với . vì userform của em có tận 3 cái combobox lận, cảm ơn anh chỉ dạy ạ

Nếu muốn dùng cho 1 Sheet cụ thể, ví dụ là Sheet1 (Tên Sheet)

Chổ ActiveSheet sẽ sửa lại thành Sheets("Sheet1")

LastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row

Phía trước Range thêm Sheets("Sheet1").

ComboBox1.RowSource = Sheets("Sheet1").Range("A1:A" & LastRow).Address

Hoặc đơn giản hơn bạn gôm vào cho dễ xử lý:

With Sheets("Sheet1")
    .Cells(.Rows.Count, "A").End(xlUp).Row
    ComboBox1.RowSource = .Range("A1:A" & LastRow).Address
End With

Lúc này code của bạn sẽ chỉ cần thay tên Sheet 1 lần là được, dễ sửa và đơn giản hơn rất nhiều