Thay đổi nội dung trên ComboBox theo điều kiện. (1 người xem)

[khamha]

Như tiêu đề ,mình muốn các bạn giúp như sau:
khi ta chọn tại ComboBox06 (Ctr06) là: H thì danh sách chọn tại Ctr08 sẽ là: H1 đến H9

Khi ta chọn tại ComboBox06 (Ctr06) là: C thì danh sách chọn tại Ctr08 sẽ là: C1 đến C9

* File đính kèm: http://laoupload.com/0NK4JP5YQ3YA/ThayDoiDanhSachChonTrenComboBox.7z.html

 

[Hoàng Trọng Nghĩa]

Bạn thử tham khảo bài này, cách làm cũng tương tự đó, thay vì khi form load, và gán bằng sự kiện OptionButton thì đặt cách phân chia trên ComboBox vào sự kiện Before Update.

http://www.giaiphapexcel.com/forum/showthread.php?84483-Hỏi-về-combobox&p=526882#post526882

Đại loại như vầy:

Private Sub CoboBoxABC_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    With CoboBoxABC
        If .MatchFound Then


[COLOR=#008000]'Code phân tích theo ký tự của bạn tại đây.
'Có mảng mới thì gán list vô ComboBox kia.
[/COLOR]

        End If
    End With
End Sub

Bạn thử tự nghiên cứu đi, tôi nghĩ bạn sẽ làm được đấy!

 

[khamha]

Đã ngâm cứu bài của bạn ,Nhưng loay hoay mãi ko được ,Bạn giúp mình tiếp nhé.

 

[ndu96081631]

Như tiêu đề ,mình muốn các bạn giúp như sau:
khi ta chọn tại ComboBox06 (Ctr06) là: H thì danh sách chọn tại Ctr08 sẽ là: H1 đến H9

Khi ta chọn tại ComboBox06 (Ctr06) là: C thì danh sách chọn tại Ctr08 sẽ là: C1 đến C9

* File đính kèm: http://laoupload.com/0NK4JP5YQ3YA/ThayDoiDanhSachChonTrenComboBox.7z.html

Code đơn giản và dễ hiểu nhé:

Private Sub Ctr06_Click()
  With DM.Range(DM.[C3], DM.[C60000].End(xlUp))
    If Ctr06.Text = "H" Then
      Ctr08.List = .Resize(, 2).Value
    ElseIf Ctr06.Text = "C" Then
      Ctr08.List = .Offset(, 2).Resize(, 2).Value
    End If
  End With
  Ctr08.ListIndex = 0
End Sub
Private Sub UserForm_Initialize()
  Ctr06.List() = DM.Range(DM.[B3], DM.[A60000].End(xlUp)).Value
  Ctr06.ListIndex = 0
End Sub