آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل

آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل

آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل

مفتخریم که با یک پست آموزشی دیگر با عنوان “آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل “ خدمت شما سروران و علاقه مندان به یادگیری سایت آموزشی اکسل لرن هستیم .

حلقه   For Loop یکی از مهمترین و عین حال از پرکاربردترین دستورات زبان برنامه وی بی ای در اکسل است ، البته For Loop در سایر زبان های برنامه نویسی نیز شناخته شده و پرکاربرد است که ما در این پست از آموزش قصد داریم علاوه بر معرفی ساختار حلقه  For Loop کاربرد آن را به همراه دو مثال متنوع خدمت شما عزیزان و علاقه مندان به یادگیری زبان VBA اکسل عرض کنیم .

بطور خلاصه حلقه For Loop را همانند یک گوی و یا شی دایره شکل تصور کنید که با هرگردش دستورات فی ما بین خود را به تعداد دفعات مشخص شده به گردش در خواهد آورد ، برای آشنایی بیشتر با این دستور پرکاربرد ادامه مطلب را مطالعه نمایید .

ساختار حلقه For Loop در زبان برنامه نویسی وی بی ای

ساختار حلقه For Loop به شکل زیر می باشد :

For counter = startNumber To endNumber

 [statements]

Next [counter]

توضیحات ساختار حلقه For Loop  در زبان برنامه نویسی VBA :

همانطور که از عنوان این پست “آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل” و عبارت For Loop مشخص است مانند یک حلقه (گرد و یا دایره شکل) عمل میکند که وابسته به یک شمارنده (Counter) و تعیین کننده تعداد دفعات گردش این حلقه است که با هرگردش این حلقه ،دستورات فی ما بین خود را به تبع به گردش در میاورد.

به یک مثال از سایت آموزشی techonthenet با عنوان آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل دقت کنید  :

For LCounter = 1 To 5

MsgBox (LCounter)

Next LCounter

حلقه فوق می بایست 5 مرتبه دستورات فی ما بین خود را پردازش کند که خروجی دستورات فوق به ترتیب زیر خواهد بود :

  1. حلقه وارد دور اول خود خواهد شد که خروجی دستور Msgbox عدد 1 و یا به عبارتی Msgbox 1 خواهد بود .
  2. سپس حلقه وارد دور دوم خود خواهد شد که خروجی دستور Msgbox عدد 2 و یا به عبارتی Msgbox 2 خواهد بود .
  3. سپس حلقه وارد دور سوم خود خواهد شد که خروجی دستور Msgbox عدد 3 و یا به عبارتی Msgbox 3 خواهد بود .
  4. سپس حلقه وارد دور چهارم خود خواهد شد که خروجی دستور Msgbox عدد 4 و یا به عبارتی Msgbox 4 خواهد بود .
  5. سپس حلقه وارد دور پنجم و پایانی خود خواهد شد که خروجی دستور Msgbox عدد 5 و یا به عبارتی Msgbox 5 خواهد بود .

به یک مثال دیگر  از سایت آموزشی excel-easy با عنوان آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل توجه کنید :

For i = 1 To 6

Cells(i, 1).Value = 100

Next i

توضیحات دستور فوق :

همانطور که در دستورات فوق مشاهده میکنید برای حلقه فوق 6 گردش درنظر گرفته شده است که خروجی دستورات بصورت زیر خواهد بود :

  1. حلقه وارد دور اول خود خواهد که خروجی دستورات فوق درج عدد 100 در سلول A1 و یا به عبارتی Cells(1,1) خواهد بود .
  2. حلقه وارد دور دوم خود خواهد که خروجی دستورات فوق درج عدد 100 در سلول A2 یا به عبارتی Cells(2,1) خواهد بود .
  3. حلقه وارد دور سوم خود خواهد که خروجی دستورات فوق درج عدد 100 در سلول A3 یا به عبارتی Cells(3,1) خواهد بود .
  4. حلقه وارد دور چهارم خود خواهد که خروجی دستورات فوق درج عدد 100 در سلول A4 یا به عبارتی Cells(4,1) خواهد بود .
  5. حلقه وارد دور پنجم خود خواهد که خروجی دستورات فوق درج عدد 100 در سلول A5 یا به عبارتی Cells(5,1) خواهد بود .
  6. حلقه وارد دور ششم و پایانی خود خواهد که خروجی دستورات فوق درج عدد 100 در سلول A6 یا به عبارتی Cells(6,1) خواهد بود .

به یک مثال دیگر از سایت tutorialspoint با عنوان آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل دقت کنید :

Sub excellearn ()

Dim a As Integer

a = 10

For i = 0 To a Step 2

MsgBox "The value is i is : " & i

Next

End Sub

توضیحات دستور فوق :

در ماکروی فوق ابتدا یک متغیر به نام a و از نوع عدد تعریف گردیده است که مقدار اولیه آن برابر است با عدد 10 ، سپس یک حلقه For Loop ایجاد گردیده است که از مقدار 0 تا مقدار عددی داخل ظرف a که عدد 10 است باید با درنظر گرفتن پرش +2 این حلقه را به گردش در بیاورد ، خروجی دستورات فوق بصورت زیر خواهد بود :

