Xin trợ giúp về Combobox trong form của VBA excel

[dongkisot84]

Excel thì e biết tàm tạm, giờ e mới đang học VBA. Em còn mới tập tành nên còn nhiều bỡ ngỡ xin nhờ các bác giúp đỡ
Em có file ở dưới, có dùng chức năng data validation khá ổn, nhưng khi chuyển sang dùng form VBA thì em chưa biết cách
Ngâm cứu trên diễn đàn chưa tìm thấy bài phù hợp
Vậy nhờ các bác xử lý giúp em để Combobox trong form cũng list xuống được danh sách KH quản lý như cột G trong sheet1
Xin cảm ơn

 

[dongkisot84]

Hi, đề tài của e không khả thi hay sao mà ko có bác nào giúp e vậy, nếu ko đc để e tìm cách khác

 

[be_09]

Hi, đề tài của e không khả thi hay sao mà ko có bác nào giúp e vậy, nếu ko đc để e tìm cách khác

Không phải là không khả thi, mà dễ quá nên đôi khi lại ngại trả lời, bạn thử cách này nhé:

- Vùng C2:C13 bạn đã đặt Name là KH.

- Nhấn Alt+F11 vào cửa sổ VBE, mở Form và Click vào ComboBox2 (khách hàng), xong vào cửa sổ Properties tìm mục Rowsource bên phải nó là trống bạn gõ KH vào rồi mở Form xem thử.

 

[dongkisot84]

Nếu đơn giản vậy e nhờ làm gì. Trong excel em dùng data validition có thể tạo list danh sách khách hàng mà Cán bộ theo dõi (chỉ hiện đúng số Kh mà cán bộ đó theo dõi thôi nhé)
Chứ còn cách của bác be09 thì nó hiện cả danh sách khách hàng thì không đúng yêu cầu của e

 

[viehoai]

Excel thì e biết tàm tạm, giờ e mới đang học VBA. Em còn mới tập tành nên còn nhiều bỡ ngỡ xin nhờ các bác giúp đỡ
Em có file ở dưới, có dùng chức năng data validation khá ổn, nhưng khi chuyển sang dùng form VBA thì em chưa biết cách
Ngâm cứu trên diễn đàn chưa tìm thấy bài phù hợp
Vậy nhờ các bác xử lý giúp em để Combobox trong form cũng list xuống được danh sách KH quản lý như cột G trong sheet1
Xin cảm ơn

Ý bạn như thế này phải không

 

[dongkisot84]

Quá chuẩn
Cảm ơn bác nhé, em tìm hàm này lâu nay mà ko ra

 

[viehoai]

Quá chuẩn
Cảm ơn bác nhé, em tìm hàm này lâu nay mà ko ra

Đây nè Bạn lưu đường link lại khi cần lấy ra dùng
Thực ra code của Form dùng như thế này là được (không dùng hàm Filter2DArray())
[GPECODE=vb]Private sArr()
Private Sub ComboBox1_Change()
Dim Arr()
Me.ComboBox2.Clear
For i = 1 To UBound(sArr)
If sArr(i, 1) = Me.ComboBox1.Value Then
Me.ComboBox2.AddItem sArr(i, 2)
End If
Next
End Sub
Private Sub UserForm_Initialize()
sArr = Sheet1.Range("B2:C13").Value
End Sub[/GPECODE]