پرسش سوال در مورد استفاده از حلقه

[sma519]

با عرض سلام و خسته نباشید خدمت دوستان گرانقدر

سوالی در مورد استفاده از حلقه برای فایل پیوستی دارم.
در این فایل ابتدا حلقه باید مقادیر شروع، پایان و گام افزایش زمان را از سلولهای b2 تا b4 دریافت کند و خروجی را در ستون زمان از سلول d2 به سمت پایین برگرداند.
سپس در ستون درصد از سلول e2 به سمت پایین عدد 20 را در ردیفهای متناظر در ستون زمان ضرب کند. (اگر ردیف متناظر در ستون زمان خالی بود، فرمول اعمال نشود)

با تشکر قبلی - محمدی

[iranweld]

با سلام

کدهای ذیل را تست کنید

Sub test()

Range("d2:e1000").ClearContents

k = 2

For i = Range("b2") To Range("b3") Step Range("b4")

Range("d" & k) = i

Range("e" & k) = i * 20

k = k + 1

If k > Range("b3") + 1 Then Exit For

Next


End Sub 

[sma519]

از پاسخ شما متشکرم.
کد فایلی که پیوست کردین، تا مرز 1000 سلول درست کار میکنه و برای بیشتر از اون خطا میده.
کدی هم که توی پست نوشتین، تنها به تعداد عدد درج شده در سلول b3 عمل میکنه. یعنی اگه 10 بنویسم، تا 10 سلول عمل میکنه و گام افزایشی رو اعمال نمیکنه.
اما در کل جوابتون خیلی کمکم کرد
با تشکر مجدد

[sma519]

با سلام مجدد

در همین فایل اگر بخواهم سلولهای حاوی مقدار در ستونهای زمان و درصد رنگ خاصی به خود بگیرند تا از سلولهای خالی تفکیک شوند، چه کدی را باید اضافه کنم.

متشکر