چگونگی اجرای ماکرو براساس لیست کشویی

با سلام خدمت کاربران عزیز آی تی سواد

برای اجرای ماکروها از کلیک روی دکمه اجرا در اکسل استفاده می کنیم ، اما آیا تا به حال سعی کرده‌اید کدهای ماکرو را براساس مقدار انتخابی از لیست کشویی ، اجرا کنید ؟ یعنی ، زمانی که یک مورد را از لیست کشویی انتخاب می‌کنید ، یک ماکرو ویژه بلافاصله اجرا خواهد شد . این مقاله برای شما یک راه حل برای این کار ارائه خواهد کرد .

اجرای ماکرو براساس لیست کشویی با کد VBA

۱٫ ابتدا یک لیست کشویی ایجاد کنید.

۲٫ سپس بر روی شیت موردنظر راست کلیک کنید و گزینه View Code را انتخاب کنید ، سپس در پنجره Microsoft Visual Basic for applications کد زیر را وارد کنید.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E1")) Is Nothing Then
        Select Case Range("E1")
            Case "Insert Blank rows": Macro1
            Case "Hide All Sheets": Macro2
            Case "Convert to Date": Macro3
        End Select
    End If
    End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E1")) Is Nothing Then

Select Case Range("E1")

Case "Insert Blank rows": Macro1

Case "Hide All Sheets": Macro2

Case "Convert to Date": Macro3

End Select

End If

End Sub

نکته : در کد بالا E1 ، سلول حاوی لیست کشویی است، نام ماکرو ها را بر اساس نیاز خود تغییر دهید.

۳. سپس این پنجره کد را ذخیره و ببندید، حالا ، زمانی که Insert Blank rows را از لیست کشویی انتخاب کنید کنید ، Macro۱ راه‌اندازی خواهد شد ، و غیره …

ترجمه شده از سایت www.extendoffice.com

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

با سلام خدمت کاربران عزیز آی تی سواد

اجرای ماکرو براساس لیست کشویی با کد VBA

ممنون از همراهی شما کاربران عزیز آی تی سواد

دیدگاهتان را بنویسید لغو پاسخ