تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
زر بحث
#1
محتاج عمل كود زر بحث في 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
الرد
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم