Hỗ trợ về combobox phụ thuộc

Chia sẻ bởi:hands

★★★★★

‹ #Post2ZaloPro – Gửi hàng loạt tin nhắn,... Copy ô lẻ tẻ và thực hiện... ›

Quảng cáo

Em cảm ơn ạ

Em chào các anh (chị) trong diễn đàn, như tiêu đề e muốn nhờ các anh (chị) giúp cho về vấn đề 2 combobox phụ thuộc nhau. Em có tải file mẫu lên để anh (chị) xem giúp. Em cảm ơn ạ

Đây nhé bạn, combobox chọn hãng nào thì combobox sản phẩm sẽ ra sản phẩm tương ứng:

Private priArrData

Private Sub UserForm_Initialize()
    Dim e As Long
    Dim shData As Worksheet
    Set shData = Sheets("Data")
    e = shData.Range("G" & shData.Rows.Count).End(xlUp).Row
    cmb_hang.List = shData.Range("G2:G" & e).Value
    e = shData.Range("A" & shData.Rows.Count).End(xlUp).Row
    cmb_sanpham.List = shData.Range("A2:B" & e).Value
    priArrData = cmb_sanpham.Column
    cmb_sanpham.Clear
End Sub

Private Sub cmb_hang_Change()
    cmb_sanpham.Text = ""
    cmb_sanpham.Clear
    If cmb_hang.MatchFound Then
        Dim arrSanPham()
        Dim n As Long, r As Long, u As Long
        u = UBound(priArrData, 2)
        For r = 0 To u
            If priArrData(0, r) = cmb_hang.Text Then
                ReDim Preserve arrSanPham(0 To 0, 0 To n)
                arrSanPham(0, n) = priArrData(1, r)
                n = n + 1
            End If
        Next
        cmb_sanpham.Column = arrSanPham
    End If
End Sub