Hướng dẫn cách chọn Sheet theo tên trên Combobox

[chuonglt]

Em có 2 Sheet (Data1 và Data2)
Em muốn có danh sách sổ ra trên Combobox có tên danh sách 2 sheet này.
Ví dụ chúng ta bấm chọn Data1 (trong list Combobox) thì nội dung trong sheet Data1 sẽ hiện ở mục Textbox và khi chọn Data2 cũng sẽ tương tự ạ

Em nhờ anh chị có thể hướng dẫn code giúp ạ. Xin cám ơn.

 

[leonguyenz]

Em có 2 Sheet (Data1 và Data2)
Em muốn có danh sách sổ ra trên Combobox có tên danh sách 2 sheet này.
Ví dụ chúng ta bấm chọn Data1 (trong list Combobox) thì nội dung trong sheet Data1 sẽ hiện ở mục Textbox và khi chọn Data2 cũng sẽ tương tự ạ

Em nhờ anh chị có thể hướng dẫn code giúp ạ. Xin cám ơn.

Bạn đặt Name lấy tên sheet, chọn ComboBox1 và đưa Name này vào RowSource, thêm đoạn code sau vào:

Private Sub ComboBox1_Change()
    ThisWorkbook.Worksheets(Me.ComboBox1.Text).Select
End Sub

 

[SA_DQ]

Nên là ListBox như vầy trong file

Chúc vui vẻ!
===============================

 

[chuonglt]

Bạn đặt Name lấy tên sheet, chọn ComboBox1 và đưa Name này vào RowSource, thêm đoạn code sau vào:

Private Sub ComboBox1_Change()
    ThisWorkbook.Worksheets(Me.ComboBox1.Text).Select
End Sub

Vâng em cám ơn bác. Vấn đề là em khi em chọn ví dụ Data1 thì nội dung của Sheet Data1 sẽ hiện trong ô Textbox trên Form luôn ạ. Bác hướng dẫn giúp em nha

 

[leonguyenz]

Vâng em cám ơn bác. Vấn đề là em khi em chọn ví dụ Data1 thì nội dung của Sheet Data1 sẽ hiện trong ô Textbox trên Form luôn ạ. Bác hướng dẫn giúp em nha

Bạn thử code sau:

Private Sub ComboBox1_Change()
    Me.ListBox1.ColumnCount = 8
    Me.ListBox1.ColumnWidths = "20 pt;50 pt;50 pt;50 pt;50 pt;20 pt;50 pt;100 pt;"
    Me.ListBox1.List = ThisWorkbook.Worksheets(Me.ComboBox1.Text).Range("A1:H100").Value
End Sub

 

[chuonglt]

Bạn thử code sau:

Private Sub ComboBox1_Change()
    Me.ListBox1.ColumnCount = 8
    Me.ListBox1.ColumnWidths = "20 pt;50 pt;50 pt;50 pt;50 pt;20 pt;50 pt;100 pt;"
    Me.ListBox1.List = ThisWorkbook.Worksheets(Me.ComboBox1.Text).Range("A1:H100").Value
End Sub

Code này hay quá em đã làm được cảm ơn bác nhiều.