excel VBA 난수 생성하기 rnd

rnd 함수

Public Function intGetRandom() as Integer
     dim iMAX as Integer, iMIN as Integer

     iMAX = 10
     iMIN = 1

     Randomize
     intGetRandom = Cint(((iMAX-iMIN) * rnd())+iMIN)
End Function

1에서 10까지 중 1개의 숫자를 임의로 추출해서 호출한 곳에 돌려주는 내용이다.

Randomize : 난수 생성기를 초기화 해준다.
iMAX : 최대값
iMIN : 최소값
iMIN을 더하는 이유 : 최소값이 아닌 0이 나올수가 있기 때문이다.