عادل حنفي قام بنشر نوفمبر 14, 2009 مشاركة قام بنشر نوفمبر 14, 2009 (معدل) السلام عليكم بناء علي طلب احد الاخوه ولاهمية الموضوع و لسهولة الرجوع اليه تم عمله بموضوع جديد من محرر الاكواد و في محرر اكواد 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 1 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 14, 2009 مشاركة قام بنشر نوفمبر 14, 2009 السلام عليكم بارك الله فيك اخي عادل تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر نوفمبر 14, 2009 مشاركة قام بنشر نوفمبر 14, 2009 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر نوفمبر 14, 2009 مشاركة قام بنشر نوفمبر 14, 2009 السلام عليكم كود ممتاز أستاذي عادل جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 14, 2009 الكاتب مشاركة قام بنشر نوفمبر 14, 2009 (معدل) السلام عليكم اخي العزيز خبور يسعدني مرورك دائما ادامك الله بكل صحة و عافية اخي محمدي بارك الله فيك و اشكرك علي كلماتك اخي سالم شباني بارك الله فيك و اشكرك علي كلماتك خالص تحياتي و تقديري تم تعديل نوفمبر 16, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر نوفمبر 14, 2009 مشاركة قام بنشر نوفمبر 14, 2009 السلام عليكم و رحمة الله وبركاته كود رائع و عمل جميل جدا جزاك الله كل خير وبارك فيك و زادك من علمه وفضله رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 14, 2009 الكاتب مشاركة قام بنشر نوفمبر 14, 2009 السلام عليكم اخي الحبيب احمد يعقوب تكتمل دائما سعادتي بمرورك ادامك الله بكل خير تحياتي رابط هذا التعليق شارك More sharing options...
زياد علي قام بنشر نوفمبر 15, 2009 مشاركة قام بنشر نوفمبر 15, 2009 السلام عليكم بارك الله فيك اخي عادل كود جميل ورائع ومشاركة متميزة اخرى تضيفها للمنتدى على غرار مشاركاتك السابقة ،،، اسأل الله العلي القدير أن يجعلها في ميزان حسناتك وان لا تغيب عن منتدانا الحبيب إلينا جميعاً وان يمتعك الباري عز وجل بوافر الصحة والعافية لكم مني كل الاحترام والمودة رابط هذا التعليق شارك More sharing options...
simsim717 قام بنشر نوفمبر 15, 2009 مشاركة قام بنشر نوفمبر 15, 2009 يعطيك ألف عافية يا عسل والله ما نستغني عنكم الله يكتب أجرك ويجعل مثواك الجنة رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 15, 2009 الكاتب مشاركة قام بنشر نوفمبر 15, 2009 السلام عليكم اخي ziad ali اشكرك اخي علي كلماتك التي لا اجد لها رد يليق بها فخالص تحياتي وحبي و تقديري اخي simsim717 و الله انت اللي عسل خالص تقديري و تحياتي رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر نوفمبر 16, 2009 مشاركة قام بنشر نوفمبر 16, 2009 (معدل) بارك الله فيك أخي عادل وفقك الله إلى ما فيه رضاه تم تعديل ديسمبر 24, 2009 بواسطه mas123 1 رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 16, 2009 الكاتب مشاركة قام بنشر نوفمبر 16, 2009 السلام عليكم اخي mas123 اشكرك اخي علي مرورك الكريم تحياتي رابط هذا التعليق شارك More sharing options...
نايف - م قام بنشر نوفمبر 16, 2009 مشاركة قام بنشر نوفمبر 16, 2009 السلام عليكم مشكور أخي ,حقا موضوع هام رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر نوفمبر 17, 2009 الكاتب مشاركة قام بنشر نوفمبر 17, 2009 السلام عليكم اخي nyef بارك الله فيك و مشكور تحياتي رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر نوفمبر 23, 2009 مشاركة قام بنشر نوفمبر 23, 2009 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر نوفمبر 23, 2009 مشاركة قام بنشر نوفمبر 23, 2009 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
galo قام بنشر ديسمبر 23, 2009 مشاركة قام بنشر ديسمبر 23, 2009 جزاك الله خير رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر ديسمبر 23, 2009 مشاركة قام بنشر ديسمبر 23, 2009 السلام عليكم بارك الله فيك أستاذ الأجيال عادل بمثل هذه الأعمال الرائعة يتفرد المنتدى عن غيره جزاك الله كل خير وزادك من فضله رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر ديسمبر 24, 2009 مشاركة قام بنشر ديسمبر 24, 2009 كود رائع استاذ عادل وهناك طريقة اخرى من خلال تخصيص ----> اوامر----> قائمة جديدة ثم بالماوس ونختار مكان الوضع وبنفس الطرقة نختار الماكرو او اي ادوات اخرى ونظيفه الى القائمة السؤال هو ..... كيفية عمل ذلك في office2007 تقبل تحياتي رابط هذا التعليق شارك More sharing options...
kby قام بنشر يونيو 26, 2010 مشاركة قام بنشر يونيو 26, 2010 مشكور أخي الكريم على الخدمة الرائعة و الدروس المفيدة دمتم في خدمة العلم و المتعلم و الله يزيد في حسناتك . رابط هذا التعليق شارك More sharing options...
الزرقطوني قام بنشر يونيو 26, 2010 مشاركة قام بنشر يونيو 26, 2010 رائع والله رائع كم افرحني هذا العمل الرائع اللهم يارب جازي اخينا عادل وفقك الله لما فيه خير للعباد رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يونيو 27, 2011 الكاتب مشاركة قام بنشر يونيو 27, 2011 السلام عليكم بناء علي طلب احد الاخوة بالرابط التالي ادراج خلية علي مستوي جميع شيتات الملف عند تحديدها تفتح قائمة باسماء جميع الشيتات بالملف و تمكنك للانتقال لاي منهم ارجو التجربة و اخباري النتيجة تحياتي قائمة لكل الشيتات.rar رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر يونيو 27, 2011 مشاركة قام بنشر يونيو 27, 2011 لسلام عليكم ورحمة الله و بركاته الاخ العزيز الاستاذ / عادل حنفي عمل ممتاز .. رائع تسلم الأيادي ... :clapping: بارك الله فيك و جزاك كل خير على مجهودك الطيب و ادعو الله سبحانه و تعالى ان يوفقك دائماً و دمت عوناً للمسلمين و الله المستعان و السلام عليكم ورحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يونيو 27, 2011 مشاركة قام بنشر يونيو 27, 2011 بصراحة الكود اكثر من رائع ولو ان الموضوع قديم لكن لم اجده الا اليوم :') سلمت الايادي يا استاذ عادل تقبل مروري رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يونيو 27, 2011 الكاتب مشاركة قام بنشر يونيو 27, 2011 اخي HaNcOcK بارك الله فيك و مشكور علي مرورك الطيب و مشكور علي الكلمات الطيبة تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.