اجرای حلقه بر مبنای آخرین سطر

[mch2v]

سلام
مثلا حلقه از سطر 1 تا سطر 10 اجرا میشه .
حالا میخوام اگه سطری به سطرامون اضافه یا کم شد ، تعداد اجرای حلقه هم به تعداد سطرامون ( سطر دارای مقدار )افزایش یا کاهش پیدا کنه.
با تشکر

[Ali Parsaei]

سلام،
خوب بايد مثلا" محدوده را خيلي بزرگتر بگيريد و بگوييد در محدوده فلان به ازاي هر سلولي که بزرگتر از صفر بود ......

[mch2v]

ببخشید میشه کدش رو بنویسید

[Ali Parsaei]

بله، فرضا" يک چيزي مثل اين:

Dim C As Range
For Each C In Range("A1:A100")
If C <> "" Then
C.Offset(0, 1).Value = "عمليات روي اين سطر هم اجرا مي شود"
End If
Next 

[mch2v]

خوب ببینید مثلا اگر محدوده صد هزارتا باشه دستگاه هنگ میکنه(مثلا) ، و من نمیخوام توی این محدوده حلقه اجرا بشه بلکه میخوام محدوده تا آخرین سطری که مقدار داره تنظیم بشه.
یعنی اینکه range متغیر باشه.

[Ali Parsaei]

چيزي که به فکرم مي رسد اين است که اگر بين داده هايتان خانه خالي نباشد مي توانيد از يک همچين کدي استفاده کنيد، ببينيد به درد مي خورد؟
البته شايد دوستان ديگر راه حل هاي بهتري داشته باشند، اين هم کد:

Dim C As Range
Range("A1").Select
For Each C In Range("A1", Selection.End(xlDown))
C.Offset(0, 1).Value = "OK"
Next 

[misammisam]

با اجازه آقای پارسا
ببینید اینطوری بدردتون میخوره ، خونه خالی هم بینشون باشه مشکلی نیست

Private Sub CommandButton1_Click()
endrow = Sheet1.Range("A:A").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Dim C As Range
For Each C In Range("A1:A" & endrow)
If C <> "" Then
C.Offset(0, 1).Value = "-------"
End If
Next
End Sub 

[mch2v]

آقای misammisam عالی بود ممنون ، فقط میشه خط اول کد رو توضیح بدید ، میخوام بدونم دقیقا چه کار میکنه

[misammisam]

خواهش میکنم ، وظیفه بود .
این کد آخرین سطر غیر خالی در محدوده مورد نظر شما که اینجا a:a هست رو پیدا میکنه .

[mch2v]

ببخشید منظورم چگونگی عملکردش بود
آخه اون چیزایی که نوشتید من نمیدونم چه کار میکنه که اگه خواستم تغییرشون بدم
ممنون از لطفتون

[Alireza]

ببخشید منظورم چگونگی عملکردش بود
آخه اون چیزایی که نوشتید من نمیدونم چه کار میکنه که اگه خواستم تغییرشون بدم
ممنون از لطفتون

سلام
دوست عزیز از این ماکرو استفاده های زیادی میشه کرد فقط کافیه if رو تغییر بدید یعنی نوع شرطی که لازم دارید در فایل استفاده کنید و بعد دستوری که در صورت برقراری شرط لازم دارید رو به ماکرو بدید .

Sent from my LG-D686 using Tapatalk

[Ali Parsaei]

آقای misammisam عالی بود ممنون ، فقط میشه خط اول کد رو توضیح بدید ، میخوام بدونم دقیقا چه کار میکنه

با اجازه آقا ميثم عزيز،
و اما در مورد خط اول کد يعني:

endrow = Sheet1.Range("A:A").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

در اصل ENDROW يک متغيير است، ما خودمان نامش را گذاشته ايم ENDROW
بعد مقدار اين متغيير را برابر شماره يکي از سطرهاي ستون A قرار داده ايم،
اما کدام سطر؟
آخرين سطر غير خالي در ستون A
آن را چگونه به دست مي آوريم؟ توسط فرمولي که بعد از عبارت مساوي نوشته ايم
تفسير آن اينگونه است:
در اولين شيت در فايل اکسل ما در ستون A در بين مقادير سل ها پيدا کن.....
اما چي را پيداکند؟
ستاره (*) را بايد پيدا کند.
اما ستاره به معناي: هر چي! هست
بنابر اين سلولي که توش چيزي نوشته شده باشد را بايد پيدا کند (حالا هرچي نوشته شده باشد فرق نمي کند!، بنابراين سلول غير خالي را بايد پيدا کند)
حال اين جستجو جهت يافتن سل غير خالي را چگونه بايد انجام دهد؟
اينجا در تابع FIND گزينه هايي وجود دارد که به فراخور حال مي توانيد از آنها استفاده کنيد و شرح آنها را در اين لينک مي توانيد ببينيد.
مثلا" دستور SearchOrder:=xlByRows بدين معني است که جستجو را سطر به سطر انجام بده که البته اينجا چون ما يک ستون بيشتر نداريم اين دستور موضوعيت پيدا نمي کند و مي توان آن را از کد مورد نظر حذف کرد، دستور بعدي يعني SEARCHDIRECTION در اصل راستاي جستجو را تعريف مي کند و XLPREVIOUS بدين معني است که راستاي جستجو را از آخر ستون آغاز کن،
و دست آخر عبارت ROW هم بدين معني است که وقتي سل مربوطه را يافتي شماره رديفش را برگردان
در نتيجه طي اين خط کد شماره رديف آخرين سل غير خالي ستون A به دست آمده و در متغيير تعريف شده ما به نام ENDROW ذخيره مي گردد
همانطور که مشاهده مي کنيد متغيير ياد شده در سطرهاي بعدي مورد استفاده قرار گرفته است.