mustafa_aljhm

عندى ليست بوكس تظهر به نتائج البحث عند الضغط على احد هذه النتائج يتم تلوين الصف باللون الازرق 

اريد ان اغير هذا اللون هل من امكانيه 

فعلا ي استاذنا الفاضل بارك الله فيك ولك ورزقك الخير كله 

بارك الله فيك اخى الكريم
استفسار 
ما الافاده من الاعلان عن هذه المتغيرات
Dim strDate As String, strTime As String

هذا هو المفلالمنتدى.xlsm

 Dim strDate As String, strTime As String
  Dim filePath As String
 Dim ws As Worksheet
  Dim i As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
  For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) = True Then
  For Each ws In ThisWorkbook.Worksheets
  For Each f In ws.Range("a2:a10000")
  If f = ListBox1.List(i, 0) Then
  ws.Select
  f.Select
  Exit For
  End If
  Next f
  Next ws
 ActiveCell.Offset(0, 3).Value = "ايقاف"
   ActiveCell.Offset(0, 4).Value = Date
  End If
  Next i
  i = Empty
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True