تعديل كود فى فورم اكسيل

[Elhacker]

السلام عليكم 

اريد التعديل على كود الفورم هذه ليظهر فى قائمة البحث textbox 1 اربع اعمدة بدلا من عمودين 

الكود

Private Sub TxtSearch_Change()
Dim x As Long
Me.TxtSearch.Text = StrConv(Me.TxtSearch.Text, vbProperCase)
Me.ListBox1.Clear
For x = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
a = Len(Me.TxtSearch.Text)
If Left(Sheet1.Cells(x, 1).Value, a) = Left(Me.TxtSearch.Text, a) Then
Me.ListBox1.AddItem Sheet1.Cells(x, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(x, 2).Value
End If
Next x
End Sub

وهناك مرفق صورة 

 

 

 

ADVANCED SEARSH.xlsm

[عبدالفتاح في بي اكسيل]

اقتباس

اريد التعديل على كود الفورم هذه ليظهر فى قائمة البحث textbox 1 اربع اعمدة بدلا من عمودين 

 

Private Sub TxtSearch_Change()
Dim x As Long
Me.TxtSearch.Text = StrConv(Me.TxtSearch.Text, vbProperCase)
Me.ListBox1.Clear
For x = 4 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
a = Len(Me.TxtSearch.Text)
If Left(Sheet1.Cells(x, 1).Value, a) = Left(Me.TxtSearch.Text, a) Then
Me.ListBox1.AddItem Sheet1.Cells(x, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(x, 2).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Sheet1.Cells(x, 3).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Sheet1.Cells(x, 4).Value
End If
Next x
End Sub

 

 

 

ADVANCED SEARSH.xlsm