난수(랜덤) 생성 관련

[우주공간]

안녕하세요.. 제가 워낙 초보라서..

VBA를 이용하여 랜덤 함수를 만들어서 활용하고 있읍니다.

Dim i As Integer
Dim j As Single
Dim num As Integer

num = Cells(3, 2)

a = Cells(3, 4) * 1000
b = Cells(3, 3) * 1000

For i = 1 To num

Cells(i + 13, 3) = Int((a - b + 1) * Rnd + b) / 1000

Next

End Sub

버튼을 누르면 랜덤으로 숫자가 나오게 되는데 이때 해당 숫자가 해당 SHEET에

출력이 되도록 되어 있는데요..

이것을 타 SHEET에 출력 내용이 그러니까 랜덤 버튼을 클릭하면 다른 SHEET에

해당 내용이 나오도록 할 수 있는지요?

하려면 어떻게 하면 되는지?

[Mr_Candy]

안녕하세요? For문내에서 시트명.cells 속성으로 접근하시면 됩니다.