تلوين خلايا بدلالة معادلات فى خليه اخرى

[محب لله ورسوله]

الإخوه الأفاضل

فى حالة ربط خليه بعدة خلايا ( على سبيل المثال G9 = D3+D6 )
المطلوب إعطاء لون موحد وتلوين الخلايا (G9 ، D3 ، D6  ) بنفس اللون حتى يكون هناك ربط بينهم
بمعنى إنه فى حالة اعطاء لون للخلية G9 يتم تلوين الخلايا D3 ، D6  بنفس اللون وهكذا

New Microsoft Excel Worksheet.rar

[احمد بدره]

يمكن تجربة التسيق الشرطي الذي بالملف

New Microsoft Excel Worksheet.rar

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Sub give_text()
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
Dim i%, k%, Colore: Colore = 35
Dim addrs As String
Dim st As String
Dim My_rg As Range: Set My_rg = [d3:d6]
Dim Formula_rg As Range: Set Formula_rg = [g9:g10]
Union(Formula_rg, My_rg).Interior.ColorIndex = xlNo
 
 For k = 1 To Formula_rg.Rows.Count
       Formula_rg.Cells(k).Interior.ColorIndex = Colore
       st = Formula_rg.Cells(k).Formula
    For i = 1 To My_rg.Rows.Count
       addrs = My_rg.Cells(i).Address(0, 0)
     If InStr(st, addrs) Then _
       My_rg.Cells(i).Interior.ColorIndex = Colore
    Next
    Colore = Colore + 1
 Next
End Sub

 

[محب لله ورسوله]

جزاك الله خيرا اخى الحبيب

ولى اضافه بسيطه على الكود إن أمكن

اريد الجمع للقيم في اكثر من عمود بالنسبه للجدول الأول كما في المثال

فعند تعديل المعادله ( الجمع ) فى الجدول الثانى لا يتم التلوين للخليه الجديده ( في العمود الأول ) المضافة في المعادله

 

برجاء مراجعة هذه الجزئية إن أمكن