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