Cách Refresh nội dung cho Combobox trên Form trong VBA

[mesavn04]

Chào các anh chị, em là dân kế tóan nhưng cũng hơi mê lập trình. Vừa rồi em có làm cái Form nhập liệu trong VBA, trên đó có gắn 1 Combobox tìm kiếm, lấy dữ liệu là một vùng xác định trên bảng tính Excel (Em không đặt tên cho vùng mà gán trực tiếp giá trị khối cell vào Rowsource của combo).Bảng tính gồm nhiều sheet, khi em chọn qua sheet khác thì dữ liệu trong combo vẫn năm trên sheet cũ. Anh chị cho em hỏi có cách nào làm mới nội dung của combo cho phù hợp với sheet mình mới chọn lại không ạ? Em xin cảm ơn trước. Mong các cao thủ chỉ dẫn nhanh nhanh với vì em cần gấp lắm.

 

[ndu96081631]

Chào các anh chị, em là dân kế tóan nhưng cũng hơi mê lập trình. Vừa rồi em có làm cái Form nhập liệu trong VBA, trên đó có gắn 1 Combobox tìm kiếm, lấy dữ liệu là một vùng xác định trên bảng tính Excel (Em không đặt tên cho vùng mà gán trực tiếp giá trị khối cell vào Rowsource của combo).Bảng tính gồm nhiều sheet, khi em chọn qua sheet khác thì dữ liệu trong combo vẫn năm trên sheet cũ. Anh chị cho em hỏi có cách nào làm mới nội dung của combo cho phù hợp với sheet mình mới chọn lại không ạ? Em xin cảm ơn trước. Mong các cao thủ chỉ dẫn nhanh nhanh với vì em cần gấp lắm.

Đương nhiên được nhưng bạn phải cho file giả lập lên đây để làm chứ

 

[Hoàng Trọng Nghĩa]

Tôi thử gửi file này lên xem có đúng ý bạn không nhé!

Cũng đơn giản với 1 form, 1 combobox, 3 commandbutton, thủ tục như sau:

Private Sub UserForm_Initialize()
    Call NapList
End Sub

Sub NapList()
    With ActiveSheet
        ComboBox1.List() = Range(.[A1], .[A65536].End(xlUp)).Value
    End With
End Sub

Private Sub CommandButton1_Click()
    Sheet1.Select
    Call NapList
End Sub

Private Sub CommandButton2_Click()
    Sheet2.Select
    Call NapList
End Sub

Private Sub CommandButton3_Click()
    Sheet3.Select
    Call NapList
End Sub

 

[mesavn04]

cảm ơn anh nhiều ạ, đúng ý em quá rồi còn gì
thế mà em nghĩ mãi không ra, tại em chỉ tự học thông qua mấy cuốn giáo trình của thầy Ông Văn Thông nên không biết mấy câu lệnh này
Em có thể biết mail của anh không ạ? (để em tiên jhỏi mấy vấn đề ý mà)
mail của em nè: mesa.songvuong@gmail.com
rất mong nhận được hồi âm của anh ạ

 

[Hoàng Trọng Nghĩa]

cảm ơn anh nhiều ạ, đúng ý em quá rồi còn gì
thế mà em nghĩ mãi không ra, tại em chỉ tự học thông qua mấy cuốn giáo trình của thầy Ông Văn Thông nên không biết mấy câu lệnh này
Em có thể biết mail của anh không ạ? (để em tiên jhỏi mấy vấn đề ý mà)
mail của em nè: mesa.songvuong@gmail.com
rất mong nhận được hồi âm của anh ạ

Thì dưới chữ ký đó! Có mail và số đt luôn đó!

 

[mesavn04]

Thì dưới chữ ký đó! Có mail và số đt luôn đó!

chào anh! hôm trước em có nhờ anh chỉ hộ cách refresh dữ
liệu cho combobox. bây giờ em muốn nó tự động xuất hiện form mỗi khi mở
excel thì lại không được (hình như câu lệnh .show trong macro auto_open() và thủ tục mở form chống
nhau
em đã thử nhưng không có cách nào khác
anh giúp em xem lại được không ạ?
với lại nó có rất nhiều workshet, dùng mấy nút lệnh có vẻ không được hợp
lắm, em muốn khi chọn thứ và tiết xong nó phải nhảy sang sheet vừa chọn và
dữ liệu được refresh
em có gởi kèm theo CSDL của em, mong anh xem giúp và trả lời em với ạ
đây là sản phẩm dầu tay của em nên em không muốn bỏ đi, tiếc lắm
cảm ơn anh trước ạ