Code VBA cho nhiều combobox trên 1 sheet excel (1 người xem)

[mitiank]

Hi ace,

Em có 3 cái combobox liên tiếp trên 1 cột, chứa một list theo Alphabet, (mỗi combobox 1 đoạn a-f; g-m;n-z).
Em muốn khi mình chọn 1 name trong 1 cbb, thì 2 cái còn lại bị disable, và khi đó có một sheet excel mới bung ra, đồng thời sheet hiện tại sẽ hide đi. Tất cả Sheet mới cũng sẽ có cbb, định dạng giống nhau, khác nội dung. Em học về visual c#... mà không rõ về code VBA, các pro help em. Code dùm em luôn càng tốt (em hiểu được code nhưng không biết code). Bro xem file attached nhé.

 

[phucbugis]

Hi e ,

Hi ace,
Em có 3 cái combobox liên tiếp trên 1 cột, chứa một list theo Alphabet, (mỗi combobox 1 đoạn a-f; g-m;n-z).
Em muốn khi mình chọn 1 name trong 1 cbb, thì 2 cái còn lại bị disable, và khi đó có một sheet excel mới bung ra, đồng thời sheet hiện tại sẽ hide đi. Tất cả Sheet mới cũng sẽ có cbb, định dạng giống nhau, khác nội dung. Em học về visual c#... mà không rõ về code VBA, các pro help em. Code dùm em luôn càng tốt (em hiểu được code nhưng không biết code). Bro xem file attached nhé.

- có phải bạn đang muốn tạo liên kết (hyperlink) giữa các sheet thông qua combobox ?
- các Vendor List là ứng với tên của mỗi sheet ha?
- bạn nói "khi mình chọn 1 name trong 1 cbb, thì 2 cái còn lại bị disable, và khi đó có một sheet excel mới bung ra, đồng thời sheet hiện tại sẽ hide đi"
khi ẩn sheet hiện tại thì cần gì phải disable 2 combobox kia nữa ?

 

[mitiank]

Hề hề, Thanks bro, đúng là như vậy. Do em không rõ về VBA nên dùng từ không đúng. Như vậy bro chỉ rõ cho em nhé (code luôn thì càng tốt, em bận quá nên không có nhiều thời gian nghiên cứu .

 

[phucbugis]

Hề hề, Thanks bro, đúng là như vậy. Do em không rõ về VBA nên dùng từ không đúng. Như vậy bro chỉ rõ cho em nhé (code luôn thì càng tốt, em bận quá nên không có nhiều thời gian nghiên cứu .

vì bạn trình bày vấn đề ko rõ + số liệu file đính kèm chưa đầy đủ
---> mình làm mẫu 1 file: đi theo hướng mà mọi người vẫn thường làm ---> tạo 1 sheet Menu để liên kết đến các sheet khác.

'----------
bạn tải file, cho chạy Macro, click vào Vendor Name 1 hoặc 2 hoặc 3 đó để xem kết quả.
(nếu thích thì dựa vào đó phát triển thêm, thủ thuật + code khá đơn giản)

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

    CurWsName = Target.Range.Value
    
    With Sheets(CurWsName)
        .Visible = True
        .Select
        .Range("A1").Select
    End With
End Sub

Public CurWsName As String

Sub hide1Sheet()
    Sheets("Menu").Select
    If CurWsName <> "" Then Sheets(CurWsName).Visible = False
End Sub