magodey قام بنشر ديسمبر 28, 2007 قام بنشر ديسمبر 28, 2007 بسم الله الرحمن الرحيم كنت بحاجه ملحة لهذا الموضوع و استعرضت المشاركات من الأخوة الأفاضل بخصوص قائمة منسدلة باسماء الصفحات و استعرضت بعض الصفحات الأجنبية لهذا الغرض و وجدت كود رائع يقوم بفتح نافذة Navigate و بها كل صفحات الملف حتى لو أضفت صفحة أخرى. الطريقة سهلة جدا افتح الملف ثم ألصق الكود التالي عن طريق أدوات -----> ماكرو ------> محرر الفيجول بيسك Option Explicit Sub Workbooknewcb() 'create the menubar Dim sht As Worksheet On Error Resume Next Application.CommandBars("Navigate").Delete On Error GoTo 0 With Application.CommandBars.Add("Navigate", , False, True) With .Controls.Add(msoControlDropdown) For Each sht In ActiveWorkbook.Sheets If sht.Visible = xlSheetVisible Then .AddItem "" & sht.Name End If Next sht .TooltipText = "SheetNavigate" .OnAction = "Sheet_Navigate" End With .Protection = msoBarNoCustomize .Position = msoBarFloating .Visible = True End With End Sub '****************************************************** Private Sub Sheet_Navigate() 'navigate to selected sheet Dim stActiveSheet As String With CommandBars.ActionControl stActiveSheet = .List(.ListIndex) End With Worksheets("" & stActiveSheet).Activate End Sub ثم اذهب لصفحة في الملف و قم بعمل زر أو شكل تلقائي ثم كلك يمين و تعيين ماكرو و اختارالماكرو الذي به الكود عند الضغط على الشكل ستظهر لك نافذة صعيرة بها سهم عند الضغط عليه ستظهر كل الصفحات و الأجمل هو انه بإمكانك سحب هذه النافذة بجانب أشرطة الأدوات لتصبح جزء منها و إليكم ملف نموذج لاتنسونا من دعوة صالحة و لكل من يشارك بعلمه من أساتذتنا في هذا المنتدى الرائع الذي حولني من شخص لا يعرف من الإكسيل إلا اسمه إلى باحث في الأكواد navigate.zip
ابو اسامة العينبوسي قام بنشر ديسمبر 28, 2007 قام بنشر ديسمبر 28, 2007 السلام عليكم 100% 10/10 A+++++ كل الاشياء الجميله
h63 قام بنشر ديسمبر 28, 2007 قام بنشر ديسمبر 28, 2007 السلام عليكم اخى الفاضل ماشاء الله عليك والى الامام لو ممكن اسم الصفحة التى بها الاكواد او اى صفحات اخرى عندك ضرورى هشام
magodey قام بنشر ديسمبر 28, 2007 الكاتب قام بنشر ديسمبر 28, 2007 بسم الله الرحمن الرحيم أخي العزيز أبو أسامه هذه شهادة أعنز بها و جزاك الله الخير الكثير أخي الكريم h63 البحث عن كود معين أو معلومة متوفر على الانترنت و لفضل الله علي أنني ملم بـ اللغة الإنجليزية مم يسهل علي الكثير و عندما بحثت عن هذا الموضوع كتبت في جوجل using combo box to select sheets و طلعت لي صفحات كثيرة و من ضمن المواقع الرائعة موقع mrexcel و هذه الصفحة به موضوعات عديدة جدا http://www.mrexcel.com/favorites.html
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.