sayed_973 قام بنشر يناير 10, 2021 مشاركة قام بنشر يناير 10, 2021 السلام عليكم اخوانى الاعزاء واطلب تلوين نطاق A انا مبتدىء جدا وقمت بعمل كود يقوم بالبحث عن كلمة فى العامود ويظهر لى الخطا المرفق Coloring.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يناير 10, 2021 أفضل إجابة مشاركة قام بنشر يناير 10, 2021 جرب هذا الكود Option Explicit Sub colorize() Dim lr%, i% Const n = 35 Const Mot = "Saturday" With Sheets("My_sheet") lr = .Cells(Rows.Count, 1).End(3).Row .Range("A1:A" & lr).Interior.ColorIndex = xlNone For i = 1 To lr If .Cells(i, 1) = Mot Then .Cells(i, 1).Interior.ColorIndex = n End If Next End With End Sub الملف مرفق Sayaed.xlsm 2 رابط هذا التعليق شارك More sharing options...
sayed_973 قام بنشر يناير 11, 2021 الكاتب مشاركة قام بنشر يناير 11, 2021 أشكرك استاذ سليم شكرا جزيلا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها