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

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

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

في هذه المهمة

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

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

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

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

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

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

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

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

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

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

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

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

فيما يلي قائمة بثوابت عناصر التحكم المتنوعة في Excel 2003 والتي تحدد نوع عنصر التحكم الرسومي المطلوب استخدامه مع عنصر تحكم شريط قوائم محدد:
  • MsoControlActiveX*
  • MsoControlAutoCompleteCombo***
  • MsoControlButton
  • MsoControlButtonDropdown
  • MsoControlButtonPopup
  • MsoControlComboBox
  • MsoControlCustom
  • MsoControlDropdown
  • MsoControlEdit
  • MsoControlExpandingGrid
  • MsoControlGauge
  • MsoControlGenericDropdown
  • MsoControlGraphicCombo
  • MsoControlGraphicDropdown
  • MsoControlGraphicPopup
  • MsoControlGrid
  • MsoControlLabel
  • MsoControlLabelEx***
  • MsoControlOCXDropDown
  • MsoControlPane **
  • MsoControlPopup
  • MsoControlSpinner***
  • MsoControlSplitButtonMRUPopup
  • MsoControlSplitButtonPopup
  • MsoControlSplitDropdown
  • MsoControlSplitExpandingGrid
  • MsoControlWorkPane**
* = جديد في Microsoft Excel 2000
** = جديد في Microsoft Excel 2002
*** = جديد في Microsoft Office Excel 2003

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

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

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

لمزيد من المعلومات حول كيفية إدارة أشرطة القوائم وعناصر القوائم في Excel، اتبع الخطوات التالية:
  1. قم بتشغيل محرر Microsoft Visual Basic.
  2. من القائمة Help، انقر فوق تعليمات Microsoft Visual Basic.
  3. في المربع مساعد Office أو في المربع معالج الإجابة، اكتب Menu bars، ثم انقر فوق بحث.
  4. في Excel 2003 وExcel 2002، انقر فوق Adding and Managing Menu Bars and Menu Items. في Excel 2000، انقر فوق About menus and toolbars.
يمكنك إجراء تعديلات على كل من شريط القوائم وعناصر التحكم الموجودة على شريط القوائم هذا في وقت التشغيل. وقد تؤثر هذه التغييرات التي تقوم بها على شريط القوائم على مظهره أو موضعه. بينما تعتمد التغييرات التي تقوم بها على عناصر التحكم على نوع عنصر التحكم. يسرد الجدول التالي الخصائص الأكثر شيوعًا والطرق الشائعة لتغيير الحالة أو الإجراء أو محتويات عنصر تحكم:
الخاصية أو الطريقةالغرض
Addإضافة شريط قوائم باستخدام الأسلوب Add الخاص بمجموعة كائنات CommandBars وبتحديد القيمة TRUE لوسيطة Menubar.
Enabledفي حالة تعيين الخاصية Enabled إلى القيمة TRUE، يمكن للمستخدم أن يجعل شريط القوائم المحدد مرئيًا باستخدام التعليمات البرمجية لـ Visual Basic. في حالة تعيين الخاصية Enabled إلى القيمة FALSE، لا يمكن للمستخدم أن يجعل شريط القوائم مرئيًا. ومع ذلك، سيظهر شريط القوائم في قائمة أشرطة القوائم المتوفرة.
Protectionتتيح لك إمكانية حماية شريط القوائم من إجراءات مستخدم محددة.
Positionتحديد موضع شريط القوائم الجديد بالنسبة لإطار البرنامج. قد يكون موضع شريط القوائم بالنسبة لإطار البرنامج واحدة من خصائص الثابت MsoBarPosition: msoBarLeft أو msoBarTop أو msoBarRight أو msoBarBottom أو msoBarFloating أو msoBarPopup (المستخدمة لإنشاء القوائم المختصرة) أو msoBarMenuBar (للاستخدام مع Apple Macintosh فقط).
Visibleتحديد ما إذا كان عنصر التحكم مرئيًا أم مخفيًا.

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

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

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

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

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

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

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

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

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

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

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

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

يمكنك أيضًا إنشاء شريط أوامر مخصص عن طريق استخدام الوسيطة Temporary:=True. تسمح الوسيطة Temporary:=True بإعادة تعيين أشرطة الأوامر تلقائيًا عندما تقوم بإنهاء Excel. تستخدم التعليمة البرمجية التالية الوسيطة Temporary:=True لإنشاء شريط أوامر مخصص:
Sub MenuBar_Create()Application.CommandBars.Add Name:="My command bar", Temporary:=TrueEnd 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 = TrueEnd Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

