كيفية تخصيص القوائم وأشرطة القوائم في Excel

ملخص

توضح هذه المقالة كيفية تخصيص القوائم وأشرطة القوائم في Microsoft Excel 2000 والإصدارات الأحدث. تحتوي هذه المقالة على إرشادات خطوة بخطوة وعينات من التعليمات البرمجية لتخصيص أشرطة القوائم، والقوائم وأوامر القوائم الفرعية والقوائم المختصرة في Microsoft Excel وإدارتها برمجياً.

في هذه المهمة

مقدمة

لتنفيذ العديد من المهام الشائعة المقترنة بتخصيص أشرطة القوائم والقوائم في Microsoft Excel 2000 في Microsoft Excel 2002 وفي Microsoft Office Excel 2003، استخدم مربع الحوار تخصيص . لتنفيذ أكثر المهام المتقدمة، أو تخصيص أشرطة القوائم والقوائم لبرنامج مخصص، قد تحتاج إلى إنشاء Microsoft Visual Basic للتطبيقات (VBA) رموز.

لمزيد من المعلومات حول كيفية استخدام مربع الحوار تخصيص، انقر فوق تعليمات Microsoft Excel
قائمة تعليمات ، اكتب تخصيص شريط القوائم في "مساعد Office" أو "معالج الإجابة" ومن ثم انقر فوق بحث لعرض الموضوع.


يمكن أن تساعدك هذه المقالة في تعلم تقنيات كتابة تعليمات VBA البرمجية لتخصيص أشرطة القوائم، والقوائم وعناصر القائمة، القوائم الفرعية والقوائم المختصرة.

العودة إلى أعلى

مزيد من المعلومات

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

الأمثلة في هذه المقالة.

تستخدم الأمثلة الموجودة في هذه المقالة تعليمات VBA البرمجية في Excel 2000 أو في Excel 2002 أو في Excel 2003 لتخصيص القوائم. لاستخدام وحدات الماكرو المثال، اتبع الخطوات التالية:
  1. بدء تشغيل Excel.
  2. من القائمة أدوات ، أشر إلى
    الماكرو، ثم انقر فوق محرر Visual Basic.
  3. من القائمة إدراج ، انقر فوق
    الوحدة النمطية.
  4. اكتب أحد أمثلة الماكرو من هذه المقالة، أو يمكنك استخدام عملية النسخ واللصق لنسخ أمثلة ماكرو إلى ورقة وحدة نمطية.
  5. في قائمة تشغيل ، انقر فوق تشغيل نموذج فرعي/المستخدم.
  6. إذا ظهر مربع الحوار ماكرو ، انقر فوق اسم الماكرو ومن ثم انقر فوق تشغيل.
العودة إلى أعلى

أشرطة الأوامر

في Microsoft Office وأشرطة الأدوات وأشرطة القوائم واختصار القوائم يتم التحكم في كل برمجياً كأحد أنواع الكائنات: أشرطة الأوامر. كافة العناصر التالية تتمثل في VBA بكائنات شريط الأوامر :
  • أشرطة القوائم وأشرطة الأدوات والقوائم المختصرة.
  • القوائم على أشرطة القوائم وأشرطة الأدوات.
  • القوائم الفرعية في القوائم والقوائم الفرعية والقوائم المختصرة.
يمكنك تعديل أي شريط أدوات مضمن أو أي شريط القوائم المضمن، ويمكنك إنشاء وتعديل أشرطة الأدوات المخصصة وأشرطة القوائم والقوائم المختصرة لتقديمها مع التعليمات البرمجية ل VBA. تقدم ميزات البرنامج كأزرار منفصلة على أشرطة الأدوات أو كمجموعات من أسماء الأوامر في القوائم. نظراً لأن أشرطة الأدوات والقوائم أشرطة الأوامر كلا، يمكنك استخدام نفس أنواع عناصر التحكم.

في VBA وفي Microsoft Visual Basic، يتم تمثيل أزرار وعناصر القوائم الكائنات كوماندباربوتون . يتم تمثيل عناصر التحكم المنبثقة التي تعرض القوائم والقوائم الفرعية بكائنات CommandBarPopup . في الأمثلة التالية، هي عنصر التحكم المسمى "قائمة" وعنصر التحكم المسمى "قائمة فرعية" كلا من عناصر التحكم المنبثقة التي تعرض قائمة وقائمة فرعية. كل من القائمة والقائمة الفرعية كائنات CommandBar فريدة من نوعها مع المجموعة من عناصر التحكم.

