اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

 

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

 

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information