عمل قائمة بال Menu Bar

[عادل حنفي]

السلام عليكم

بناء علي طلب احد الاخوه

ولاهمية الموضوع و لسهولة الرجوع اليه تم عمله بموضوع جديد

من محرر الاكواد و في محرر اكواد ThisWorkbook

الصق الكود التالي و هو يقوم بعمل قائمة اسمها Adel بها بندين

كل بند له ماكرو الند الاول aa و البند الثاني bb

Private Sub Workbook_Open()

Dim mnbNew As Menu


    Set mnbNew = MenuBars(xlWorksheet).Menus.Add("&Adel")

    mnbNew.MenuItems.Add "All&sheets", "aa"

    mnbNew.MenuItems.Add "Try Me", "bb"

 End Sub

و قم بانشاء مديول جديد و الصق به الكود التالي

Sub aa()

  On Error Resume Next

  Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute

  If Err.Number > 0 Then

    Err.Clear

    Application.CommandBars("Workbook Tabs").ShowPopup

  End If

  On Error GoTo 0


End Sub

Sub bb()

  On Error Resume Next

ActiveSheet.Range("H5") = "Adel.Hanafy"

    Columns("H:H").ColumnWidth = 16.43

    Range("H5").Select

    Selection.Font.Bold = True

    Selection.Font.Italic = True

    Selection.Font.Underline = xlUnderlineStyleSingle

    With Selection.Font

        .Name = "Arial"

        .Size = 11

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleSingle

        .ColorIndex = xlAutomatic

    End With

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    Selection.Font.ColorIndex = 5

End Sub

خالص تحياتي

اضافة قائمة في Menu bar.rar

تم تعديل نوفمبر 14, 2009 بواسطه aah_aah2008

[عبدالله باقشير]

السلام عليكم

بارك الله فيك اخي عادل

تقبل تحياتي وشكري

[محمدي عبد السميع]

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

[سالم شباني]

السلام عليكم

كود ممتاز أستاذي عادل جزاك الله خيرا

[عادل حنفي]

السلام عليكم

اخي العزيز خبور

يسعدني مرورك دائما ادامك الله بكل صحة و عافية

اخي محمدي

بارك الله فيك

و اشكرك علي كلماتك

اخي سالم شباني

بارك الله فيك

و اشكرك علي كلماتك

خالص تحياتي و تقديري

تم تعديل نوفمبر 16, 2009 بواسطه aah_aah2008

[احمدزمان]

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

كود رائع و عمل جميل جدا

جزاك الله كل خير وبارك فيك

و زادك من علمه وفضله

[عادل حنفي]

السلام عليكم

اخي الحبيب احمد يعقوب

تكتمل دائما سعادتي بمرورك

ادامك الله بكل خير

تحياتي

[زياد علي]

السلام عليكم

بارك الله فيك اخي عادل

كود جميل ورائع ومشاركة متميزة اخرى تضيفها للمنتدى

على غرار مشاركاتك السابقة ،،،

اسأل الله العلي القدير أن يجعلها في ميزان حسناتك

وان لا تغيب عن منتدانا الحبيب إلينا جميعاً

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

لكم مني كل الاحترام والمودة

[simsim717]

يعطيك ألف عافية يا عسل والله ما نستغني عنكم

الله يكتب أجرك ويجعل مثواك الجنة

[عادل حنفي]

السلام عليكم

اخي ziad ali

اشكرك اخي علي كلماتك

التي لا اجد لها رد يليق بها

فخالص تحياتي وحبي و تقديري

اخي simsim717

و الله انت اللي عسل

خالص تقديري و تحياتي

[أ / محمد صالح]

بارك الله فيك أخي عادل

وفقك الله إلى ما فيه رضاه

تم تعديل ديسمبر 24, 2009 بواسطه mas123

[عادل حنفي]

السلام عليكم

اخي mas123

اشكرك اخي علي مرورك الكريم

تحياتي

[نايف - م]

السلام عليكم

مشكور أخي ,حقا موضوع هام

[عادل حنفي]

السلام عليكم

اخي nyef

بارك الله فيك و مشكور

تحياتي

[احمد فضيله]

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

[احمد فضيله]

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

[galo]

جزاك الله خير

[خالد القدس]

السلام عليكم

بارك الله فيك أستاذ الأجيال عادل

بمثل هذه الأعمال الرائعة يتفرد المنتدى عن غيره

جزاك الله كل خير وزادك من فضله

[محمد يحياوي]

كود رائع استاذ عادل

وهناك طريقة اخرى من خلال تخصيص ----> اوامر----> قائمة جديدة ثم بالماوس ونختار مكان الوضع

وبنفس الطرقة نختار الماكرو او اي ادوات اخرى ونظيفه الى القائمة

السؤال هو ..... كيفية عمل ذلك في office2007

تقبل تحياتي

[kby]

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

[الزرقطوني]

رائع والله رائع

كم افرحني هذا العمل الرائع

اللهم يارب جازي اخينا عادل

وفقك الله لما فيه خير للعباد

[عادل حنفي]

السلام عليكم

بناء علي طلب احد الاخوة

بالرابط التالي

ادراج خلية علي مستوي جميع شيتات الملف عند

تحديدها تفتح قائمة باسماء جميع الشيتات بالملف

و تمكنك للانتقال لاي منهم

ارجو التجربة و اخباري النتيجة

تحياتي

قائمة لكل الشيتات.rar

[احمد فضيله]

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

الاخ العزيز الاستاذ / عادل حنفي

عمل ممتاز .. رائع

تسلم الأيادي ... :clapping:

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

و ادعو الله سبحانه و تعالى ان يوفقك دائماً

و دمت عوناً للمسلمين

و الله المستعان

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

[عبدالله المجرب]

بصراحة الكود اكثر من رائع ولو ان الموضوع قديم لكن لم اجده الا اليوم :')

سلمت الايادي يا استاذ عادل

تقبل مروري

[عادل حنفي]

اخي HaNcOcK

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

و مشكور علي الكلمات الطيبة

تحياتي