في Microsoft Excel، وأشرطة القوائم يشار نفس نوع الكائن القابل للبرمجة، الكائن CommandBar . يمكنك استخدام عناصر التحكم الموجودة في كائن CommandBar للإشارة إلى القوائم وعناصر القوائم، والقوائم الفرعية والقوائم المختصرة. استخدام ثابت مع كل عنصر تحكم في وسيطة النوع لتحديد نوع عنصر التحكم الذي تريد استخدامه للقائمة أو القائمة الفرعية أو الأمر.

العودة إلى أعلى

ثوابت عناصر التحكم

التالي هو قائمة بثوابت عناصر التحكم المتنوعة في Excel 2003 التي تحدد نوع عنصر التحكم الرسومي المطلوب استخدامه لعنصر تحكم شريط قوائم محدد:
  • MsoControlActiveX*
  • MsoControlAutoCompleteCombo***
  • مسوكونترولبوتون
  • مسوكونترولبوتوندروبدوون
  • مسوكونترولبوتونبوبوب
  • مسوكونترولكومبوبوكس
  • مسوكونترولكوستوم
  • مسوكونترولدروبدوون
  • مسوكونتروليديت
  • مسوكونتروليكسباندينجريد
  • مسوكونترولجاوجي
  • مسوكونترولجينيريكدروبدوون
  • مسوكونترولجرافيككومبو
  • مسوكونترولجرافيكدروبدوون
  • مسوكونترولجرافيكبوبوب
  • مسوكونترولجريد
  • مسوكونترولابيل
  • MsoControlLabelEx***
  • مسوكونترولوككسدروبدوون
  • مسوكونترولباني * *
  • مسوكونترولبوبوب
  • MsoControlSpinner***
  • مسوكونترولسبليتبوتونمروبوبوب
  • مسوكونترولسبليتبوتونبوبوب
  • مسوكونترولسبليتدروبدوون
  • مسوكونترولسبليتيكسباندينجريد
  • MsoControlWorkPane**
* = جديد في Microsoft Excel 2000
* * = جديد في Microsoft Excel 2002
= الجديدة في Microsoft Office Excel 2003

العودة إلى أعلى

أشرطة القوائم

شريط القوائم نوع من شريط الأوامر. شريط القوائم هو نوع الكائنات يمكنك إضافة القوائم وعناصر القوائم والقوائم الفرعية.

لمزيد من المعلومات حول كيفية إدارة أشرطة القوائم وعناصر القوائم في Excel، اتبع الخطوات التالية:
  1. بدء تشغيل محرر Microsoft Visual Basic.
  2. من القائمة تعليمات ، انقر فوق تعليمات Microsoft Visual Basic.
  3. في المربع مساعد Office أو في
    مربع معالج الإجابة ، اكتب أشرطة القوائمومن ثم انقر فوق بحث.
  4. في Excel 2003 و Excel 2002، انقر فوق إضافة وإدارة أشرطة القوائم وعناصر القوائم. في Excel 2000، انقر فوق حول القوائم وأشرطة الأدوات.
يمكنك إجراء تعديلات على شريط القوائم وعناصر التحكم الموجودة على شريط القوائم هذا في وقت التشغيل. قد تؤثر التغييرات التي تجريها على شريط القوائم على المظهر أو موضع شريط القوائم. التغييرات التي تجريها على عناصر التحكم تعتمد على نوع عنصر التحكم. يسرد الجدول التالي الخصائص الأكثر شيوعاً والطرق الشائعة لتغيير الحالة أو الإجراء أو محتويات عنصر تحكم:
الخاصية أو الأسلوبالغرض
إضافةإضافة شريط قوائم باستخدام أسلوب إضافة مجموعة الكائن CommandBars وعن طريق تحديد قيمة TRUE لوسيطة "شريط القوائم" .
تمكينإذا تم تعيين الخاصية Enabled إلى القيمة TRUE، المستخدم أن يجعل شريط القوائم المحدد مرئياً باستخدام التعليمات البرمجية ل Visual Basic. إذا تم تعيين الخاصية Enabled على القيمة FALSE، المستخدم لا يمكن أن يجعل شريط القوائم مرئياً. ومع ذلك، سيظهر شريط القوائم في قائمة أشرطة القوائم المتوفرة.
حمايةيجعل من الممكن حماية شريط القوائم من إجراءات مستخدم محددة.
الموضعتحديد موضع شريط القوائم الجديد بالنسبة لإطار البرنامج. قد يكون موضع شريط القوائم بالنسبة لإطار البرنامج واحدة من الخصائص الثابتة MsoBarPosition التالية: مسوبارليفت، مسوبارتوب، مسوبارايت، مسوباربوتوم، مسوبارفلواتينج، مسوباربوبوب (يستخدم لإنشاء قوائم مختصرة) أو مسوبارمينوبار (للاستخدام بواسطة Apple Macintosh فقط).
مرئيةتحديد ما إذا كان عنصر التحكم مرئياً أم مخفياً.

