اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

بسم الله الرحمن الرحيم

كنت بحاجه ملحة لهذا الموضوع و استعرضت المشاركات من الأخوة الأفاضل بخصوص قائمة منسدلة باسماء الصفحات

و استعرضت بعض الصفحات الأجنبية لهذا الغرض و وجدت كود رائع يقوم بفتح نافذة 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

قام بنشر

السلام عليكم

اخى الفاضل ماشاء الله عليك والى الامام

لو ممكن اسم الصفحة التى بها الاكواد او اى صفحات اخرى عندك ضرورى

هشام :clapping:

قام بنشر

بسم الله الرحمن الرحيم

أخي العزيز أبو أسامه هذه شهادة أعنز بها و جزاك الله الخير الكثير

أخي الكريم 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information