Khi kích vào OptionButton3 thì "lọc" cột thứ 3, còn lại thì lọc cột 2 trong list??? (1 người xem)

[minhcong.tckt]

Em có đoạn mã, giờ làm thế nào để sửa 1 chút để:
Nếu click vào OptionButtón 1, 2 thì lọc theo cột 2, nếu kích vào OptionButton3 thì lọc cột 3 của danh sách cần tìm mã khách dưới đây
[GPECODE=vb]Private Sub TB_Change()
Dim Arr, FindStr As String
On Error Resume Next
FindStr = TB.Text
Arr = Filter2DArray(sArray, 2, "*" & FindStr & "*", False)
If Not IsArray(Arr) Then LB.Clear: Exit Sub
LB.List() = IIf(Trim(FindStr) = "", sArray, Arr)
LB.Selected(0) = True
End Sub
Private Sub UserForm_Initialize()
sArray = Sheets("DMCT").Range("DMCT").Value
LB.List() = sArray
LB.Selected(0) = True
End Sub
Private Sub Chon_Click()
ActiveCell.Value = LB.Text
Unload Me
End Sub
Private Sub LB_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Chon_Click
End Sub
Private Sub Thoat_Click()
Unload Me
End Sub


Private Sub OptionButton1_Click()
LB.List() = Sheets("DMCT").Range("DMCT").Value
sArray = LB.List
End Sub

Private Sub OptionButton2_Click()
LB.List() = Sheets("DMNCC").Range("DMNCC1").Value
sArray = LB.List
End Sub

Private Sub OptionButton3_Click()
LB.List() = Sheets("DMHDKT1").Range("DM_HD_NCC1").Value
sArray = LB.List
End Sub
[/GPECODE]

 

[dovanhoc84]

Em có đoạn mã, giờ làm thế nào để sửa 1 chút để:
Nếu click vào OptionButtón 1, 2 thì lọc theo cột 2, nếu kích vào OptionButton3 thì lọc cột 3 của danh sách cần tìm mã khách dưới đây

[/GPECODE]

Vẫn một câu muôn thuở: Không có file đính kèm thì cũng khó đoán....

 

[minhcong.tckt]

Vẫn một câu muôn thuở: Không có file đính kèm thì cũng khó đoán....

Em gửi bác file mẫu
Bác sang sheet "CPCT" chuột phải sẽ hiện lên bảng chọn mã
File này chỉ có 2 optionbutton
Em muốn kích vào optionbutton DMCT thì textbox sẽ lọc tìm theo cột 2 (tên công trình) , kích vào optionbutton DM_vật tư sẽ lọc theo cột 3 (đơn vị tính)

 

[chucuoi92]

Em gửi bác file mẫu
Bác sang sheet "CPCT" chuột phải sẽ hiện lên bảng chọn mã
File này chỉ có 2 optionbutton
Em muốn kích vào optionbutton DMCT thì textbox sẽ lọc tìm theo cột 2 (tên công trình) , kích vào optionbutton DM_vật tư sẽ lọc theo cột 3 (đơn vị tính)

Bạn đặt một biến cho cột cần lọc
VD:

Private Sub TB_Change()
Dim Arr, FindStr As String
Dim cot
If Me.OptionButton1.Value = True Then
cot = 2
Else
cot = 3
End If
On Error Resume Next
FindStr = TB.Text
Arr = Filter2DArray(sArray, cot, "*" & FindStr & "*", False)
If Not IsArray(Arr) Then LB.Clear: Exit Sub
LB.List() = IIf(Trim(FindStr) = "", sArray, Arr)
LB.Selected(0) = True
End Sub

 

[minhcong.tckt]

Cảm ơn huynh, đúng ý em rùi đấy ạ