Liên kết combo box & xuất dữ liệu ra label (1 người xem)

[balano]

Xin chào anh chị trong diễn đàn,

Em cần tạo form trong excel và muốn viết code để thực hiện yêu cầu như tiêu đề.
Có file đính kèm bên dưới, rất mong anh chị hỗ trợ.

Chân thành cảm ơn!

 

[doveandrose]

lý do sao cái loại A mã trung = 90 lại không được hiện khi mã phân loại = A ?

 

[balano]

Sorry, do trong lúc gấp nên thiếu sót, có cả 90 luôn ạ!

 

[balano]

&&&%$r

 

[Let'GâuGâu]

Xin chào anh chị trong diễn đàn,

Em cần tạo form trong excel và muốn viết code để thực hiện yêu cầu như tiêu đề.
Có file đính kèm bên dưới, rất mong anh chị hỗ trợ.

Chân thành cảm ơn!

trườc tiên hãy vào properties của combobox2 xoá cái rowsource

Private Sub ComboBox1_Change()
Dim rng As Range
Set rng = Range([d4], [d4].End(xlDown))
r = Application.Match(ComboBox1.Value, rng, 0)
Nu_r = Application.CountIf(rng, ComboBox1.Value)
Me.ComboBox2.List = [e3].Offset(r).Resize(Nu_r, 2).Value
Me.lbCtphanloai.Caption = Me.ComboBox1.Column(1)
End Sub

Private Sub ComboBox2_Change()
Me.lbPltrung.Caption = Me.ComboBox2.Column(1)
End Sub

 

[balano]

Work perfect, cảm ơn Let'GâuGâu nhiều nhé!