ساخت منو برای جابجا شدن بین شیت ها جهت انجام عملیات مختلف

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • msmaiili

    • 2014/02/08
    • 36
    • 44.00

    ساخت منو برای جابجا شدن بین شیت ها جهت انجام عملیات مختلف

    با سلام و خسته نباشید خدمت اساتید بزرگوار

    میخواستم برای جابجا شدن بین شیت ها و انجام عملیات مختلف به هم پیوسته منوی ثابت در همه شیت ها در بالای صفحه برام ایجاد کنید

    یه فایل جهت نمونه گذاشتم. البته محتویات شیت ها خالیه اما با توجه به عناوین شیت ها میتونید منظورمو بگیرین و براش منو طراحی کنید

    با تشکر

    البته اساتید اگه روش جالبتری جهت در دسترس بودن اطلاعات و صفحات برای این کار سراغ دارن منو راهنمایی کنن (سامانه مدیریت امتحانات و نمرات مدرسه)
    فایل های پیوست شده
    [CENTER][CENTER][CENTER][FONT=tahoma][COLOR=#0000ff][SIZE=4]انسان هم ميتواند [/SIZE][/COLOR][COLOR=#ff0000][SIZE=4]دايره [/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]باشد و هم [/SIZE][/COLOR][COLOR=#008000][SIZE=4][/SIZE][SIZE=4]خط راست[/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]. [/SIZE][/COLOR]
    [/FONT][/CENTER][FONT=tahoma] [/FONT][CENTER][COLOR=#b22222][FONT=tahoma][SIZE=4]انتخاب با خودمان هست : [/SIZE][/FONT][/COLOR]

    [/CENTER][FONT=tahoma] [/FONT][CENTER][FONT=tahoma][COLOR=#ff0000][SIZE=4][/SIZE][SIZE=4]تا ابد دور خودمان بچرخيم [/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]يا [/SIZE][/COLOR][COLOR=#008000][SIZE=4]تا بينهايت ادامه بدهیم[/SIZE][/COLOR][/FONT]
    [/CENTER]
    [/CENTER]

    [/CENTER]
  • Nima

    • 2011/07/22
    • 385

    #2
    به اینک زیر مراجعه کنید

    مطالب و موضوعات مطرح شده درباره امكانات ويژوال بيسيك در اكسل را در اين قسمت مطرح ميگردد.
    [CENTER][COLOR=#ff0000]************************************[/COLOR]
    No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
    [COLOR=#ff0000]************************************[/COLOR]

    [/CENTER]

    کامنت

    • ~M*E*H*D*I~
      • 2011/10/19
      • 4377
      • 70.00

      #3
      نوشته اصلی توسط nima
      به اینک زیر مراجعه کنید

      http://forum.exceliran.com/showthrea...ll=1#post16572
      نیما جان ایشون میخواد منو به صورت popup به نوار ابزار اکسل اضافه بشه
      [CENTER]
      [SIGPIC][/SIGPIC]
      [/CENTER]

      کامنت

      • Nima

        • 2011/07/22
        • 385

        #4
        نوشته اصلی توسط ~M*E*H*D*I~
        نیما جان ایشون میخواد منو به صورت popup به نوار ابزار اکسل اضافه بشه

        خوب در اینصورت میتونید یک module جدید ایجاد کنید و کد زیر رو وارد کنید
        کد:
        [COLOR=#4D4D4D][FONT=Helvetica Neue][B]Sub ShowWorksheets()
        [/B][/FONT][/COLOR]
        [COLOR=#4D4D4D][FONT=Helvetica Neue][B]Application.CommandBars("workbook tabs").ShowPopup
        [/B][/FONT][/COLOR]
        [COLOR=#4D4D4D][FONT=Helvetica Neue][B]End Sub[/B][/FONT][/COLOR]
        بعد برای راحت تر شدن کار از طریق developer >> macros و از قسمت option یک shortcut key به ماکرو اضافه کنید

        حالا با هر بار زدن کلید میانبر شما یک لیست از شیتهاتون رو به صورت پاپ آپ می بینید.
        Last edited by Nima; 2014/02/25, 12:04.
        [CENTER][COLOR=#ff0000]************************************[/COLOR]
        No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
        [COLOR=#ff0000]************************************[/COLOR]

        [/CENTER]

        کامنت

        • msmaiili

          • 2014/02/08
          • 36
          • 44.00

          #5
          ممنون آقا نیما از راهنماییتون
          اگه کسی روش دیگه هم داره که منوی ثابت ایجاد بشه و همیشه در دسترس باشه و بشه برای منو زیر منو ساخت ممنون میشم لطف کنین
          [CENTER][CENTER][CENTER][FONT=tahoma][COLOR=#0000ff][SIZE=4]انسان هم ميتواند [/SIZE][/COLOR][COLOR=#ff0000][SIZE=4]دايره [/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]باشد و هم [/SIZE][/COLOR][COLOR=#008000][SIZE=4][/SIZE][SIZE=4]خط راست[/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]. [/SIZE][/COLOR]
          [/FONT][/CENTER][FONT=tahoma] [/FONT][CENTER][COLOR=#b22222][FONT=tahoma][SIZE=4]انتخاب با خودمان هست : [/SIZE][/FONT][/COLOR]

          [/CENTER][FONT=tahoma] [/FONT][CENTER][FONT=tahoma][COLOR=#ff0000][SIZE=4][/SIZE][SIZE=4]تا ابد دور خودمان بچرخيم [/SIZE][/COLOR][COLOR=#0000ff][SIZE=4]يا [/SIZE][/COLOR][COLOR=#008000][SIZE=4]تا بينهايت ادامه بدهیم[/SIZE][/COLOR][/FONT]
          [/CENTER]
          [/CENTER]

          [/CENTER]

          کامنت

          • ~M*E*H*D*I~
            • 2011/10/19
            • 4377
            • 70.00

            #6
            برای ایجاد منو ابتدا باید یک متغیر از نوع آبجکت تعریف کنی مثل newsubitem
            فرض کن میخوای منویی بسازی با زیر منو ابتدا برای منو یک اسم بساز مثل menuname
            بعد این اسم رو به متغیری که ایجاد کرده بودی اختصاص بده

            کد HTML:
            Set newsubitem = CommandBars("Worksheet menu bar").Controls("menuname ")

            بعد باید زیر منو هارو ایجاد کنی که هر کدوم کاری که مد نظر داری انجام بدن
            برای هر زیرمنو ابتدا باید یک اسم بذاری بعد ماکرویی که میخوای برات عملیاتی اجرا کنه بهش اختصاص بدی

            کد HTML:
            .Controls.Add(Type:=msoControlPopup).Caption = " submenuname1"
            .Controls("submenuname1").OnAction = "macro1"
            کد HTML:
            Public Sub menu()
            Dim newsubitem As Object
            Application.CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup).Caption = "menuname"
            Set newsubitem = CommandBars("Worksheet menu bar").Controls("menuname ")
            With newsubitem
            .Controls.Add(Type:=msoControlPopup).Caption = " submenuname1"
            .Controls("submenuname1").OnAction = "macro1"
            .Controls.Add(Type:=msoControlPopup).Caption = " submenuname2"
            .Controls("submenuname1").OnAction = "macro2"
            .Controls.Add(Type:=msoControlPopup).Caption = " submenuname3"
            .Controls("submenuname1").OnAction = "macro3"
            End With
            End Sub
            برای حذف منویی که ایجاد کردی از کد زیر استفاده کن
            کد HTML:
            Public Sub removemenu()
             CommandBars("Worksheet menu bar").Controls("menuname ").Delete
            End Sub
            Last edited by ~M*E*H*D*I~; 2014/03/09, 11:44.
            [CENTER]
            [SIGPIC][/SIGPIC]
            [/CENTER]

            کامنت

            • ~M*E*H*D*I~
              • 2011/10/19
              • 4377
              • 70.00

              #7
              یک نمونه هم درست کردم که بهتر متوجه کدهای بالا بشی یک منو به نام menu اضافه میشه
              فایل های پیوست شده
              [CENTER]
              [SIGPIC][/SIGPIC]
              [/CENTER]

              کامنت

              چند لحظه..