lấy giá trị trong listbox nhiều cột và ẩn/hiện page có điều kiện trong userform (1 người xem)

[phucto]

Dear Anh/Chị,

Em có một vấn đề trong file đính kèm nhờ các Anh/Chị chỉ giúp giùm.
Xin chân thành cảm ơn.

 

[mhung12005]

Dear Anh/Chị,

Em có một vấn đề trong file đính kèm nhờ các Anh/Chị chỉ giúp giùm.
Xin chân thành cảm ơn.

Câu hỏi của bạn vẫn chưa rõ ràng lắm. Thôi thì hiểu đc cái gì thì giúp bạn cái đó vậy:

* Đưa dữ liệu từ Listbox vào combobox và textbox trong userform1:

Private Sub ListBox1_Click()    Dim lPos As Long
    With UserForm1
        lPos = .ListBox1.ListIndex
        .ComboBox1.Value = .ListBox1.List(lPos, 0)
        .TextBox1.Value = .ListBox1.List(lPos, 2)
    End With
End Sub

*Điền dữ liệu từ textbox trong userform1 vào D4 sheet có tên như combobox:

 Private Sub CommandButton1_Click()    Dim wSh As Worksheet
    Dim sDesSh As String
    sDesSh = UserForm1.ComboBox1.Value
    For Each wSh In ThisWorkbook.Worksheets
        If wSh.Name = sDesSh Then
            wSh.Range("D4") = UserForm1.TextBox1.Value
'            Muon Print cai gi, o dau thi cho code vao day
        End If
    Next wSh
End Sub

 

[phucto]

Cảm ơn bạn mhung12005 rất nhiều. Cho Mình hỏi có cách nào kết hợp chức năng điền vào combobox và textbox khi click vào listbox và việc lọc dữ liệu khi nhập vào combobox/textbox thì sẽ đi đến một dòng trong listbox?

Còn phần userform 2 là dạng multipage userform. Mình muốn khi mở form lên thì tất cả các pages trong đó sẽ ở dạng ẩn chỉ khi nào mình chọn giá trị trong combobox (giá trị đó chính là caption của page) thì page đó mới hiện lên trong userform