القوائم

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

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

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

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

ملاحظة يمكنك تسمية هذه القائمة كما تريد.
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 WithEnd Sub

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

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

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

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

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

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

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

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

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

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

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

تعمل التعليمة البرمجية الموجودة في المثال التالي على استعادة شريط القوائم المضمن Chart على شريط القوائم Worksheet:
Sub Menu_Restore()Dim myMnu As Object   Set myMnu = CommandBars("Chart")   myMnu.ResetEnd Sub

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

الأوامر

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

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

لمزيد من المعلومات حول القوائم في Excel 2003 وExcel 2002، رجاء اتباع الخطوات التالية:
  1. قم بتشغيل محرر Visual Basic Script.
  2. من القائمة Help، انقر فوق تعليمات Microsoft Visual Basic.
  3. في المربع تعليمات البحث، اكتب menus، ثم اضغط مفتاح ENTER.
  4. انقر فوق Adding and Managing Menu Bars and Menu Items (Office).

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

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

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

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

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

تعمل التعليمة البرمجية الموجودة في المثال التالي على إنشاء أمر جديد يسمى Custom1 في القائمة Tools على شريط القوائم Worksheet ثم يتم تشغيل الماكرو 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 WithEnd 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 IfEnd Sub

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

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

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

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

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

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

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

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

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

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

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

لاستعادة عنصر تحكم أمر في قائمة، يجب معرفة رقم المعرف الخاص بعنصر التحكم. لتحديد رقم المعرف، راجع قسم "إعادة معرف لعنصر تحكم شريط أوامر". يوضح المثال التالي طريقة حذف الأمر Save ثم استعادته وهو الأمر الذي قمت بحذفه في قسم "حذف عنصر تحكم أمر من قائمة":
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:=5End Sub

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

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

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

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

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

تعمل التعليمة البرمجية الموجودة في المثال التالي على إضافة قائمة فرعية جديدة تسمى NewSub إلى القائمة Tools الموجودة على شريط القوائم Worksheet:
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 WithEnd 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 WithEnd Sub

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

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

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


يوضح المثال التالي طريقة تمكين نفس الأمر SubItem:
Sub SubMenu_DisableItem()   CommandBars("Worksheet menu bar").Controls("Tools") _   .Controls("NewSub").Controls("SubItem1").Enabled = TrueEnd Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تعمل التعليمة البرمجية الموجودة في المثال التالي على إنشاء شريط قوائم مختصرة جديد يسمى 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,200End 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,200End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تعمل التعليمة البرمجية الموجودة في المثال التالي على إضافة قائمة فرعية جديدة تسمى NewSub على القائمة المختصرة Cell الخاصة بورقة العمل:
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, 200End Sub
ملاحظة تظهر القائمة الفرعية فارغة نظرًا لأنه لم تتم إضافة أية عناصر قوائم إليها.

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

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

يعمل الماكرو التالي على إضافة الأمر SubItem1 إلى القائمة الفرعية NewSub التي قمت بإنشائها في القائمة المختصرة Cell، ثم يتم تشغيل الماكرو 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, 200End 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, 200End 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, 200End Sub

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

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

تعمل التعليمة البرمجية الموجودة في المثال التالي على تعطيل القائمة الفرعية NewSub الموجودة بشريط القوائم المختصرة Cell:
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, 200End Sub
ملاحظة لتمكين عنصر معطل، قم بتعيين الخاصية Enabled إلى القيمة True.

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

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

تعمل التعليمة البرمجية الموجودة في المثال التالي على حذف القائمة الفرعية NewSub التي قمت بإنشائها بشريط القوائم المختصرة Cell:
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, 200End Sub

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

الحصول على المزيد من المعلومات

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

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

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

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

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

قاعدة المعارف لـ Microsoft

تعتبر "قاعدة المعارف لـ Microsoft" أحد مصادر المعلومات الرئيسية الخاصة بمنتجات Microsoft لأخصائيي دعم خدمات دعم منتجات Microsoft. كما تتوفر قاعدة المعارف لـ Microsoft أيضًا لعملاء Microsoft. تحتوي قاعدة البيانات الشاملة على مقالات مفصلة بمعلومات فنية حول منتجات Microsoft وقوائم بالإصلاحات الموثقة وأخطاء الوثائق وإجابات عن الأسئلة الشائعة المتعلقة بالدعم الفني.

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

رقم الموضوع: 830502 - آخر مراجعة: 12/08/2015 05:07:10 - المراجعة: 4.1

Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition

  • kbnosurvey kbarchive kbhowtomaster KB830502
تعليقات