تلوين ناتج البحث

[AMIRBM]

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

إخواني الكرام أطلب منكم مساعدة في تلوين ناتج البحث

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

بحث في عدة أوراق مع التحديد 01.xlsm

[Foksh]

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

كفكرة بسيطة ، جرب تعديل هذا الحدث :-

Private Sub ListBox1_Click()

Sheets(ListBox1.Column(0)).Activate
Range(ListBox1.Column(1)).EntireRow.Select
TextBox2.Value = ListBox1.Column(2)

End Sub

 

الى التعديل التالي :-

Private Sub ListBox1_Click()
    If ListBox1.ListIndex = -1 Then Exit Sub
    
    Sheets(ListBox1.Column(0)).Activate
    
    Cells.Interior.Pattern = xlNone
    
    With Range(ListBox1.Column(1))
        .Interior.Color = vbYellow
        .Activate
    End With
    
    TextBox2.Value = ListBox1.Column(2)
End Sub

 

قمت باختيار اللون الأصفر كمثال ، ولك الحرية بالتعديل على مزاجك