وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه

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

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

إخواني الكرام وأحبابي في الله

أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة NOT والتي تعكس القيمة

أي إذا كانت القيمة True فإنها تصبح False ، وإذا كانت القيمة False تصبح القيمة True ...

وإليكم أمثلة تطبيقية لتأكيد المعلومة وكيفية الاستفادة منها

المثال الأول :

Sub ToggleFormulaBar()
    Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
End Sub

نجد نفس السطر اللي على اليسار هو هو كما على اليمين ، فقط أضفنا كلمة NOT والتي تعكس القيمة

فإذا كان شريط المعادلات مخفي أصبح ظاهراً ، وإذا كان شريط المعادلات ظاهراً أصبح مخفياً ..

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

------------------------------------------------------------------------------------------

المثال الثاني :

Sub ToggleShowZeros()
    ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros
End Sub

الكود لإظهار القيم الصفرية وإخفائها

 

المثال الثالث :

Sub ToggleGridlines()
    ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines
End Sub

الكود لإظهار خطوط الشبكة وإخفائها

 

المثال الرابع :

Sub ToggleDisplayHeadings()
    ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

الكود لإظهار عناوين الصفوف والأعمدة

 

المثال الخامس :

Sub ToggleScrollBars()
    ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar
    ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar
End Sub

الكود لإظهار أشرطة التمرير الأفقية والرأسية وإخفائها

 

المثال السادس :

Sub ToggleWorkbookTabs()
    ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
End Sub

الكود لإظهار تبويبات المصنف أي أسماء أوراق العمل المبوبة وإخفائها

 

المثال السابع :

Sub ToggleStatusBar()
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
End Sub

الكود لإظهار شريط الحالة وإخفائه

 

المثال الثامن :

Sub ToggleShowFormulas()
    ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas
End Sub

الكود لإظهار المعادلات في ورقة العمل وإخفائها (التعامل هنا ليس مع شريط المعادلات)

 

المثال التاسع :

Sub ToggleShowColumns()
    Columns("I:J").Hidden = Not Columns("I:J").Hidden
End Sub

الكود يقوم بإظهار الأعمدة I و J وبالطبع إخفائها

 

أرجو أن يكون الموضوع نال إعجابكم ...

وهذه صورة من الملف المرفق

 

حمل الملف من هنا

 

وأخيراً تقبلوا وافر تقديري واحترامي

[أبو حنــــين]

جزاك الله خيرا أخي ياسر

قمت بتحميل الملف الجميل

كنت اتبع طريقة لتغير اسم  الكموند بوتن ( بوتن لا اعني به اسم رئيس روسيا )

و هذه الطريقة هي

Private Sub CommandButton1_Click()

If CommandButton1.Caption = "1" Then CommandButton1.Caption = "2" Else CommandButton1.Caption = "1"

End Sub

 

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

وجزيت خيراً أيها المتهرب من ذكر اسمه .. قلت لك مش هسيبك

بارك الله فيك وجزيت خيراً على مساهمتك الجميلة

والرد عليها بهذا السطر

CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1")

أبسط وأيسر

[اسامة ابو عمر]

ما شاء الله اخي ابو البراء 

مبدع دائما

جزاك الله كل خير 

[محمد حسن المحمد]

بسم الله ما شاء الله لا قوة إلا بالله..

السلام عليكم ورحمة الله وبركاته...تهانينا الحارة على هذه التحف الجميلة التي تمتع نواظرنا بها..

• 

•  
•  

تقبل تحياتي العطرة

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

تم تعديل أبريل 15, 2016 بواسطه محمد حسن المحمد

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

وعليكم السلام أبي الغالي أبو يوسف

جزاك الله خيراً على المشاركة المميزة والمتميزة .. بارك الله فيك وجمعني الله وإياك في الفردوس الأعلى من الجنة

 

أخي الحبيب أسامة

وجزيت خيراً بمثل ما دعوت لي .. نورت الموضوع بردك الطيب

 

تقبلوا وافر تقديري واحترامي

[ابن بنها]

8 ساعات مضت, ياسر خليل أبو البراء said:

وجزيت خيراً أيها المتهرب من ذكر اسمه .. قلت لك مش هسيبك

بارك الله فيك وجزيت خيراً على مساهمتك الجميلة

والرد عليها بهذا السطر

CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1")

أبسط وأيسر

جزيتم خيرا .. اين اضع هذا السطر

Sub ToggleShowColumns()


    Columns("I:J").Hidden = Not Columns("I:J").Hidden
    CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1")
End Sub

 

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

أخي الكريم ابن بنها