The value is i is : 0

The value is i is : 2

The value is i is : 4

The value is i is : 6

The value is i is : 8

The value is i is : 10

همانطور که مشاهده پیغام های فوق به ترتیب توسط دستور Msgbox نمایش داده خواهد شد .

در ادامه دو کلیپ آموزشی به منظور یادگیری بهتر” آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل ” تهیه نمودیم که شما عزیزان را با کاربردهای مختلف این حلقه پرکاربرد در محیط نرم افزار مایکروسافت اکسل آشنا خواهد کرد ، پیشنهاد میکنم مشاهده کلیپ های زیر را از دست ندهید :

فیلتر کردن یک مقدار در چندین Sheet اکسل (ماکرونویسی)
جمع یک مقدار ثابت در چندین Sheet اکسل (ماکرونویسی)

پیشنهاد گروه آموزشی اکسل لرن : در صورت تمایل به یادگیری زبان برنامه نویسی وی بی ای در اکسل میتوانید مجموعه آموزشی الفبای وی بی ای با 60 قسمت آموزشی به همراه مثال های متنوع از دستورات پرکاربرد زبان وی بی ای اکسل را تهیه نمایید .

همچنین میتوانید از مجموعه آموزشی و مقدماتی ماکرونویسی در اکسل بصورت کاملا رایگان استفاده نمایید. در صورت وجود هرگونه انتقاد پیشنهاد پیرامون پست آموزشی “آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل” میتوانید آن را در قسمت نظرات همین پست درج نمایید . با تشکر از همراهی شما

اکسل لرن
فیسبوک توییتر گوگل + لینکداین تلگرام واتس اپ کلوب

لینک های دانلود

توضیحات دانلود

جهت دانلود کلیپ های آموزشی این پست میتوانید از لینک های فوق استفاده نمایید. در صورت مشاهده هرگونه خطا خواهشمندیم آن را در قسمت نظرات گزارش نمایید تا در اسرع وقت نسبت به رفع آن اقدام گردد.

امتیاز شما به مطلب

دوست داشتم: 184
دوست نداشتم: 138
میانگین امتیازات: 1.33

8 دیدگاه در “آموزش حلقه پرکاربرد For Loop در ماکرونویسی اکسل”

سلام وقت شما بخیر
ممنون از سایت خوبتون
برای این کاری که من میخوام انجام بدم ، لطفا منو راهنمایی کنید و اشکال کد VBA من رو بگید.
طبق عکس زیر که آپلود کردم ، میخوام محتوای دو به دوی سلول های ستون C و D رو به هم بچسبونم و توی ستون F قرار بدم. به طور دستی توی اکسل با دستور CONCATENATE این کار رو ( برای تعداد کم سلول توی دو ستون C و D ) انجام دادم ، ولی برای چسباندن تعداد خیلی زیاد ، میخوام همین کار رو با ماکرو نویسی انجام بدم ، ولی با ارور Compiler error : Expexted Function or variable مواجه میشم.
لطفا منو راهنمایی کنید . خیلی ممنون از شما

عکس آپلود شده برای مثال ساده چسباندن سلول ها :
https://s4.uupload.ir/files/macro_gjuw.png

با سلام و احترام
لطفا از طریق ربات زیر ، لینک گروه پرسش و پاسخ را دریافت و در گروه تلگرامی ما مطرح نمایید
باتشکر
Masoudhosseini_Bot

سلام خسته نباشید. سال نو مبارک
بی زحمت یک سوال داشتم. من میخواستم با دابل کلیک کردن در سلول های ستون یک شیت علامت تیک بیوفته. اینکار را با کد زیر برای یک ستون انجام داده ام ولی نمیدانم برای اینکه اینکار را برای چند ستون همان شیت انجام بدم چه تغییراتی بدم. ممنون میشم اگه راهنماییم کنید.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Target.Font.Name = “Wingdings”
If Target.Value = “” Then
Target.Value = “ü”
Else
Target.Value = “”

End If
End If
End Sub
عدد 2 شماره ستون هست(B)

سلام جناب داوری عزیز. در این مواقع که چندین گزینه دارید شما می بایست از دستور Select Case بجای if استفاده کنید زیرا انعطاف بیشتری خواهد داشت.

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

وعدد بدست آمده داخل همان سلول ثبت شود

سلام. متاسفانه این فضا امکان راهنمایی ندارد. اگر ممکن است داخل تلگرام از طریق ربات Masoudhosseini_bot عضو گروه پرسش و پاسخ تلگرامی اکسل شوید و فایلتون رو ارسال بفرمایید تا بهتر بتوانیم شمارو راهنمایی کنیم. باتشکر از همراهی شما با اکسل لرن

سلام آرش جان. متاسفانه این فضا امکان راهنمایی ندارد. اگر ممکن است داخل تلگرام از طریق ربات Masoudhosseini_bot عضو گروه پرسش و پاسخ تلگرامی اکسل شوید و فایلتون رو ارسال بفرمایید تا بهتر بتوانیم شمارو راهنمایی کنیم. باتشکر از همراهی شما با اکسل لرن

پاسخ دهید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

→ فهرست مطالب