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

[s.cheraghi]

با سلام و کسب اجازه از اساتید محترم
خواستم منم سهم خودم رو تو افزایش بار آموزشی سایت بپردازم
نکته ای در مورد توابع هست و اینکه در صورتیکه بخواین برای توابعی که می سازین بشه تعداد نامحدود آرگومان وارد کنید باید آخرین آرگومان تابع به صورت یک آرایه باشد و از Param Array قبل از آن استفاده کنید که در اینصورت شما می تونید به این هدف برسید
به عنوان مثال


Function # (Param Array #() as Variant)

که به جای # اول نام تابع و دوم، نام آرایه قرار داده می شود
در این حالت آرگومان های ورودی می توانند هر عبارتی باشند منهای محدوده ای از سلول ها

[s.cheraghi]

با سلام
در اینجا فهمیدیم که چطوری میشه تعداد آرگومان های ورودی یک تابع رو به بینهایت افزایش داد
حالا برای اینکه بتونیم کاری کنیم که بشه سلول ها و درواقع محدوده رو به عنوان آرگومان به تابعی که ساختیم قرار بدیم باید در قسمت بدنه تابع، یک متغیر از نوع Range تعریف کنیم و به ازای تک تک آرگومان های تابع، جستویی درون آنها انجام شود
یعنی شما باید با استفاده از حلقه For تک تک درایه های آرایه رو جستجو کنید
مثال:


Function #(ParamAray Arg() as variant)
dim cell as Range
For each a in Arg
For each cell in a
کدهای مربوط به تابع
Next cell
Next a
End Function


در اینجا با استفاده از متغیر a درون آرگومان های تابع جستجو کرده و با استفاده از متغیر Cell دورن a را جستجو کردیم، حالا اگر a که ممکنه محدوده باشه کامل مورد جستجو قرار می گیره

موفق باشین