العودة إلى أعلى

إعادة معرف لعنصر تحكم شريط أوامر

تعمل التعليمة البرمجية الموجودة في المثال التالي على إعادة معرف لشريط القوائم النشط:
Sub Id_Control ()Dim myId as Object
set myId = CommandBars("Worksheet Menu Bar").Controls("Tools")
MsgBox myId.Caption & Chr(13) & MyId.Id
End Sub


العودة إلى أعلى

تحديد اسم شريط القوائم النشط

تعمل التعليمة البرمجية الموجودة في المثال التالي على إعادة اسم شريط القوائم النشط:
Sub MenuBars_GetName()   MsgBox CommandBars.ActiveMenuBar.Name
End Sub


العودة إلى أعلى

حفظ الحالة النشطة (المضمنة أو أشرطة القوائم المخصصة)

قد تحتاج إلى تعريف المتغير أوريجينالمينوبار متغير عام حيث يمكن لروتين فرعي استخدامه في روتين فرعي آخر، مثل الروتين فرعي Auto_Close. تعريف واستخدام المتغير بهذه الطريقة إعادة تعيين شريط القوائم السابق الخاص بالمستخدم إلى حالته الأصلية. نموذج الماكرو التالي بإعادة تعيين شريط القوائم:
Public OriginalMenuBar as Object
Sub MenuBars_Capture()
Set OriginalMenuBar = CommandBars.ActiveMenuBar
End Sub

العودة إلى أعلى

إنشاء شريط أوامر مخصص

تعمل التعليمة البرمجية الموجودة في المثال التالي يقوم بإنشاء شريط أوامر مخصص يسمى جهاز شريط الأوامر:
Sub MenuBar_Create() Application.CommandBars.Add Name:="My command bar" End Sub

يمكنك أيضا إنشاء شريط أوامر مخصص عن طريق استخدام المؤقتة: = True وسيطة. المؤقتة: = True وسيطة أشرطة الأوامر يتم إعادة تعيين تلقائياً عندما تقوم بإنهاء Excel. تستخدم التعليمة البرمجية التالية المؤقتة: = True لإنشاء شريط أوامر مخصص:
Sub MenuBar_Create()Application.CommandBars.Add Name:="My command bar", Temporary:=True
End Sub
العودة إلى أعلى

عرض شريط أوامر مخصص

المثال التالي يقوم بإنشاء وعرض شريط القوائم مخصص My Custom Bar ويستبدل شريط القوائم المضمن:
Sub MenuBar_Show()Dim myNewBar As Object
Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
' You must first enable your custom menu bar before you make it visible.
' Enabling a menu bar adds it to the list of available menu bars on
' the Customize dialog box.
' Setting the menubar property to True replaces the built-in menu bar.
myNewBar.Enabled = True
myNewBar.Visible = True
End Sub


العودة إلى أعلى

حذف شريط أوامر مخصص

تعمل التعليمة البرمجية الموجودة في المثال التالي على حذف شريط القوائم المخصص المسمى Custom 1:
Sub MenuBar_Delete()   CommandBars("Custom1").Delete
End Sub


العودة إلى أعلى

إخفاء شريط أوامر

مثال التعليمات البرمجية التالي يزيل المضمنة
شريط قوائم التخطيط من قائمة أشرطة القوائم المتوفرة:
Sub MenuBar_Display()   CommandBars("Chart").Enabled = False
End Sub

العودة إلى أعلى

عرض شريط أوامر

مثال التعليمات البرمجية التالي يضيف المضمنة
شريط قوائم التخطيط من قائمة أشرطة القوائم المتوفرة:
Sub MenuBar_Display()   CommandBars("Chart").Enabled = True
End Sub

العودة إلى أعلى

استعادة شريط أوامر مضمن

استعادة شريط قوائم إلى إعادة تعيين عناصر التحكم الافتراضية (لكل من القوائم وعناصر القوائم). تعمل التعليمة البرمجية الموجودة في المثال التالي على استعادة المضمنة
شريط قوائم التخطيط :
Sub MenuBar_Restore()   CommandBars("Chart").Reset
End Sub
ملاحظة: يمكنك فقط إعادة تعيين أشرطة القوائم المضمنة. لا يمكنك إعادة تعيين شريط قوائم مخصص.

