تلوين النص بلون مخالف للخلية

[عاطف عبد العليم محمد]

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

واسعد الله أيامكم 

 

اذا كان لدينا  نطاق فيه ألوان الخلايا متعددة 

هل من كود يحدد لون الخلية  وبناء عليه يغير لون النص ليكون لون مختلف مناسب ؟

 

تم تعديل ديسمبر 6, 2023 بواسطه عاطف عبد العليم محمد

[عاطف عبد العليم محمد]

Sub fontcolor()
      Dim i As Integer
   
    For i = 1 To 10
          Cells(i, 1).Font.Color = Cells(i, 1).Interior.Color + 1000000
    Next i
End Sub

 

[عاطف عبد العليم محمد]

 Dim i As Long
   
    For i = 6 To 125
    Range(Cells(i, "b"), Cells(i, "j")).Font.Color = Cells(i, 3).Interior.Color + 3000000
    Next i

الكود يعمل اذا كانت الخلايا عددها محدود اما اذا  كانت كبيرة فيعمل لعدد محدد ثم يقف ويعطي رسالة خطأ      هل من حل ؟