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

[msmaiili]

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

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

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

با تشکر

البته اساتید اگه روش جالبتری جهت در دسترس بودن اطلاعات و صفحات برای این کار سراغ دارن منو راهنمایی کنن (سامانه مدیریت امتحانات و نمرات مدرسه)

[Nima]

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

http://forum.exceliran.com/showthread.php?t=1051&p=16572&viewfull=1#post16572

[~M*E*H*D*I~]

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

http://forum.exceliran.com/showthrea...ll=1#post16572

نیما جان ایشون میخواد منو به صورت popup به نوار ابزار اکسل اضافه بشه

[Nima]

نیما جان ایشون میخواد منو به صورت 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 به ماکرو اضافه کنید

حالا با هر بار زدن کلید میانبر شما یک لیست از شیتهاتون رو به صورت پاپ آپ می بینید.

[msmaiili]

ممنون آقا نیما از راهنماییتون
اگه کسی روش دیگه هم داره که منوی ثابت ایجاد بشه و همیشه در دسترس باشه و بشه برای منو زیر منو ساخت ممنون میشم لطف کنین

[~M*E*H*D*I~]

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

Set newsubitem = CommandBars("Worksheet menu bar").Controls("menuname ")

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

.Controls.Add(Type:=msoControlPopup).Caption = " submenuname1"
.Controls("submenuname1").OnAction = "macro1"

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

برای حذف منویی که ایجاد کردی از کد زیر استفاده کن

Public Sub removemenu()
 CommandBars("Worksheet menu bar").Controls("menuname ").Delete
End Sub

[~M*E*H*D*I~]

یک نمونه هم درست کردم که بهتر متوجه کدهای بالا بشی یک منو به نام menu اضافه میشه