ایجاد سوال
dark_mode
0 دوستدار 0 امتیاز منفی
32 visibility
موضوع: آفیس توسط:

شما قبلاً می دانید که می توانید از برنامه های فرعی در ماکروهای خود استفاده کنید. VBA همچنین به شما اجازه می دهد تا توابعی را تعریف کنید که می توانند در ماکروهای خود استفاده شوند. تفاوت بین توابع و زیر روال ها در این است که توابع می توانند مقادیر را برگردانند، در حالی که زیر روال ها نمی توانند. ماکروهای VBA زیر را در نظر بگیرید:

Sub Macro1()
    TooMany = TestFunc
    If TooMany Then StatusBar = "Too many pages"
End Sub
Function TestFunc()
    TestFunc = False
    If Selection.Inforamtion(wdNumberOfPagesInDocument) > 10 Then
       TestFunc = True
    End If
End Function

در این کد دو ماکرو وجود دارد. یکی تابع (TestFunc) و دیگری یک ماکرو (Macro1) است که برای فراخوانی تابع استفاده می شود. هنگامی که تابع اجرا می شود، می تواند هر کاری را که در یک ماکرو معمولی انجام می شود انجام دهد. در این حالت، آزمایشی را انجام می دهد که در نتیجه متغیر TestFunc روی True یا False تنظیم می شود. به یاد داشته باشید که نام این متغیر با نام تابع یکسان است. این مقداری است که توسط تابع به هر برنامه ای که آن را نامیده است برمی گرداند.

که ما را به ماکرو Macro1 می رساند. به یاد داشته باشید که تابع TestFunc می تواند در سمت راست علامت مساوی ظاهر شود. این باعث می شود توابع بسیار قدرتمند و بخش مهمی از هر برنامه ای باشند. VBA تابع را اجرا می کند و هر مقداری را که مناسب است از آن تابع برمی گرداند و آن را به متغیر سمت چپ علامت مساوی (TooMany) اختصاص می دهد. سپس برنامه بر اساس مقدار بازگشتی عمل می کند.

اگر خواستی، با این لینک از ما حمایت کن

پاسخ شما

looks_5نام شما برای نمایش - اختیاری
حریم شخصی : آدرس ایمیل شما محفوظ میماند و برای استفاده های تجاری و تبلیغاتی به کار نمی رود
عدد چهار رقمی در تصویر را وارد کنید

برای جلوگیری از این تایید در آینده, لطفا وارد شده یا ثبت نام کنید.
اگر حساب گوگل دارید به راحتی وارید شوید

0 پاسخ وجود دارد

سوال مشابهی یافت نشد

برای دسترسی راحت به مطالب سایت ، اپلیکیشن سایت را نصب کنید
و لطفا بعد از نصب امتیاز دهید. با تشکر از حمایت شما

23.2k سوال

8.5k پاسخ

613 دیدگاه

10.8k کاربر

184 نفر آنلاین
0 عضو و 184 مهمان در سایت حاضرند
بازدید امروز: 10939
بازدید دیروز: 13001
بازدید کل: 19465233
...