• مسابقه Power BI
    • اولین مسابقه Power BI
    • دومین مسابقه Power BI
  • جدیدترین مطالب آموزشی
  • تحلیل داده نرم افزاری (فنّی)
  • تحلیل داده غیرفنّی
  • دوره‌های آفلاین
  • سبد خرید
  • تماس با ما
  • حساب کاربری

سبد خرید شما خالی است.

گروه تحلیلگری
  • مسابقات Power BI
    • اولین مسابقه Power BI ایران
    • دومین مسابقه Power BI ایران
  • مطالب آموزشی
    • تمام مطالب آموزشی
    • Excel
    • Power BI
    • Power Query
    • DAX
  • مسیرهای یادگیری
    • مسیر یادگیری تحلیل داده (فنی)
    • مسیر یادگیری غیرفنّی تحلیلگر داده
  • دوره‌های آموزشی
    • مهارت‌های غیرفنّی تحلیلگر داده
    • اکسل
    • Power BI
    • Power Query
    • SQL
    • تحلیل داده با پایتون
    • سبد خرید
  • ارتباط با ما
    • تماس
    • اینستاگرام
0
حساب کاربری

مقالات

ایجاد منو با ماکرو در اکسل

گاهی وقت ها نیاز است تا افزونه ای بنویسیم که یک ریبون (زبانه یا Tab) به زبانه های اکسل اضافه کرده و آن را تا زمانی که افزونه در اکسل نصب و فعال است ثابت نگه دارید.

ایجاد منو با ماکرو در اکسل

برای اینکار کافیست از ساب GetVisible در یک ماژول و به شکل زیر استفاده کنید:

Sub GetVisible(control As IRibbonControl, ByRef MakeVisible)
‘PURPOSE: Show/Hide buttons based on how many you need (False = Hide/True = Show)

Select Case control.ID
Case “GroupA”: MakeVisible = True
Case “aButton01”: MakeVisible = True
‘Case “aButton02”: MakeVisible = True

End Select

End Sub

و برای تغییر متن عنوان آن از ساب Getlabel به شکل زیر استفاده کنید:

Sub GetLabel(ByVal control As IRibbonControl, ByRef Labeling)
‘PURPOSE: Determine the text to go along with your Tab, Groups, and Buttons

Select Case control.ID

Case “CustomTab”: Labeling = “Pooryab.ir”

Case “GroupA”: Labeling = “Givehchi”
Case “aButton01”: Labeling = “Update”
‘Case “aButton02”: Labeling = “Button”

End Select

End Sub

به همین راحتی.

برای اینکه دکمه مورد نظر به شکلی باشد که کاری نیز انجام دهد باید یک ماکرو بنویسید و نام آن ماکرو را با کمک ساب RunMacro معرفی کنید:

Sub RunMacro(control As IRibbonControl)
‘PURPOSE: Tell each button which macro subroutine to run when clicked

Select Case control.ID

Case “aButton01”: Application.Run “MacroG1”
‘Case “aButton02”: Application.Run “DummyMacro2”

End Select

End Sub

برچسب ها: ماکرونویسی
درباره پوریا بغدادی

یادگیری و آموزش برای من فراتر از یک حرفه است. بدون ترس از این مسیر لذت می برم. بقیه‌اش مهم نیست. 💛

نوشته های بیشتر از پوریا بغدادی
در تلگرام
کانال ما را دنبال کنید!
در اینستاگرام
ما را دنبال کنید!
مطالب زیر را حتما بخوانید
  • آموزش کامل تابع CHOOSE در اکسل با مثال

    1.31k بازدید

  • آموزش کامل تابع IF در اکسل با مثال

    1.07k بازدید

  • آموزش کامل تابع VLOOKUP در اکسل با مثال

    1.51k بازدید

  • ایجاد فرمت سفارشی در اکسل

    3.7k بازدید

  • کتاب مرجع اکسل پیشرفته 2019

    3.58k بازدید

  • جستجوی چند شرطی در اکسل

    6.91k بازدید

عضویت
به دوستتان خبر دهید.
guest
تعداد ماههای سال به عدد
guest
0 نظر
قدیمی ها
جدید ها بیشترین رای
Inline Feedbacks
View all comments
جستجو
جستجو برای:
دسته بندی مطالب
  • Charts
  • DAX
  • Excel
  • Power BI
  • Power Query
  • تحلیل داده
  • هوش تجاری
پکیج های آموزشی
  • Data Analysis
  • Excel
  • Power BI
  • Power Query
  • Python
  • SQL
درباره گروه تحلیلگری

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

اطلاعات تماس
  • تهران، خیابان مطهری، ابتدای خیابان سنایی، کوچه بیست و یکم
  • 42 12 600 - 0919 فقط تلگرام و واتساپ
  • info@tahlilgary.com
پیوندها
  • آموزش رایگان و اصولی اکسل
  • دوره رایگان آموزش Power BI | پاور بی آی
  • آموزش دستورات پایه SQL
  • آمار و تحلیل داده با پایتون
  • دومین مسابقه‌ Power BI ایران
دسته بندی محصولات
Data Analysis Excel Power BI Power Query Python SQL
wpDiscuz

ورود

رمز عبور را فراموش کرده اید؟

هنوز عضو نشده اید؟ عضویت در سایت