حلقه های for -next

[ali.b]

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

For counter = start To end [Step step]

دستورات
Next [counter]


برای مثال برنامه ای می نویسیم که در سلهای اکسل به صورت یکی درمیان پر نماید:
جهت نیل به این هدف از فرمول زیر استفاده می شود:

For i = 1 To 10 Step 2
Cells(1, i) = i
Next i 

به همین ترتیب و با استفاده از تکنیک step در حلقه ها می توان از اعداد زوج با step 2 و اعدادفرد با step یک یا سه بهره جست.
حلقه های تو در تو

با استفاده از چندین حلقه for می توان امور تکراری پیچیده تر و بیشتری را انجام داد.
در مثال زیر تلاش ما بر این است که یک جدول ضرب 10*10 در محیط اکسل ایجاد نماییم.
برای رسیدن به این منظور به راحتی و با استفاده از 2 حلقه می توان این برنامه را به شکل زیر نوشت:

Sub ZARB()
For i = 1 To 10
For j = 1 To 10
Cells(i, j) = i * j
Next j
Next i
End Sub 

استفاده از ساختارهای شرطی در حلقه ها

حال می خواهیم که در همین جدول مضارب 5 را با تغییر فونت مشخص نماید:
برای این منظور باید بعد از سطر چهارم برنامه خط زیر را نوشت:

If i = 5 Or j = 5 Or i = 10 Or j = 10 Then
Cells(i, j).Font.Size = 25
End If 

می توان در برنامه موجود کار پیغامی مبنی بر اینکه آیا مایل به ذخیره نمودن برنامه هستید یا خیر، پس از if برنامه ایجاد نمود.


منبع:

دوست عزیز اقای بیرامی
اینم ادرس سایت

http://persianblog.ir

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.