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

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

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

المثال الأول :
[p]
<code>

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

</code></pre>


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

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

سأدرج بقية الأمثلة مع ذكر الفائدة من كل كود ، والفكرة نفسها في كل الأمثلة
-----------------------------------------------------------------------------
المثال الثاني :
[p]
<code>

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

</code></pre>


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

المثال الثالث :
[p]
<code>

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

</code></pre>


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

المثال الرابع :
[p]
<code>

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

</code></pre>


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

المثال الخامس :
[p]
<code>

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

</code></pre>


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

المثال السادس :
[p]
<code>

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

</code></pre>


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

المثال السابع :
[p]
<code>

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

</code></pre>


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

المثال الثامن :
[p]
<code>

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

</code></pre>


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

المثال التاسع :
[p]
<code>

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

</code></pre>


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

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

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



رابط الملف من هنا

إعداد / ياسر خليل أبو البراء