17-08-20, 08:11 PM
محتاج عمل كود زر بحث في 2 عمود واحد باللغة العربية والاخر بالانجليزية بحيث نتمكن من البحث باي من اللغتين في نفس Textbox
برجاء مراجعة الكود ادناة
Private Sub Mysearch()
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Dim isearch As Long
Dim i As Long
isearch = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
For i = 2 To isearch
If IsEmpty(Sheet1.Cells(i, 1)) = False Then
If IsError(Sheet1.Cells(i, 1)) = False Then
If Trim(LCase(Sheet1.Cells(i, 1))) = Trim(LCase(Me.TextBox4.Text)) Then
Me.TextBox1.Text = Sheet1.Cells(i, 1)
Me.TextBox2.Text = Sheet1.Cells(i, 2)
Me.TextBox3.Text = Sheet1.Cells(i, 3)
Exit For
End If
End If
End If
If i = isearch Then
MsgBox "áÇ ÊæÌÏ ÈíÇäÇÊ", vbInformation
Me.TextBox4.Text = ""
Me.TextBox4.SetFocus
End If
Next i
End Sub
برجاء مراجعة الكود ادناة
Private Sub Mysearch()
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Dim isearch As Long
Dim i As Long
isearch = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
For i = 2 To isearch
If IsEmpty(Sheet1.Cells(i, 1)) = False Then
If IsError(Sheet1.Cells(i, 1)) = False Then
If Trim(LCase(Sheet1.Cells(i, 1))) = Trim(LCase(Me.TextBox4.Text)) Then
Me.TextBox1.Text = Sheet1.Cells(i, 1)
Me.TextBox2.Text = Sheet1.Cells(i, 2)
Me.TextBox3.Text = Sheet1.Cells(i, 3)
Exit For
End If
End If
End If
If i = isearch Then
MsgBox "áÇ ÊæÌÏ ÈíÇäÇÊ", vbInformation
Me.TextBox4.Text = ""
Me.TextBox4.SetFocus
End If
Next i
End Sub