استفاده از حلقه for

[rezahagh]

با سلام من مي خواهم يك حلقه for داشته باشم كه با زدن يك دكمه چند شيت پر شود براي اضافه شدن شماره شيت به مشكل مي خورم مثلا شيت شماره يك پر مي شود ولي وقتي بدهم sheet i . celse(i,j كمپايلر ايراد ميگيرد يعني شيت ايم را نمي شناسد لطفا راهنمايي نماييد

[MEYTI]

RE: استفاده از حلقه for

با سلام دوست عزیز از کد زیر کمک بگیرید

Sub Button1_Click()
Dim SH As Worksheet

For Each SH In Application.Worksheets
SH.Activate
For Each A In SH.Range("A1:A10")
A.Value = "123"
Next

Next

End Sub 

[Javid Mokhtari]

RE: استفاده از حلقه for

با سلام من مي خواهم يك حلقه for داشته باشم كه با زدن يك دكمه چند شيت پر شود براي اضافه شدن شماره شيت به مشكل مي خورم مثلا شيت شماره يك پر مي شود ولي وقتي بدهم sheet i . celse(i,j كمپايلر ايراد ميگيرد يعني شيت ايم را نمي شناسد لطفا راهنمايي نماييد

اگه همون جور كه در بالا نوشتين در كد هم استفاده كردين ،بايد بگم كه اشتباه تايپ كردين.به صورت زير بنويسيد(البته اگر جاي ديگه اي هم اشتباه نباشه):
sheets(i).cells(i,j

[shamsololama]

RE: استفاده از حلقه for

بادرود فراوان

بله همانطور دوست عزیزم آقا جاوید فرمودن برای استفاده i را داخل پرانتز بگذارید ولی اگر اسم شیتهای شما 1 و 2 و 3 ... باشد ولی اگر نام شیت های شما sheet1 و sheet2 و ... باشد می توانی از همون دستور به این ترتیب استفاده کنی

For i = 1 To 3
Sheets("sheet" & i).Select
Next

1-

[Sheets("sheet" & i).Select

2-

[Sheets( i).Select

در دو کد بالا که هر دو اجرا شده و مشکلی ندارند یک تفاوت وجود دارد که در کد اول بر اساس نام شیتها یعنی شیت یک و شیت دو و .... عمل کرده و کاری به ترتیب و جای قرار گرفتن انها ندارد مثلا اگر شیت یک بعد از شیت دو هم قرار گرفته باشد در هر صورت شیت یک را اول انتخاب میکند
ولی در کد دوم که در پرانتز فقط i قرار دارد در یانجا کد کاری به نام شیت ها ندارد و بر حسب ترتیب قرار گرفتن شیتها آنها را انتخاب میکند یعنی وقتی آی برابر با یک هست اولین شیت را انتخاب میکند حتی اگر نام آن شیت sheet3 باشد
[/code]