[Mhqom]

(25-11-21, 12:21 AM)Taha Okla كتب : لتلوين الارقام استبدل الكود التالي في مشروع م/احمد عبد العليم :

كود :

If Trim(.Text) = "repeater" Then
       .CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
       .CellBackColor = vbGreen
End If
ليس لدى non repeater هذة للمثال

بالكود :

كود :

If Trim(.Text) = "repeater" Then
   .Col = .Col - 1
   .CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
   .Col = .Col - 1
   .CellBackColor = vbGreen
End If

---

ياصديقي العزيز افهمني صحيح نريد البحث عن القيمة في حقول عمود تارتبع وان كانت مكررة نلونها ونلون التكرار تبعها

---

ياصديقي العزيز افهمني صحيح نريد البحث عن القيمة في حقول العمود الرابع وان كانت مكررة نلونها ونلون التكرار معها
مثال الرقم 500 هو مكرر يتم تلوين حقلة والحقل الاخر الذي به رقم 500