ضع زر CommandButton مثل الصورة التالية :

ثم قم برسم الزر على ورقة العمل ثم انقر دبل كليك على الزر ..سيفتح معك محرر الأكواد

وضع الكود بهذا الشكل ما بين القوسين اللذين سيظهران معك

Private Sub CommandButton1_Click()
    Columns("I:J").Hidden = Not Columns("I:J").Hidden
    CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1")
End Sub

الآن ارجع لورقة العمل واعمل كليك يمين على زر الأمر CommandButton ثم الأمر Properties ثم من النافذة التي ستظهر معك اختر Caption لتغير عنوان زر الأمر وغيره واجعله 1

ثم أخيراً قم بالخروج من الـ Design Mode ..

..

الآن نفذ الأمر ستجد أن الأعمدة الظاهرة I و J تختفي وزر الأمر أصبح بعنوان 2 .. نفذة مرة أخرى لعكس العملية

 

لمزيد من التفاصيل حول البدايات في التعامل مع محرر الأكواد يرجى زيارة الرابط التالي

الرابط من هنا

 

[اسامةمحمد]

جزاك الله خيرا

اعمالك استاذ ياسر الواحد اجمل من الثاني

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

بارك الله فيك وجزيت خيراً أخي العزيز أسامة

شرفت الموضوع بردك الجميل

تقبل وافر تقديري واحترامي

[ابن بنها]

اريد رجل محترم يحول الشرح الخاص بالاستاذ ياسر ل2003

[مهند الزيدي]

روعة أخي ياسر .. وفقكم الله لكل خير

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

أخي الكريم مهند

جزاك الله كل خير وبارك الله فيك ووفقني وإياك لما فيه الخير لجميع المسلمين

 

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

[ابن بنها]

شكرا على هذا التوضيح

 

[عبد العزيز البسكري]

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

روعة من روائع أعمالك أستاذنا القدير المحترم " ياسر خليل أبو البراء "

بارك الله فيك و لك و جزاك خير الجزاء و أطال بعمرك و وفّقك لما يحبّه و يرضاه

كم إستفدنا من أعمالك البديعة

فائق إحتراماتي

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

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

بارك الله فيك أخي العزيز عبد العزيز وجزيت خيراً على كلامك الطيب ودعائك الطيب وردك المميز

تقبل وافر تقديري واحترامي

[محمد الريفى]

بسم الله ماشاء الله

ربنا يبارك فيك ويجزيك خيرا

دووول شوية كنوز معلوماتيه فى الاكسيل

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

جزيت خيراً أخي وحبيبي محمد الريفي

لا كنوز ولا حاجة .. دا يدوب ملف بسيط بس بيوضح فكرة التضاد وعكس القيمة ..مجرد تجميعة بسيطة مش أكتر .. الكنوز دي بنلاقيها في موضوعاتك يا كبير

تقبل وافر تقديري واحترامي

[محمد الريفى]

2 دقائق مضت, ياسر خليل أبو البراء said:

جزيت خيراً أخي وحبيبي محمد الريفي

لا كنوز ولا حاجة .. دا يدوب ملف بسيط بس بيوضح فكرة التضاد وعكس القيمة ..مجرد تجميعة بسيطة مش أكتر .. الكنوز دي بنلاقيها في موضوعاتك يا كبير

تقبل وافر تقديري واحترامي

ونحن فى امس الحاجه لهذه المعلومات وهذه التجميعية جزاكم الله خيرا

 

[الصـقر]

جزاكم الله خيرا يا ابوالبراء

اسال الله تعالى ان يزيدكم علما وينفع بكم

تقبل تحياتى

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

وجزيت خيراً بمثل ما دعوت لي أيها الصقر ..

بارك الله فيك ومشكور على مرورك العطر بالموضوع

[جلال الجمال_ابو أدهم]

ما شاء الله عليك
جزاك الله خيرا
كود ميكس و بالعكس
تحياتى

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

وجزيت خيراً أخي العزيز جلال الجمال بمثل ما دعوت لي

بارك الله فيك ومشكور على مرورك العطر بالموضوع

وأدعوك لزيارة مدونتي الجديدة من هنا

تقبل تحياتي

[جلال الجمال_ابو أدهم]

ما شاء الله عليك
و جعل اعمالك فى ميزان حسناتك
و مدونة رائعه مثل صاحبها

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

بارك الله فيك أخي الحبيب جلال الجمال

الأروع من المدونة هو تفاعلكم وحبكم لي ..أحبكم الله الذي أحببتموني فيه

تقبل وافر تقديري واحترامي