Tự động mở rộng ListFillRange của Listbox trong sheet Excel (1 người xem)

[ongke0711]

Chào các bạn,

Nhờ các bạn hỗ trợ giùm cách làm để giải quyết vấn đề như tiêu đề bài post.
Tôi có tạo 1 Listbox ("lstMaTruong") ngay trên sheet của Excel (sheet: "Nhap DS Thi Sinh"). Listbox này hiển thị thông tin [Mã trường], [Tên trường] và lấy thông tin từ sheet "REF". Tôi có nhập thủ công vào thuộc tính "ListFillRange" của listbox là: REF!$K$3:$M$64.
Bây giờ có nhu cầu là khi tôi cập nhật thêm các dòng mới kế tiếp bên dưới cái range (K3:M64) ví dụ dòng K65 thì cái Listbox cũng tự cập nhật cái ListFillRange thành (REF!$K$3:$M$65).
Tôi cần làm file này trên nền Excel 2003 nhé các bạn.
Các bạn hướng dẫn cách làm giùm nhé. File mẫu đính kèm bên dưới.
Cảm ơn nhiều.


File demo NhapDS.xls

 

[thuyyeu99]

Chào các bạn,

Nhờ các bạn hỗ trợ giùm cách làm để giải quyết vấn đề như tiêu đề bài post.
Tôi có tạo 1 Listbox ("lstMaTruong") ngay trên sheet của Excel (sheet: "Nhap DS Thi Sinh"). Listbox này hiển thị thông tin [Mã trường], [Tên trường] và lấy thông tin từ sheet "REF". Tôi có nhập thủ công vào thuộc tính "ListFillRange" của listbox là: REF!$K$3:$M$64.
Bây giờ có nhu cầu là khi tôi cập nhật thêm các dòng mới kế tiếp bên dưới cái range (K3:M64) ví dụ dòng K65 thì cái Listbox cũng tự cập nhật cái ListFillRange thành (REF!$K$3:$M$65).
Tôi cần làm file này trên nền Excel 2003 nhé các bạn.
Các bạn hướng dẫn cách làm giùm nhé. File mẫu đính kèm bên dưới.
Cảm ơn nhiều.


File demo NhapDS.xls

Mình nhớ trong diễn đàn có cách đặt name để lấy dòng cuối đó, ban kiếm thử, tự mình dang sài dtdd không kiếm giúp bạn dược

 

[ongke0711]

Mình nhớ trong diễn đàn có cách đặt name để lấy dòng cuối đó, ban kiếm thử, tự mình dang sài dtdd không kiếm giúp bạn dược

vấn đề là mình không rành Excel lắm nên không biết từ chuyên môn để diễn giải thủ thuật đó như thế nào để tìm cho nhanh. Hơn nữa là cũng chưa biết khai báo, code trong workbook, worksheet như thế nào nên có khi tìm ra cách lấy dòng cuối mà không biết đưa vô code excel như thế nào để chạy được.
Vì cũng đang cần xử lý cho nhanh nên nhờ các bạn giúp đó mà.
Code mình đưa vô file nhưng nó không chạy được như bên dưới:

Private Sub Worksheet_Activate()
    Dim lstBox As ListBox
    Set lstBox = ActiveSheet.ListBoxes("lstMaTruong")
    lstBox.ListFillRange = "REF!K3:M" & Range("M" & Rows.Count).End(xlUp).Row
End Sub

Báo lỗi:

 

[thuyyeu99]

vấn đề là mình không rành Excel lắm nên không biết từ chuyên môn để diễn giải thủ thuật đó như thế nào để tìm cho nhanh. Hơn nữa là cũng chưa biết khai báo, code trong workbook, worksheet như thế nào nên có khi tìm ra cách lấy dòng cuối mà không biết đưa vô code excel như thế nào để chạy được.
Vì cũng đang cần xử lý cho nhanh nên nhờ các bạn giúp đó mà.
Code mình đưa vô file nhưng nó không chạy được như bên dưới:

Private Sub Worksheet_Activate()
    Dim lstBox As ListBox
    Set lstBox = ActiveSheet.ListBoxes("lstMaTruong")
    lstBox.ListFillRange = "REF!K3:M" & Range("M" & Rows.Count).End(xlUp).Row
End Sub

trời tưởng bạn dùng name, còn code này bạn nhấn Alt + F11 rồi click vào Sheet có list box dán vô

 

[thuyyeu99]

vấn đề là mình không rành Excel lắm nên không biết từ chuyên môn để diễn giải thủ thuật đó như thế nào để tìm cho nhanh. Hơn nữa là cũng chưa biết khai báo, code trong workbook, worksheet như thế nào nên có khi tìm ra cách lấy dòng cuối mà không biết đưa vô code excel như thế nào để chạy được.
Vì cũng đang cần xử lý cho nhanh nên nhờ các bạn giúp đó mà.
Code mình đưa vô file nhưng nó không chạy được như bên dưới:

Private Sub Worksheet_Activate()
    Dim lstBox As ListBox
    Set lstBox = ActiveSheet.ListBoxes("lstMaTruong")
    lstBox.ListFillRange = "REF!K3:M" & Range("M" & Rows.Count).End(xlUp).Row
End Sub

Báo lỗi:

Giờ mới hiểu ý bạn hỏi. Bạn thử xem sao

Sheet1.Shapes("lstMaTruong").OLEFormat.Object.ListFillRange = "REF!K3:M" & Sheet2.Range("K" & Rows.Count).End(xlUp).Row

 

[ongke0711]

Giờ mới hiểu ý bạn hỏi. Bạn thử xem sao

Sheet1.Shapes("lstMaTruong").OLEFormat.Object.ListFillRange = "REF!K3:M" & Sheet2.Range("K" & Rows.Count).End(xlUp).Row

Đã chạy được rồi bạn. Cảm ơn nhiều nhé.