수다닷컴

우와 저도 이런거 궁금했었는데

커맨드 버튼에 소스를 넣으시구요.
Msgbox 부분을
Text1.Text = 로 교체하세요.

그런데 이게 커맨드 버튼을 누른후 텍스트 박스에 나오게 할려면 어떻게하죠?ㅜㅜ

와우!!!아라님 정말정말 감사합니다^^

1부터 10 / A ~ Z까지 혼합해서 :

Randomize

Dim Joo As String
Dim Soo() As String
Dim Good As Long
Dim Boo As Long

Joo = \A B C D E F G H I J K L M N O P Q R S T U W X Y Z\
Soo = Split(Joo, \ \)
Good = Int(Rnd * UBound(Soo))
Boo = Int(Rnd * 10)

MsgBox Boo & Soo

1부터 10까지 랜덤으로 :

Private Sub Form_Load()

Randomize

Dim Good As Long

Good = Int(Rnd * 10)
MsgBox Good

End Sub

A부터 Z까지 랜덤으로 :

Private Sub Form_Load()

Randomize

Dim Joo As String
Dim Soo() As String
Dim Good As Long

Joo = \A B C D E F G H I J K L M N O P Q R S T U W X Y Z\
Soo = Split(Joo, \ \)
Good = Int(Rnd * UBound(Soo))

MsgBox Soo(Good)

End Sub