العودة إلى أعلى

القوائم

استعادة شريط قوائم إلى إعادة تعيين عناصر التحكم الافتراضية (لكل من القوائم وعناصر القوائم). تعمل التعليمة البرمجية الموجودة في المثال التالي على استعادة المضمنة
شريط قوائم التخطيط :
Sub MenuBar_Restore()   CommandBars("Chart").Reset
End Sub
ملاحظة: يمكنك فقط إعادة تعيين أشرطة القوائم المضمنة. لا يمكنك إعادة تعيين شريط قوائم مخصص.

العودة إلى أعلى

إضافة عنصر تحكم قائمة مخصصة إلى شريط أوامر

تعمل التعليمة البرمجية الموجودة في المثال التالي على إضافة اسم القائمة التي تقوم بإضافتها برمجياً إلى شريط قوائم ورقة العمل . على سبيل المثال، إضافة هذه التعليمة البرمجية القائمة اسم القائمة الجديدة
شريط قوائم ورقة العمل .

ملاحظة: يمكنك إعطاء هذه القائمة أي اسم تريده.
Sub Menu_Create()Dim myMnu As Object
Set myMnu = CommandBars("Worksheet menu bar").Controls. _
Add(Type:=msoControlPopup, before:=3)
With myMnu
' The "&" denotes a shortcut key assignment (Alt+M in this case).
.Caption = "New &Menu"
End With
End Sub


العودة إلى أعلى

تعطيل عنصر تحكم قائمة على شريط أوامر

عنصر تحكم قائمة المعطل يظهر بلون خافت ولا يتوفر على شريط أوامر. المثال التالي على تعطيل القائمة New menu:
Sub Menu_Disable()   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False
End Sub

العودة إلى أعلى

تمكين عنصر تحكم قائمة على شريط أوامر

تعمل التعليمة البرمجية الموجودة في المثال التالي بتمكين القائمة القائمة الجديد الذي قمت بتعطيله في قسم "تعطيل عنصر تحكم قائمة على شريط أوامر":
Sub Menu_Disable()   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True
End Sub

العودة إلى أعلى

حذف عنصر تحكم قائمة على شريط أوامر

مثال التعليمات البرمجية التالي على حذف القائمة القائمة الجديد الذي قمت بإنشائه في قسم "إضافة عنصر تحكم قائمة مخصصة إلى شريط أوامر" من شريط قوائم ورقة العمل :
Sub Menu_Delete()   CommandBars("Worksheet menu bar").Controls("New &Menu").Delete
End Sub


العودة إلى أعلى

استعادة عنصر تحكم قائمة على شريط أوامر

تعمل التعليمة البرمجية الموجودة في المثال التالي على استعادة المضمنة
مخطط شريط القوائم على شريط قوائم ورقة العمل :

Sub Menu_Restore()Dim myMnu As Object
Set myMnu = CommandBars("Chart")
myMnu.Reset
End Sub

العودة إلى أعلى

الأوامر

يعتمد نطاق التعديلات التي يمكنك إجراؤها على أحد أوامر على نوع عنصر التحكم. وبوجه عام، أما تمكين الأزرار أو مخفية. مربعات التحرير ومربعات القوائم المنسدلة ومربعات التحرير والسرد أكثر تنوعاً في أنه يمكنك إضافة أو حذف عناصر من القائمة. بالإضافة إلى ذلك، يمكنك تحديد الإجراء الذي تم تنفيذه بالنظر إلى قيمة العناصر التي قمت بتحديدها من القائمة. يمكنك تغيير الإجراء الخاص بأي عنصر تحكم لدالة مضمنة أو دالة مخصصة.

يسرد الجدول التالي الخصائص الأكثر شيوعاً لعنصر تحكم وأساليب تغيير الحالة أو الإجراء أو محتويات عنصر تحكم:
الخاصية أو الأسلوبالغرض
إضافةإضافة أمر إلى شريط أوامر.
AddItemإضافة عنصر إلى جزء القائمة المنسدلة لمربع القائمة المنسدلة أو مربع التحرير والسرد.
نمطتحديد ما إذا كان وجه الزر يعرض رمز أو تسمية توضيحية.
OnActionتحديد الإجراء الذي يتم تشغيله عندما يقوم المستخدم بتغيير قيمة عنصر التحكم.
مرئيةتحديد ما إذا كان عنصر التحكم مرئياً أم مخفياً.

