[حل شده] ایجاد اتومات اعداد مثلا بین 50 تا 100

[mohammad59]

سلام

احتراما

برای تولید اعداد مثلا از شماره 50 به تعداد100ردیف عدد چه کدی رو باید بنویسیم

که این 100 ریدف به ترتیب از خانه a1 شروع بشه تا آخرین سلول

(مثلا برای ایجاد دسته چک 50 برگی که شروع اولین سریالش 604960 می باشد)


ممنونم

[amir_ts]

با سلام
اگر منظور شما تولید اعداد رندومی باشه این فرمول را امتحان کنید...

=INT(RAND()*($B$1-$A$1)+$A$1) 

a1=604960
b1=605890

[mohammad59]

احتراما منظور من اعداد تصادفی نیست

اعداد به صورت ردیفی مثلا 604960/604961/604962/604963/....

با سپاس

[amir_ts]

[LEFT]Sub test()
Dim tem, i As Integer
tem = 604960
For i = 1 To 50
Range("a" & i).Value = tem
tem = tem + 1
Next
End Sub[/LEFT]

[mohammad59]

خیلی سپاسگزارم

حل شدممنونم