만드는 이야기/VBA21 사무용 2014. 3. 24. vba 한글 랜덤 출력 및 한글 표 출력 '클래스 모듈에서 만듬 Public WithEvents 랜덤글자버튼 As MSForms.CommandButtonPublic WithEvents 한글표출력버튼 As MSForms.CommandButtonPublic WithEvents 숫자박스 As MSForms.TextBox Private Sub 랜덤글자버튼_Click() Dim 셀 As Variant, i As Byte, 텍스트 As String x시작 = &HA1 x끝 = &HFE y시작 = &HB0 y끝 = &HC8 For Each 셀 In Selection 텍스트 = "" For i = 1 To Val(숫자박스) '한글범위 '&HXXA1~XXFE '&B0XX~C8XX x = Int(Rnd * (x끝 - x시작 + 1) + x시작) y = Int(R.. 2014. 3. 20. vba) 개인사무메크로 2014. 3. 19. vba) 컨트롤 존재 여부 확인 If Not 목록링크라벨 Is Nothing Then ' 목록링크라벨.Caption = 스핀버튼.Value & "번째 시트부터 링크 연결." & vbCr & "행당 시트 하나" End If 2014. 3. 19. 이전 1 2 3 4 ··· 6 다음