لمزيد من المعلومات حول القوائم في Excel 2003 و Excel 2002، اتبع الخطوات التالية:
  1. بدء تشغيل محرر البرامج النصية ل Visual Basic.
  2. من القائمة تعليمات ، انقر فوق تعليمات Microsoft Visual Basic.
  3. في مربع تعليمات البحث ، اكتب
    القوائمومن ثم اضغط ENTER.
  4. انقر فوق إضافة وإدارة أشرطة القوائم وعناصر القوائم (المكتب).

العودة إلى أعلى

إضافة شريط فاصل إلى عنصر تحكم القائمة

تعمل التعليمة البرمجية الموجودة في المثال التالي على إضافة شريط فاصل قبل الأمر ورقة عمل في القائمة إدراج :
Sub menuItem_AddSeparator()   CommandBars("Worksheet menu bar").Controls("Insert") _
.Controls("Worksheet").BeginGroup = True
End Sub
ملاحظة: لإزالة شريط فاصل، تعيين الخاصية بيجينجروب إلى False.

العودة إلى أعلى

إنشاء عنصر تحكم أمر مخصص في قائمة

تعمل التعليمة البرمجية الموجودة في المثال التالي على إنشاء أمر جديد يسمى Custom1 على القائمة " أدوات "
شريط قوائم ورقة العمل ، ثم تشغيل الماكرو Code_Custom1 عند النقر فوق Custom1:
Sub menuItem_Create()   With CommandBars("Worksheet menu bar").Controls("Tools")
.Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Custom1"
.Controls("Custom1").OnAction = "Code_Custom1"
End With
End Sub

العودة إلى أعلى

وضع علامة الاختيار بجانب عنصر تحكم أمر

تعمل التعليمة البرمجية الموجودة في المثال التالي يضع علامة اختيار إلى جانب الأمر Custom1 إذا كان غير محدد وإزالة علامة الاختيار إذا تم تحديد الأمر Custom1 :
Sub menuItem_checkMark()Dim myPopup as Object

Set myPopup = CommandBars("Worksheet menu bar").Controls("Tools")
If myPopup.Controls("Custom1").State = msoButtonDown Then
' Remove check mark next to menu item.
myPopup.Controls("Custom1").State = msoButtonUp
MsgBox "Custom1 is now unchecked"
Else
' Add check mark next to menu item.
myPopup.Controls("Custom1").State = msoButtonDown
MsgBox "Custom1 is now checked"
End If
End Sub

العودة إلى أعلى

تعطيل عنصر تحكم أمر على شريط أوامر

تعمل التعليمة البرمجية الموجودة في المثال التالي على تعطيل الأمر Custom1 الذي قمت بإنشائه في القائمة " أدوات " في مقطع "إنشاء عنصر تحكم أمر مخصص في قائمة":
Sub MenuItem_Disable()Dim myCmd as Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
myCmd.Controls("Custom1").Enabled = False
End Sub

العودة إلى أعلى

تمكين عنصر تحكم أمر على شريط أوامر

تعمل التعليمة البرمجية الموجودة في المثال التالي على تمكين الأمر Custom1 الذي قمت بتعطيله في قسم "تعطيل عنصر تحكم أمر على شريط أوامر":
Sub MenuItem_Enable()Dim myCmd as Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
myCmd.Controls("Custom1").Enabled = True
End Sub


العودة إلى أعلى

حذف عنصر تحكم أمر في قائمة

تعمل التعليمة البرمجية الموجودة في المثال التالي على حذف الأمر حفظ في القائمة ملف :
Sub menuItem_Delete()Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("File")
myCmd.Controls("Save").Delete
End Sub


العودة إلى أعلى

استعادة عنصر تحكم أمر مضمن في قائمة

لاستعادة عنصر تحكم أمر في قائمة، يجب معرفة رقم تعريف (ID) لعنصر التحكم. لتحديد رقم المعرف، راجع مقطع "إعادة معرف لعنصر تحكم شريط أوامر". المثال التالي يحذف وثم استعادة حفظ الأمر الذي قمت بحذفه في المقطع "حذف عنصر تحكم أمر في قائمة":
Sub menuItem_Restore()Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("File")
' Id 3 refers to the Save menu item control.
myCmd.Controls.Add Type:=msoControlButton, ID:=3, Before:=5
End Sub

العودة إلى أعلى

القوائم الفرعية

