كيفية تلوين الصف الموجود به الخلية عند نتيجة البحث

[أبو مسلم الحازم]

الرجاء منكم كيفية تلوين الصف الموجود به الخلية عند نتيجة البحث

بارك الله فيكم

[كمال على طارق]

تفضل يمكنك عمل هذا من خلال مشاهدة هذا الفيديو بما انك لم تقم برفع ملف اكسيل توضيحى لما تريد

 

 

[أبومروان]

وعليكم السلام ورحمه الله وبركاته 

اتفضل المعادله يمكنك استخدام اي معادله لعلها تفي بالغرض والمطلوب

=AND($F$1<>""; ISNUMBER(SEARCH($F$1; $A2 & $B2 & $C2)))

=IF(ISBLANK($F$1);0;SEARCH($F$1;$A2&$B2&$C2))

يمكنك البحث عن اكتر من عمود وعدل المعادله كيفما تشاء 

واليك طريقه اخري للبحث والتولين مع الكود بدل المعادلات اختر ما يصلح 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim searchText As String
    Dim lastRow As Long
    
   
    If Not Intersect(Target, Me.Range("F1")) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        
      
        Me.Range("A2:C1000").Interior.ColorIndex = xlNone
        
        searchText = Trim(Me.Range("F1").Value)
        
       
        If searchText = "" Then
            Application.EnableEvents = True
            Application.ScreenUpdating = True
            Exit Sub
        End If
       
        lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row
        
      
        Set rng = Me.Range("A2:C" & lastRow)
        
        For Each cell In rng.Rows
            Dim combinedText As String
            combinedText = cell.Cells(1, 1).Value & cell.Cells(1, 2).Value & cell.Cells(1, 3).Value
            
            If InStr(1, combinedText, searchText, vbTextCompare) > 0 Then
                cell.Interior.Color = RGB(255, 255, 153)
            End If
        Next cell
        
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

نرجو ان يكون المطلوب

البحث معادله .xlsx andالبحث معادله .xlsx الكود .xlsm

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته وبها نبدأ

يمكنك استخدام خاصية "البحث والاستبدال" (Ctrl + H) مع تنسيق خاص لتحقيق ذلك.

1. اضغط Ctrl + H لفتح نافذة "استبدال".

2. أدخل القيمة التي تبحث عنها في حقل "البحث عن".

3. اترك حقل "استبدال بـ" فارغًا.

4. اضغط على زر "تنسيق" (Format) في قسم "استبدال بـ".

5. اختر لون التعبئة (Fill color) الذي تريده.

6. اضغط "موافق" (OK).

7. اضغط "استبدال الكل" (Replace All).

سيتم تلوين جميع الخلايا التي تحتوي على القيمة التي تبحث عنها باللون الذي اخترته.