รบกวนตรวจ Code ให้ด้วยครับ

[rich37]

แสดงการเลือก Code

[rich37]

เผื่อบางท่านจะเอาไปปรับใช้กับงานนะครับ

Code: Select all

Option Explicit 
Private Sub TextBox6_Change() 
    Dim x, i As Long, ii As Long, iii As Integer, e As Long 
    x = [_Data] 
    With ListBox1 
        If TextBox6.Value = vbNullString Then 
            .List = x 
        Else 
            e = IIf(OptionButton1, 1, 4) 
            For i = 1 To UBound(x, 1) 
                If LCase(x(i, e)) Like LCase(TextBox6.Value) & "*" Then 
                    .AddItem 
                    For ii = 1 To 9 
                        .List(.ListCount - 1, ii - 1) = x(i, ii) 
                    Next 
                End If 
            Next 
        End If 
    End With 
End Sub