تظهر القوائم الفرعية بجوار القائمة الأصلية عندما انقر فوق أحد أوامر. يحتوي أمر الذي يعتبر عنصر تحكم قائمة فرعية على سهم أسود صغير موجود على يسار اسم الأمر.

العودة إلى أعلى

إضافة قائمة فرعية

تعمل التعليمة البرمجية الموجودة في المثال التالي على إضافة قائمة فرعية جديدة تسمى
NewSub إلى القائمة " أدوات "، على
شريط قوائم ورقة العمل :
Sub SubMenu_Create()Dim newSub as Object
Set newSub = CommandBars("Worksheet menu bar").Controls("Tools")
With newSub
.Controls.Add(Type:=msoControlPopup, Before:=1).Caption="NewSub"
End With
End Sub

العودة إلى أعلى

إضافة أمر إلى قائمة فرعية

تعمل التعليمة البرمجية الموجودة في المثال التالي على إضافة أمر جديد يسمى
SubItem1 إلى القائمة الفرعية NewSub ، ومن ثم تشغيل الماكرو Code_SubItem1 عند النقر فوق SubItem1:
Sub SubMenu_AddItem()Dim newSubItem as Object
Set newSubItem = CommandBars("Worksheet menu bar") _
.Controls("Tools").Controls("NewSub")
With newSubItem
.Controls.Add(Type:=msoControlButton, Before:=1).Caption = "SubItem1"
.Controls("SubItem1").OnAction = "Code_SubItem1"
End With
End Sub


العودة إلى أعلى

تعطيل عنصر تحكم أمر في قائمة فرعية

تعمل التعليمة البرمجية الموجودة في المثال التالي على تعطيل نفس الأمر SubItem الذي قمت بإنشائه في قسم "إضافة أمر إلى قائمة فرعية":
Sub SubMenu_DisableItem()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Controls("SubItem1").Enabled = False
End Sub


المثال التالي بتمكين نفس الأمر SubItem:
Sub SubMenu_DisableItem()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Controls("SubItem1").Enabled = True
End Sub

العودة إلى أعلى

حذف أمر من قائمة فرعية

المثال التالي يحذف الأمر SubItem1 الذي قمت بإنشائه في القائمة الفرعية NewSub في قسم "إضافة أمر إلى قائمة فرعية":
Sub SubMenu_DeleteItem()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Controls("SubItem1").Delete
End Sub


العودة إلى أعلى

تعطيل عنصر تحكم قائمة فرعية

تعمل التعليمة البرمجية الموجودة في المثال التالي على تعطيل القائمة الفرعية NewSub الذي قمت بإنشائه في القائمة " أدوات " في قسم "إضافة قائمة فرعية":
Sub SubMenu_DisableSub()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Enabled = False
End Sub
ملاحظة: لتمكين عنصر التحكم المعطل، تعيين الخاصية Enabled إلى True.

العودة إلى أعلى

حذف عنصر تحكم قائمة فرعية

تعمل التعليمة البرمجية الموجودة في المثال التالي على حذف القائمة الفرعية NewSub الذي قمت بإنشائه في القائمة " أدوات " في قسم "إضافة قائمة فرعية":
Sub SubMenu_DeleteSub()   CommandBars("Worksheet menu bar").Controls("Tools") _
.Controls("NewSub").Delete
End Sub

العودة إلى أعلى

أشرطة القوائم المختصرة

قائمة مختصرة هو شريط أوامر عائم يظهر عندما يقوم المستخدم زر الماوس الأيمن فوق كائن. شريط قوائم مختصرة يمكن أن تحتوي على نفس أنواع عناصر التحكم على شريط أوامر وتعمل عناصر التحكم بنفس عناصر التحكم الموجودة على شريط أوامر. لا يمكن إنشاء أو تعديل القوائم المختصرة من واجهة البرنامج في معظم البرامج. ولذلك، يجب إنشاء وتعديل القوائم المختصرة الخاصة بك في وقت التشغيل.

لمزيد من المعلومات حول القوائم المختصرة في Excel 2002 و Excel 2003، اتبع الخطوات التالية:
  1. بدء تشغيل محرر البرامج النصية ل Visual Basic.
  2. من القائمة تعليمات ، انقر فوق تعليمات Microsoft Visual Basic.
  3. في مربع تعليمات البحث ، اكتب
    المختصرة، واضغط على ENTER.
  4. انقر فوق إضافة وعرض القوائم المختصرة.
العودة إلى أعلى

إنشاء شريط قوائم مختصرة جديد

