هل ممكن حفظ قواعد التنسيق الشرطي من ملف ما ونقلها الى ملف اخر

[اوفيس 2003]

السلام عليكم

 

لدي ملف اكسل مثلا عليه قواعد للتنسيق الشرطي مثلا ولتكن اكثر من 50 قاعدة  واريد ان افتح ملف جديد واضع فيه هذه القواعد بدلاُ من ان اقوم بها مرة اخرى

 

كيف انفذ ذلك ؟؟؟

 

[ابو اياد ( الاسيوطى )]

الاخ العزيز

 

يمكنك تنفيذ ذلك بعملة مرة واحدة ولكن عليك اولا بتشغيل وحدات ماكرو بأستخدام اوفيس 2003

 

اما اذا كنت تستخدم 2007 عليك حفظ الملف بصيغة xml , Macro-enabledwoorkbook

 

قبل القيام بهذا

 

بعد ذلك يمكنك تنفيذ هذا بكل سهولة عن طريق تشغيل زر ماكرو الذى حددتة

 

بارك الله فيك

 

تقبل تحياتى

[اوفيس 2003]

ياريت شرح اكتر الله يبارك فيك

[ابو اياد ( الاسيوطى )]

الاخ العزيز

 

ارجو ارفاق ملف

[اوفيس 2003]

تفضل يا غالي

Q.rar

[الـعيدروس]

السلام عليكم

Public Sub Rng_Cn()
 ' D' المدى حسب ملفك العمود
 ' غيره حسب العمود المراد تطبيق الشروط عليه
  Frmt_Cnd "D:D"
End Sub
Private Function Frmt_Cnd(Rn As String) As Variant
Range(Rn).Select
On Error Resume Next
With Range(Rn)
 .FormatConditions.Delete
 .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""جديد"""
 .FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Interior.Color = RGB(253, 233, 217)
End With
'
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""مستعمل"""
 .FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Interior.Color = RGB(250, 191, 143)
End With
'
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""وارد"""
 .FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Interior.Color = RGB(196, 215, 155)
End With
'
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""صادر"""
 .FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1)
.Interior.Color = RGB(149, 179, 215)
End With
On Error GoTo 0
End With
End Function

[اوفيس 2003]

مشكور على العمل الرائع اخي عباد

 

ولكن الفكرة ان هذا مثال انا طرحته

 

انا كنت اسأل عن طريقة اني انقل التنسيق الشرطي من ملف الى ملف اخر

[الـعيدروس]

السلام عليكم

 

شاهد الشرح بالمرفق

شرح_تنسيق.rar

[اوفيس 2003]

فهمتك اخي عباد على الشرح اللي اكثر من راااااااااااااااااااائع  وتم تطبيقه اكثر من رااائع

 

 

تمت الإجابة والحمد لله