كود اظهار قائمة التنسيق

[ابو حمادة]

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

الاخوة الافاضل رعاكم الله برعايته ووفقكم لمن ينفع المسلمين

محتاج كود داخل زر بداخل فورم يظهر قائمة التنسيق كما موضح في الصورة مع مراعاة عدم ظهور مربع الحمايه المحاط داخل الدائرة

يوجد به الاوامر ( رقم - محازاة - خط - حدود - تعبئة ) كما موضح في الصورة المرفقه

ولكم جزيل الشكر والاحترام

 

[ابو حمادة]

استفسار من اهل الخبره هو الطلب ال عايزة صعب يحصل ولا ممكن يتعمل ؟

[مختار حسين محمود]

الاخ أبو احمد ممكن يتعمل انتظر أحد الاخوة للرد للأسف أعمل على اكسل 2010  مش xp  ولا  2003  

لو عندك 2007 أو أعلى أخبرنى  حيث لكل صندوق حوارى أمر استدعاء خاص تحياتى

أمر التوسيط بالكود

Sub MokhtarTest()

Application.Dialogs(xlDialogAlignment).Show
End Sub

أمر نوع وحجم الخط

Sub MokhtarTest2()

Application.Dialogs(xlDialogFont).Show
End Sub

أو

Sub MokhtarTest3()

Application.Dialogs(xlDialogFontProperties).Show
End Sub

لاظهار صندوق الحماية الذى لا تريده

Sub MokhtarTest4()

Application.Dialogs(xlDialogCellProtection).Show
End Sub

ده متوفر فى 2007 فما فوق تحياتى

تم تعديل أكتوبر 22, 2015 بواسطه مختار حسين محمود

[ياسر خليل أبو البراء]

أخي الكريم أعتقد أن الطلب شبه مستحيل (ولن اقول مستحيل فكم من المستحيل تحقق بفضل الله)

ولكن لم يمر بي مثل هذا الأمر وهو أن تقوم بالتحكم في نوافذ الإكسيل نفسها وتخفي منها ما تشاء

أرجو ان يكون هناك من لديه علم بالأمر

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب مختار على المعلومات القيمة

ماذا عن تبويب Number وتبويب Fill

جربت التبويبات الأخرى وكلها تعمل بشكل جيد ما عدا هذين التبويبين

تقبل تحياتي

[ابو حمادة]

أخي الكريم أعتقد أن الطلب شبه مستحيل (ولن اقول مستحيل فكم من المستحيل تحقق بفضل الله)

ولكن لم يمر بي مثل هذا الأمر وهو أن تقوم بالتحكم في نوافذ الإكسيل نفسها وتخفي منها ما تشاء

أرجو ان يكون هناك من لديه علم بالأمر

ان شاء الله مافيش مستحيل

الاخ أبو احمد ممكن يتعمل انتظر أحد الاخوة للرد للأسف أعمل على اكسل 2010  مش xp  ولا  2003  

لو عندك 2007 أو أعلى أخبرنى  حيث لكل صندوق حوارى أمر استدعاء خاص تحياتى

أمر التوسيط بالكود

Sub MokhtarTest()

Application.Dialogs(xlDialogAlignment).Show
End Sub

أمر نوع وحجم الخط

Sub MokhtarTest2()

Application.Dialogs(xlDialogFont).Show
End Sub

أو

Sub MokhtarTest3()

Application.Dialogs(xlDialogFontProperties).Show
End Sub

لاظهار صندوق الحماية الذى لا تريده

Sub MokhtarTest4()

Application.Dialogs(xlDialogCellProtection).Show
End Sub

ده متوفر فى 2007 فما فوق تحياتى

شكرا استاذ مختار بارك الله فيك انا بالفعل عامل هذه الاوامر ولكن اريد ان اجمعهم مع بعض في قائمة واحده علما انا شغال اكسل 2007

شكرا لكل اعضاء المنتدي الكرام ولكم مني الف تحيه وشكر خاص للاخ الاستاذ مختار علي رده واهتمامه بالموضوع ولكن ال انا محتاجه ان اجمع هذه الاوامر في قائمه واحده والغي فقط الحمايه

[مختار حسين محمود]

أستاذى الفاضل ياسر

السطر ده يستدعى صندوق Style  ومنه نختار الفورمات  خط ولون ومحاذاة وحماية ...........

Application.Dialogs(xlDialogApplyStyle).Show

أو السطر ده :

Application.Dialogs(xlDialogDefineStyle).Show

الأخ ابو احمد  تجميع الاوامر بالشكل الذى تريده  لا يمكن حتى الان لانه  من أساسيات الاوفيس  لكن بامكانك عمل زر لكل قائمة  تحياتى

تم تعديل أكتوبر 23, 2015 بواسطه مختار حسين محمود