در مطلب “اضافه کردن توابع جدید به اکسل” دیدیم که چطور به کمک کدنویسی در VBA می توان به سادگی توابع جدیدی به اکسل اضافه کرد و در قالب یک مثال تابعی جهت محاسبه شاخص BMI تعریف کردیم. در اینجا می خواهیم به توابع جدید و آرگومان های آن توضیحاتی همانند خود توابع اکسل اضافه کنیم. در تصویر ذیل پنجره تابع SUM اکسل و تابعی که ما به اکسل اضافه کردیم نشان داده شده است.
همانطور که مشاهده می کنید برای تابع SUM، اکسل کارکرد اصلی آن و همچنین توضحیاتی در مورد آرگومان ها ارایه داده اما تابعی که ما تعریف کرده ایم فاقد هر گونه توضیحی است.
بهتر است برای توابع جدیدی که در اکسل تعریف می کنیم توضیحاتی در خصوص مقصود اصلی تابع، آرگومان های تابع، نوع ورودی هر آرگومان (متنی، عددی، تاریخ و …) جهت راهنمایی استفاده کنندگان از تابع، اضافه کرد. فرمت کلی اضافه کردن توضیحات به توابع در اکسل به صورت ذیل است:
Sheet1.ir
'=========== Sheet1.ir ===================
Sub DescribeFunction()
Dim F_Name, F_Des, Category As String
Dim ArgDes(1 To 2) As String تعداد آرگومان ها
F_Name = نام تابع
F_Des = توضيح کلي تابع
Category = دسته تابع: متني، رياضي، آماري و ...
ArgDes(1) = توضيح مربوط به آرگومان اول
ArgDes(2) = توضيح مربوط به آرگومان دوم
Application.MacroOptions Macro:=F_Name, _
Description:=F_Des, Category:=Category, _
ArgumentDescriptions:=ArgDes
End Sub| شماره | دسته یندی |
|---|---|
| 1 | Financial |
| 2 | Date & Time |
| 3 | Math & Trig |
| 4 | Statistical |
| 5 | Lookup & Reference |
| 6 | Database |
| 7 | Text |
| 8 | Logical |
| 9 | Information |
| 10 | Commands |
| 11 | Customizing |
| 12 | Macro Control |
| 13 | DDE/External |
| 14 | User Defined |
| 15 | دسته بندی سفارشی اول |
| 16 | دسته بندی سفارشی دوم |
| ::: | ::: |
| 32 | دسته بندی سفارشی هجدهم |
منبع : مایکروسافت
در صورتی که می خواهید یک دسته بندی سفارشی داشته باشید کافی است عنوان مورد نظر خود را در خط 8 وارد کنید. در این مثال می خواهیم تابع در یک دسته بندی به نام “My Functions” قرار گیرد.
در نهایت کد مربوط به اضافه کردن توضیحات به تابع BMI به صورت ذیل خواهد بود:
Sheet1.ir
'=========== Sheet1.ir ===================
Sub DescribeFunction()
Dim FuncName As String
Dim FuncDesc As String
Dim Category As String
Dim ArgDesc(1 To 2) As String
FuncName = "BMI"
FuncDesc = "شاخص توده بدنی جهت شناسایی اضافه یا کمبود وزن"
Category = "My Functions"
ArgDesc(1) = "وزن بر حسب کیلوگرم"
ArgDesc(2) = "قد برحسب متر"
Application.MacroOptions _ Macro:=FuncName, _
Description:=FuncDesc, _
Category:=Category, _
ArgumentDescriptions:=ArgDesc
End Subحال کافی است یک بار این کد را اجرا کنید (کلید F5) تا تمامی تغییرات اعمال شود. دوباره پنجره توضیحات تابع BMI را باز کنید و تغییرات را مشاهده کنید:
همچنین یک دسته بندی جدید به نام “My Functions” به توابع اکسل اضافه شده و تابع BMI در آن قرار گرفته است:
در ادامه می توانید فایل مثال اکسل اضافه کردن توضیحات به توابع را دریافت نمایید
تعداد دانلود : 44
