خوش آموز درخت تو گر بار دانش بگیرد، به زیر آوری چرخ نیلوفری را


آموزش برنامه نویسی اکسل : حلقه For…Next

آموزش برنامه نویسی اکسل : حلقه For…Next
نویسنده : امیر انصاری
ساختار حلقۀ For…Next یک روش ساده و موثر برای تکرار یک کار برای تعداد دفعات مشخص می باشد. برای مثال، اگر قصد دارید تا پنج برگۀ جدید را به فایل اکسل خود بیفزایید می توانید یک متغیر از نوع Integer معرفی کنید و مشابه مثال زیر این کار را پنج بار تکرار کنید:

آموزش سالیدورکز 20-2019



Sub AddFiveWorksheets()
'Declare your Integer or Long variable.
Dim intCounter As Integer
'Open the For loop structure.
For intCounter = 1 To 5
'Enter the command(s)that will be repeated.
Worksheets.Add
'Loop to the next iteration.
Next intCounter
End Sub

هنگامی که VBA یک حلقۀ For…Next را اجرا می کند، به صورت پیش فرض مقدار متغیر شمارندۀ حلقه را هر بار 1 واحد افزایش می دهد. از آنجا که هدف اضافه کردن 5 برگه می باشد، راحتترین روش برای نگهداشتن تعداد دفعات اجرا اینست که آن را 5 بار تکرار کنیم، درست مانند وقتی که شما این اعداد را از 1 تا 5 شمارش می کنید.

با توجه به ماهیت ثابت حلقۀ For…Next شما می توانید تعداد برگه هایی را که قرار است افزوده شوند، از کاربر سوال کنید. در مثال زیر، یک InputBox به کار گرفته شده است تا تعداد برگه ها را از کاربر دریافت کند:

Sub ForNextExample2()
'Declare your Integer or Long variables.
Dim MoreSheets As Integer, intCounter As Integer
'Define the MoreSheets variable with an InputBox.
MoreSheets = InputBox( _
"How many worksheets do you want to add?", _
"Enter a number")
'Open the For loop structure.
For intCounter = 1 To MoreSheets
'Enter the command(s)that will be repeated.
Worksheets.Add
'Loop to the next iteration.
Next intCounter
End Sub

شما همیشه نیاز نیست تا حلقۀ For…Next را از عدد 1 آغاز کنید، شما تقریباً می توانید از هر عددی آغاز کرده و تا هر عددی ادامه بدهید. فرض کنید که می خواهید ردیف های 6 و 7 و 8 را مخفی کنید. شما می توانید با استفاده از یک حلقۀ For…Next مشابه مثال زیر این کار را انجام بدهید:

Sub ForNextExample3()
'Declare your Integer or Long variable.
Dim intCounter As Integer
'Open the For loop structure.
For intCounter = 6 To 8
'Enter the command(s)that will be repeated.
Rows(intCounter).Hidden = True
'Loop to the next iteration.
Next intCounter
End Sub


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

آموزش بعدی : آموزش برنامه نویسی اکسل : حلقه For…Each…Next



دیدگاه ها(0)

دیدگاه خود را ثبت کنید:

انتخاب تصویر ویرایش حذف
توجه! حداکثر حجم مجاز برای تصویر 500 کیلوبایت می باشد.

لطفا پیش از ارسال دیدگاه ، به نکات زیر توجه فرمایید :

- از نوشتن دیدگاه های غیر مرتبط با پست جدا خودداری کنید. دیدگاه ها و سوالات متفرقۀ خود را می توانید در تالارهای گفتمان خوش آموز مطرح نمایید.
- لطفاً دیدگاه های خود را با حروف فارسی تایپ کنید، دیدگاه های فینگیلیش تایید نمی شوند.
- قبل از ارسال دیدگاه حتما متن پست و نظرات سایر دوستان را بخوانید . نظرات اسپم و تکراری تایید نخواهند شد.
- نظر شما ممکن است بدون پاسخ تایید شوند که در این صورت باید منتظر پاسخ از سوی دیگر کاربران باشید .
- لطفا انتقادات و پیشنهادات و همچنین درخواست های خود را از طریق ایمیل khoshamoz[at].hotmail.com ارسال نمایید
- چرا آموزش های سایت خوش آموز در قالب فایل pdf به صورت یکجا ارائه نمی شوند؟
- چرا برخی پرسش های کاربران پاسخ داده نمی شوند؟


دوره رایگان آموزش جامع برنامه نویسی اکسل (VBA) از مقدماتی تا پیشرفته

دوره رایگان آموزش جامع برنامه نویسی اکسل (VBA) از مقدماتی تا پیشرفته