تعمل التعليمة البرمجية الموجودة في المثال التالي يقوم بإنشاء شريط قوائم مختصرة جديد يسمى myShortcutBar:
Sub Shortcut_Create()Dim myShtCtBar as Object
Set myShtCtBar = CommandBars.Add(Name:="myShortcutBar", _
Position:=msoBarPopup)
‘ This displays the shortcut menu bar.
‘ 200, 200 refers to the screen position in pixels as x and y coordinates.
myShtCtBar.ShowPopup 200,200
End Sub


ملاحظة: يظهر شريط القوائم المختصرة فارغاً لأنه يتم إضافة أية عناصر تحكم (عناصر قوائم أو قوائم فرعية) إليه.

العودة إلى أعلى

قوائم مختصرة

تظهر أشرطة القوائم المختصرة عند استخدام زر الماوس الأيمن فوق كائن Excel محدد. يحتوي Excel على العديد من أشرطة القوائم المختصرة التي تتوفر مجموعة متنوعة من القوائم. يمكنك أيضا إنشاء أشرطة القوائم المختصرة المخصصة وتخصيص أشرطة القوائم المضمنة.

العودة إلى أعلى

إنشاء أمر على شريط قوائم مختصرة

تعمل التعليمة البرمجية الموجودة في المثال التالي على إنشاء أمر قائمة جديد يسمى Item1 على شريط القوائم المختصرة myShortcutBar وتشغيل الماكرو Code_Item1 عند النقر فوق Item1:
Sub Shortcut_AddItem()Dim myBar as Object
Set myBar = CommandBars("myShortcutBar")
With myBar
.Controls.Add (Type:=msoControlButton, before:=1).Caption = "Item1"
.Controls("Item1").OnAction = "Code_Item1"
End With
myBar.ShowPopup 200,200
End Sub

العودة إلى أعلى

تعطيل عنصر تحكم أمر على شريط قوائم مختصرة

تعمل التعليمة البرمجية الموجودة في المثال التالي على تعطيل الأمر Item1 الذي قمت بإنشائه في قسم "إنشاء أمر في قائمة مختصرة":
Sub Shortcut_DisableItem()   Set myBar = CommandBars("myShortcutBar")
myBar.Controls("Item1").Enabled = False
myBar.ShowPopup 200,200
End Sub
ملاحظة: لتمكين العنصر المعطل، تعيين الخاصية Enabled إلى True.

العودة إلى أعلى

حذف أمر على شريط قوائم مختصرة

تعمل التعليمة البرمجية الموجودة في المثال التالي على حذف أمر القائمة يسمى Item1 على شريط القوائم المختصرة myShortcutBar :
Sub Shortcut_DeleteItem()   Set myBar = CommandBars("myShortcutBar")
myBar.Controls("Item1").Delete
myBar.ShowPopup 200,200
End Sub

العودة إلى أعلى

حذف شريط قوائم مختصرة

حذف شريط القوائم المختصرة إلى إزالة كافة العناصر. لا يمكنك استعادة شريط قوائم مخصص تم حذفه. لاستعادته، يجب إعادة إنشاء ذلك وعناصر القوائم والقوائم الفرعية.

تعمل التعليمة البرمجية الموجودة في المثال التالي على حذف شريط القوائم المختصرة myShortCutBar الذي قمت بإنشائه في قسم "إنشاء أمر على شريط قوائم مختصرة":
Sub Shortcut_DeleteShortCutBar()   CommandBars("MyShortCutBar").Delete
End Sub

العودة إلى أعلى

استعادة أمر على شريط قوائم مختصرة مضمن

تعمل التعليمة البرمجية الموجودة في المثال التالي على استعادة الأوامر الافتراضية على شريط القوائم المختصرة خلية ورقة العمل:
Sub Shortcut_RestoreItem()   CommandBars("Cell").Reset
End Sub

العودة إلى أعلى

القوائم الفرعية في القوائم المختصرة

يمكنك إنشاء قوائم فرعية على اختصار أشرطة القوائم. تظهر القوائم الفرعية بجوار القائمة الأصلية عندما تنقر فوق عنصر تحكم أمر. يحتوي أمر الذي يعتبر عنصر تحكم قائمة فرعية سهم أسود صغير موجود على يمين اسمه.

العودة إلى أعلى

إنشاء قائمة فرعية جديدة على شريط قوائم مختصرة

المثال التالي على إضافة قائمة فرعية جديدة تسمى
NewSub القائمة المختصرة خلية ورقة العمل:

Sub ShortcutSub_Create()   CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1) _
.Caption = "NewSub"
' This displays the shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub
ملاحظة: القائمة الفرعية لأنه فارغ إضافة أية عناصر قوائم إليها.

