پرسش مقادیر غیر سری در یك حلقه

[ظهور 313]

سلام و عرض ادب خدمت اساتید محترم
یك حلقه داریم كه مقادیرش به صورت سری هست یعنی از 2 تا 10000
Dim R As Integer
For R = 2 To 10000

Next R

حالا میخوام ببینم راهی است كه مقدار R رو به صورت نامرتب بهش بدم، یعنی مثلا 102 - 104- 108
آیا این امكان وجود داره؟

ممنون میشم راهنمایی بفرمایید

[iranweld]

سلام و عرض ادب خدمت اساتید محترم
یك حلقه داریم كه مقادیرش به صورت سری هست یعنی از 2 تا 10000
Dim R As Integer
For R = 2 To 10000

Next R

حالا میخوام ببینم راهی است كه مقدار R رو به صورت نامرتب بهش بدم، یعنی مثلا 102 - 104- 108
آیا این امكان وجود داره؟

ممنون میشم راهنمایی بفرمایید

باید فرمولی برای k در کد ذیل تعریف کنید که مطابق خواسته شما انجام بده

Sub test()

k = 2


For i = 1 To 1000 Step k


range("A" & i).select



k = Application.RandBetween(1, 9)


MsgBox k


Next


End Sub