[حل شده] استفاده از تابع Randbetween(i,j)

[art1364]

با سلام
من می خواهم در سه شیت اکسل از تابع Randbetween(i,j). در n سطر و m ستون استفاده کنم به طریقی که i و j و n و m توسط کاربر تعیین شود مثلا در شیت اول کاربر وارد کنه i=1 و j=10 ، n=100 و m=10 بعد با اجرای ماکرو نتیجه اش این شود که در سه شیت در 100 سطر و 10 ستون اعدادی بین 1 تا 10 به صورت رندم وجود داشته باشد.

[Ali Parsaei]

سلام،
اين کد را در يک ماکرو بنويسيد تا در شيت فعال خواسته شما اعمال گردد:

Dim C As Range
Dim i As Integer
Dim j As Integer
Dim N As Integer
Dim M As Integer
i = InputBox("Start-RandBetween")
j = InputBox("End-RandBetween")
N = InputBox("ROWS?")
M = InputBox("COLUMNS?")
For Each C In Range(Cells(1, 1), Cells(N, M))
C = Application.WorksheetFunction.RandBetween(i, j)
Range(Cells(1, 1), Cells(N, M)).Select
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Next