اريد تثبيت نطاق التنسيق الشرطى

[ياسر أحمد الشيخ]

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

- عندى معادلة تقوم مثلا بجمع نطاق معين

عند القيام بأى عمليه على هذا النطاق (كالقص أو الاضافة) ألاحظ أن النطاق الموجود فى المعادلة يتم تغييره أوتوماتيكياً

وقد أستطعت التغلب على هذه المشكلةبكتابه النطاق بمعادلة indirect

ولكن المشكلة الآن تواجهنى فى التنسيق الشرطى:

حيث أريد تثبيت المطاق الموجود فى قاعدة التنسيق الشرطى ،بحيث اذا قمت بأى عمليه سواء نسخ أو ادراج أو حذف فى الشيت لا تتأثر قاعدة التنسيق الشرطى ، ولا يضيف أى قاعدة أخرى جديده لوحده.

أرجو مساعدتكم أيها الأخوة بأى طريقة ............

أنظر الملف للتطبيق

وشكرا

Formatting.rar

[ياسر أحمد الشيخ]

أرجو الاهتمام أيها الأخوة

[abumalak]

عزيزي السؤال غير واضح بشكل كبير وأحاول مساعدتك

مرفق لك ملف أرجو الإطلاع عليه والتجربة في حال هو غير المطلوب أتمنى التوضيح بشكل أكبر

وشكرا

Formatting.rar

[ياسر أحمد الشيخ]

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

شكرا أخى على اهتمامك

ولكن طلبى هو:

أنا عندى قاعدة شرطية فى الملف الذى ارفقته أريد أن يتم تثبيتها ولا يتم انشاء أى قواعد شرطية أخرى

حيث عندما أقوم بالنسخ من نطاق به تنسيق شرطى واللصق فى نفس الشيت ، يقوم الأكسل بانشاء قواعد تنسيقية أخرى

ويقوم أيضاً بالتعديل على القاعدة الأصلية.

هل وصل المطلوب

المطلوب باختصار :

كود يقوم باعادة تعيين قاعدة التنسيق كلما عملت نسخ ولصق أو قص أو حذف

وشكرا جزيلاً

[Ahmed Elbhiry]

أخى الفاضل عندما تنسخ من شيت الى شيت استخدم لصق خاص قيم بذلك تحتفظ بالتنسيق الموجود مكان اللصق ولا يؤثر التنسيقات الواردة على مكان اللصق

[طارق محمود]

السلام عليكم

أخي العزيز

بالإضافة لحل أخي / أحمد ، جزاه الله خيرا

يمكنك تحديد النطاق الذي تريد تثبيت التنسيق فيه

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

[ياسر أحمد الشيخ]

هل تستطيع أخى أن تكتب لى الكود اللازم لعمل ذلك

وشكرا جزيلا

[طارق محمود]

السلام عليكم

عذرا للإنقطاع لظروف السفر

تفضل أخي الكود التالي

ضعه في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)


Cells.FormatConditions.Delete

[A2:C100].Select

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=COUNTIF($A$2:$A2,$A2)=1"

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority


With Selection.FormatConditions(1).Interior

    .PatternColorIndex = xlAutomatic

    .Color = 65535

    .TintAndShade = 0

End With


Selection.FormatConditions(1).StopIfTrue = False

[A1].Select


End Sub