property ، method ، event و سایر کدها در اکسل

[Nima]

RE: property ، method ، event و سایر کدها در اکسل

با سلام خدمت دوستان
در چند بخش اطلاعاتی در موردCommand bars تقدیم میکنم امیدوارم مفید باشه
1-نحوه ساختن Command bar
به طور کلی در مجموعه نرم افزار های آفیس به دو شیوه می توان به شخصی سازی Toolbar پرداخت :
الف: استفاده از Customize dialog box
ب: Microsoft® Visual Basic® for Applications (VBA) code
در نرم افزار Access شما قادر هستید از روش الف منو ها و pop-up منو ها(منوهای جهنده) را تولید نمایید ،اما در سایر نرم افزار های مجموعه افیس می بایست از VBA برای توسعه منو ها و pop-up منو ها استفاده نمایید.
جهت ساخت command bar یا همان منو های شخصی مجموعه ای از روش ها(method) گرد آوری شده است.
برای ساخت toolbar , menu bar,و pop-menu bar می بایست از متد msoBarMenuBar یا msoBarPopup استفاده نمود.
در زیر نمونه ای جهت ایجاد موارد فوق مشاهده می کنید:
[align=left]

Sub Create_Menu()
Dim MyBar As CommandBar
Dim MyPopup As CommandBarPopup
Dim MyButton As CommandBarButton

Delete_Menu

Set MyBar = CommandBars.Add(Name:="My Menu", _
    Position:=msoBarFloating, temporary:=True)

With MyBar
    .Top = 125
    .Left = 850

    Set MyPopup = .Controls.Add(Type:=msoControlPopup)
    With MyPopup
        .Caption = "Popup 1"
        .BeginGroup = True
        Set MyButton = .Controls.Add(Type:=msoControlButton)
        With MyButton
            .Caption = "Button 1a"
            .Style = msoButtonCaption
                       .BeginGroup = True
            .OnAction = "Macro1a"
        End With
        Set MyButton = .Controls.Add(Type:=msoControlButton)
        With MyButton
            .Caption = "Button 1b"
            .Style = msoButtonCaption
            .BeginGroup = False
            .OnAction = "Macro1b"
        End With
    End With
    Set MyPopup = .Controls.Add(Type:=msoControlPopup)
    With MyPopup
        .Caption = "Popup 2"
        .BeginGroup = False
        Set MyButton = .Controls.Add(Type:=msoControlButton)
        With MyButton
            .Caption = "Button 2a"
            .Style = msoButtonCaption
            .BeginGroup = True
            .OnAction = "Macro2a"
        End With
        Set MyButton = .Controls.Add(Type:=msoControlButton)
        With MyButton
            .Caption = "Button 2b"
            .Style = msoButtonCaption
            .BeginGroup = False
            .OnAction = "Macro2b"
        End With
    End With
    .Width = 100
    .Visible = True
End With
    
End Sub 

[/align]

با تشکر از شما اگه امکانش باشه یه نمونه کاملتر یعنی در قالب یه فلیل بزارین خیلی عالی میشه

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

RE: property ، method ، event و سایر کدها در اکسل

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

[Javid Mokhtari]

RE: property ، method ، event و سایر کدها در اکسل

با تشکر از شما اگه امکانش باشه یه نمونه کاملتر یعنی در قالب یه فلیل بزارین خیلی عالی میشه

با سلام.
تو پست 96 یه نمونه گذاشتم.
http://forum.exceliran.com/thread-1254-post-8196.html#pid8196

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

RE: property ، method ، event و سایر کدها در اکسل

با سلام

حذف کردن command bar :
برای حذف منو های ایجاد شده می بایست از کد نویسی استفاده شود، تابع زیر این مورد را توضیح میدهد:

Function CBDeleteCommandBar(strCBarName As String) As Boolean
   On Error Resume Next
   Application.CommandBars(strCBarName).Delete
End Function 

در کد فوق در صورتی که نام منو وجود نداشته باشد پیغام Error صادر خواهد شد strCBarName نامی است که ما برای منوی شخصی خود انتخاب کرده ایم به هر دلیلی این نام از طریق کد پیدا نشود پیغام subscript out of range صادر می شود لذا کد on error resume next جهت نادیده گرفتن این پیغام استفاده میشود البته لزوما نیاز به تعریف تابع نیست و میتوان از Sub procedure استفاده کرد، البته استفاده از تابع به علت سهولت بکار گیری بهتر است کافیست تابع فوق به همراه نام منو در داخل پرانتز فراخوانی گردد.

[mokaram]

RE: property ، method ، event و سایر کدها در اکسل

اساتید محترم میشه یه سری توضیح کامل و مبسوط درباره لیست باکس ارایه بدید
ممنون

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

با درود

استاد مختاری عزیز ایت تایپیک رو قبل از اینکه خدمت بره ایجاد کرده بود و مطالب بسیار خوب و کاربردی هم در مورد مباحث VBA در این تایپیک قرار داده شد

اگر عمری باشه این تایپ به سبک و سیاق دیگه ای ادامه پیدا خواهد کرد از دوستان و اساتید عزیز خواهش می کنم اموخته های خودشون رو به اشتراک بذارند

1- لطفا هر موضوع در تایپیک جداگانه ای مطرح بشه
2- حتی الامکان از کد استفاده کنید و اگر فایل می ذارید حتما در انجمن آپلودش کنید و یا drive که از بین نره
3-کدها رو حتما در تگ PHP قرار بدید
4- برای هر موضوع نام مناسبی قرار بدید که گویای مطلب باشه
5- مطالب اموزشی فقط در همین تالار مطرح بشن

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