العودة إلى أعلى

إنشاء عنصر تحكم أمر في قائمة فرعية موجودة على شريط قوائم مختصرة

الماكرو التالي على إضافة الأمر SubItem1 إلى القائمة الفرعية NewSub إنشاء القائمة المختصرة الخلية ، وثم يتم تشغيل الماكرو Code_SubItem1 عند النقر فوق SubItem1:
Sub ShortcutSub_AddItem()Dim newSubItem as Object
Set newSubItem = CommandBars("Cell").Controls("NewSub”)
With newSubItem
.Controls.Add(Type:=msoControlButton, before:=1).Caption = "subItem1"
' This will run the subItem1_Code macro when subItem1 is clicked.
.Controls("subItem1").OnAction = "Code_subItem1"
End With
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates
CommandBars("Cell").ShowPopup 200, 200
End Sub

العودة إلى أعلى

تعطيل عنصر تحكم لعنصر قائمة فرعية في قائمة مختصرة

تعمل التعليمة البرمجية الموجودة في المثال التالي على تعطيل الأمر SubItem1 على القائمة الفرعية NewSub :
Sub ShortcutSub_DisableItem()   CommandBars("Cell").Controls("NewSub") _
.Controls("subItem1").Enabled = False
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub
ملاحظة: لتمكين عنصر معطل، تعيين الخاصية Enabled إلى True.

العودة إلى أعلى

حذف عنصر تحكم لعنصر قائمة فرعية في قائمة مختصرة

المثال التالي طريقة حذف الأمر SubItem1 على القائمة الفرعية NewSub :
Sub ShortcutSub_DeleteItem()   CommandBars("Cell").Controls("NewSub").Controls("subItem1").Delete
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub


العودة إلى أعلى

تعطيل عنصر تحكم قائمة فرعية في قائمة مختصرة

تعمل التعليمة البرمجية الموجودة في المثال التالي على تعطيل القائمة الفرعية NewSub على شريط القوائم المختصرة الخلية :
Sub ShortcutSub_DisableSub()   CommandBars("Cell").Controls("NewSub").Enabled = False
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub
ملاحظة: لتمكين عنصر معطل، تعيين الخاصية Enabled إلى True.

العودة إلى أعلى

حذف عنصر تحكم قائمة فرعية في قائمة مختصرة

تعمل التعليمة البرمجية الموجودة في المثال التالي على حذف القائمة الفرعية NewSub التي قمت بإنشائها على شريط القوائم المختصرة الخلية :
Sub ShortcutSub_DeleteSub()   CommandBars("Cell").Controls("NewSub").Delete
' This displays the Cell shortcut menu bar.
' 200, 200 refers to the screen position in pixels as x and y coordinates.
CommandBars("Cell").ShowPopup 200, 200
End Sub


العودة إلى أعلى

البحث عن مزيد من المعلومات

تتوفر الموارد التالية لتوفير مزيد من المعلومات حول كيفية تخصيص القوائم وأشرطة القوائم في Excel.

العودة إلى أعلى

مستعرض الكائنات

مستعرض الكائن يحتوي على قائمة كاملة بكافة الخصائص والأساليب الخاصة بأمر محدد. للبحث عن هذه المعلومات، قم بالتبديل إلى محرر Visual Basic (اضغط ALT + F11)، انقر فوق مستعرض الكائنات في القائمة عرض (أو اضغط F2)، اكتب اسم عنصر التحكم في مربع البحث ، ثم اضغط مفتاح الإدخال ENTER أو انقر فوق
البحث.

العودة إلى أعلى

قاعدة معارف Microsoft

قاعدة معارف Microsoft مصدر معلومات منتج Microsoft أساسي أخصائيو الدعم لدى Microsoft Product Support Services. يتوفر أيضا Microsoft Knowledge Base إلى عملاء Microsoft. هذه قاعدة بيانات شاملة تحتوي على مقالات مفصلة بمعلومات فنية حول منتجات Microsoft والإصلاح موثقة قوائم، أخطاء الوثائق، وإجابات على أسئلة الدعم الفني.

للاتصال إلى "قاعدة المعارف ل Microsoft"، قم بزيارة موقع Microsoft التالي على الويب، ومن ثم اتبع الإرشادات التي تظهر على الصفحة:العودة إلى أعلى
خصائص

رقم الموضوع: 830502 - آخر مراجعة: 15‏/01‏/2017 - المراجعة: 3

تعليقات