ایجاد حلقه های تکرار در VBA اکسل با ساختار For
انجام کارهای تکراری در اکسل با حلقه ها در ماکرو
یکی از مهمترین مزایای استفاده از وی بی (VBA) در اکسل امکان تکرار کدها به تعداد دلخواه هست. این کار با استفاده از ساختارهایی به نام حلقه انجام پذیر هستند. در زبان VBA چندین نوع حلقه وجود دارد. در این آموزش قصد داریم ساختار دستوری حلقه For رو آموزش بدم. یکی از ساختارهای حلقه ها در ماکرو ، حلقه For برای اجرای کدهای نوشته شده به تعداد از پیش تعیین شده هست. یعنی فرض کنید شما قصد دارید نام شیت های فایل رو در سلول ها بنویسید. در این حالت مشخص است که به تعداد شیت های موجود باید کدها اجرا شوند.
حالت دیگر حلقه ها زمانی هست که شما از ابتدا دقیق نمیدانید که کدهای مدنظر شما چند بار باید تکرار شود و در واقع تکرار کدها مشروط به شرایط خاصی هست.
به صورت کلی حلقه For دارای دو ساختار هست:
- ساختار For … Next
- ساختار For … Each
ساختار For … Next
در این ساختار از یک متغیر استفاده میشه که مقدار آن در هر بار اجرا شدن کدهای درون حلقه For تغییر میکنه و زمانیکه به حد بالای مشخص شده برای این متغیر برسه از حلقه خارج میشه. به عنوان مثال در دستور زیر متغیر i از مقدار ۱ شروع و تا ۱۰ در هر بار چرخه تغییر میکنه (به عبارت دیگه دستور پاک کردن سلول ها ۱۰ بار تکرار میشه)
For i = 1 to 10
Worksheets( "Sheet1" ).cells( i ,1 ).clear
Next i
در این کد مقدار i در شروع حلقه از یک شروع میشه و سلول A1 پاک میشه و زمانیکه به انتهای حلقه میرسه با توجه به اینکه هنوز مقدار i از ۱۰ کمتر هست مجددا به ابتدای حلقه برمیگرده. اما در این حالت متغیر i مقدار دو خواهد داشت و سلول A2 پاک خواهد شد. این حلقه به همین صورت ادامه پیدا میکنه تا مقدار i به ۱۰ برسد و سلول A10 پاک شود. در این زمان مقدار متغیر i به عدد ۱۱ افزایش پیدا میکنه و با توجه به اینکه از عدد ۱۰ بیشتر است از حلقه خارج میشه و دیگه سلول A11 پاک نمیشه.
بعد از آشنایی با ساختار حلقه For، این سوال پیش میاد که اگر بخوایم مقداری که در انتهای هر حلقه، مقداری که به متغیر شمارنده اضافه میشه چیزی به غیر از یک باشه چه باید کرد؟
فرض کنید قصد ایجاد داده های محور افقی یک نمودار هستید. این اعداد از ۱ شروع و به فاصله ۰.۱ از هم زیاد میشه تا به ۱۰ برسه. برای این کار از کد زیر استفاده میکنیم:
For i = 1 To10 Step 0.5
Worksheets( "sheet1" ).Cells( (i - 0.5) / 0.5, 1 ) = i
Next i
در این کد با استفاده از دستور Step تعیین کردیم که متغیر i در انتهای حلقه به مقدار ۰.۵ زیاد بشه. همچنین از این متغیر استفاده کردیم که در هر بار چرخش مقدار i با استفاده از دستور Cells در سلول های ستون A نوشته بشه.
برای اینکه چرخه از حالت افزایش (افزایش مقدار متغیر شمارنده) به حالت کاهشی تغییر کنه کافیه مقدار عددی که جلوی Step نوشته میشه عدد منفی باشه و مقدار اول و آخر باز جابجا بشه:
For i = 10 To 1 Step -1
نوع دیگری از حلقه ها در ماکرو که برای تعریف تکرار با شرط دلخواه وجود داره حلقه While هست که در مقاله ای دیگه بهش پرداخته میشه.
با سلام من ۲ تا جدول در اکسس دارم جدول الف و جدول ب
اطلاعات جدول الف جامع و کامله ولی اطلاعات جدول ب داری مغایرت با کویری در اکسس مغایرت ها رو پیدا کردم تعدادش زیاده و بخوام یکی یکی اصلاح کنم زمان بره راهی وجود داره دراکسس یا اکسل این مغایرت ها خودکار اصلاح بشه
درود بر شما
خیلی کلی گفتید
نمیشه چیز خاصی گفت
بصورت کلی بله اگر قاعده و منطقی باشه که بشه طبق اون درست کرد، میشه خودکارش کرد (بصورت کلی عرض کردم)
سلام جناب مهندس چراغی
وقت بخیر
من ی vba دارم که میخوام ازش برای داده هایی که توی صفحه دیگه پر میشه دیتا بیس درست کنم.
همه چیز خوب پیش میره فقط اینکه من میخوام ی خط دیگه به فرمول اضافه کنم اما خطا میده.
For i = 8 To 127
For j = 3 To 34
If Sheet4.Cells(i, j) > 0 Then
Sheets(“DB”).Select
Sheet5.Range(“A5:G5”).Select
Selection.Insert SHIFT:=xlDown
Sheet5.Cells(5, 1) = Sheet1.Cells(13, 5)
Sheet5.Cells(5, 2) = Sheet1.Cells(13, 3)
Sheet5.Cells(5, 3) = Sheet4.Cells(i, 2)
Sheet5.Cells(5, 4) = Sheet4.Cells(6, j)
Sheet5.Cells(5, 5) = Sheet4.Cells(i, j)
j = j + 1
Sheet5.Cells(5, 6) = Sheet4.Cells(i, j)
Else
End If
Next j
Next i
من میخوام به آخر فرمول این بخش رو اضافه کنم که ی سل دیگه هم به دیتابیس اضافه بشه
j = j + 2
Sheet5.Cells(5, 7) = Sheet4.Cells(i, j)
نمیدونم باید متغیر دیگه تعریف کنم یا یک i و j دیگه؟؟؟
ممنون میشم کمک کنید
سلام
چه خطایی میگیرید؟
از F8 استفاده کنید که خط به خط کدها اجرا بشه و نشون بده که کجا داره خطا میده؟
با سلام خدمت شما
چطور سطرهایی که سلول c4 خالیه رو حذف کنم و اونایی که پره بوردر کنم
مثلا اینو تا آخرین سطر ادامه بدم
sub macro1()
If (Range(“c4”) = “”) Then
Rows(“4:4”).Delete Shift:=xlUp
End If
End Sub
ممنون میشم اگه راهنمایی کنید یا نحوه حلفه رو بگید
سلام
اگه منظورتون اینه که سطرهایی که ستون C آنها خالی هست حذف شود کافیه یک حلقه For ایجاد کنید (دقت کنید که دامنه این حلقه مهم هست و اگه درست تنظیم نشده باشه باعث کند شدن فایل شما بشه)
Sub macro1 () Dim ICounter as integer For ICounter = 100 to 1 step -1 If Range("c1").Offset( ICounter, 0) = "" Then Range("c1").Offset( ICounter, 0).EntireRow.Delete End If Next ICounter End Subسلام من این کد رو دارم چطور میتونم به تعداد صفحات داخل اکتیو شیت م تکرار بشه؟ سوال دومم اینه که نام فایلم یه همچین چیزی باشه (cell(d,i+64).value=filename).ممنونم میشم پاسخ دهید
Sub SaveAsPDFOptions()
Dim saveLocation As String
saveLocation = “C:\Users\1\Documents\myPDFFile.pdf”
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=[d1].Value, _
OpenAfterPublish:=False, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
Quality:=xlQualityStandard, _
From:=1, To:=1
end sub
سلام
میتونید یک حلقه For بنویسید که به تعداد (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) چرخش انجام دهد.
در هر چرخش میتونید نام فایل رو با همین فرمولی که گفتید در یک متغیر متن ایجاد کنید و در هر دوره از حلقه به خصوصیت savelocation بدید.
سلام بنده میخوام با استفاده از کد نویسی در اکسل تعدادی شیت ایجاد کنم . چطور میشه این کار را انجام داد ؟
آیا باید دستور ساخت شیت رو داحل یک حلق برد ؟
اگر درسته لطفا راهمایی کنید که چگونه این کار را انجام بدهم
درود بر شما
برای این کار ماکرو ضبط کنید و کد رو مشابه مقاله که ساختار for رو توضیح داده قرار بدید
با سلام
من ۳۰ تا فایل به تعداد روز های ماه دارم که داخلش اطلاعات هست.
حالا می خوام یک فایل جمع درس کنم که بره از داخل فایل های دیگه چنتا سلول مشخص رو بخونه بیاره داخل مجموع.
چطور میتونم این کارو بکنم؟
البته این سی تا فایل به مرور تهیه میشوند و باید فایل جمع هر فایل جدید که به فولدر ماه اضافه میشه رو اتوماتیک پیدا کنه و چنتا سلول را بخونه بیاره داره خودش.
سپاس
درود بر شما
یا باید کدنویسی VBA انجام بدید یا با پاورکوئری انجام بدید
بسیار ممنون از پاسخ سریع تون
بله بنده اطلاع داشتم هردو روش فوق چاره کار است اما چه کنم که هیچ کدام را بلد نیستم و فیلم ها اموزشی نیز کمکی نکرد. شاید دوستی بتواند به بنده کمک کند؟!
سپاس از سایت بسیار پر بارتون
سوالتون چیزی نیست که بشه اینجا مشخصا جواب داد. بستگی به خیلی چیزها داره
اینجا فقط میشه راهنمایی کرد. مطابعه و یادگیری با خودتون
دستور merge رو در پاورکوئری مطالعه کنید و روی داده هاتون اعمال کنید
سلام مشکل این کد چیه؟
سلام
کد زیر رو با اکد انتهای پیام جابجا کنید:
کد صحیح:
من یک ستون دارم با یه سری داده های تکراری
در مقابل این ستون یه ستون دیگه هسات که شامل یه سری عدد هست
حالا میخوام بنویسم تا جایی که ستون اول با هم مساوی هستند دادهای ستون دوم رو کنار هم (جمع نکنه) بذاره
Sub ali()
Dim i As Integer
Dim j As Integer
j = i – 1
For i = 2 To 6
If Cells(i, “a”).Value = Cells(i – 1, “a”).Value Then
Cells(i – 1, “c”) = Cells(i – 1, “b”).Value & Cells(i, “b”).Value
End If
Next i
End Sub
این کد رو نوشتم اما این فقط دو ستون رو کنار هم میذاره
برا نوشتن حلقه تو این دستور کمک میخواستم ازتون
ممنون
سلام
برای حل این مسئله نیاز به تعریف حداقل دو حلقه تو در تو هست برای همین درون حلقه For اولی که خودتون نوشتید باید یک حلقه For دیگه تعریف کنید که بر اساس عددی که در ستون اول بررسی میکنید داده های ستون دوم (با استفاده از حلقه دوم) بررسی کنه و نتیجه دلخواه رو براتون ثبت کنه.
سلام برای تبدیل یک کد دستوری به یک حلقه چکاری باید انجام دهیم
مثلا کد
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
If Len(TextBox1.Text) < 10 Then
MsgBox "شما نمیتوانید حروف وارد کنید ، فقط باید عدد وارد کنید", vbMsgBoxRight, "اطلاعات ورودی اشتباه است"
Cancel = True
End If
End If
End Sub
را چطور حلقه کنم که بتونم برای چندین تکس باکس استفاده کنم
سلام، از حلقه ها برای انجام این کار استفاده کنید.
سلام
من این مقاله شما را خوندم . خیلی جالبه با vba خیل از حلقه های مورد نیاز را می تونم ایجاد کنم ولی مشکلی که دارم اینه که چطور وارد محیط vba بشم تا حلقه را ایجاد کنم. ممنون میشم اگه راهنمایی کنید.
درود بر شما
پست زیر رو مطالعه کنید:
https://excelpedia.net/macro-recording/