vba 한글 랜덤 출력 및 한글 표 출력

'클래스 모듈에서 만듬

Public WithEvents 랜덤글자버튼 As MSForms.CommandButton

Public WithEvents 한글표출력버튼 As MSForms.CommandButton

Public 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(Rnd * (y끝 - y시작 + 1) + y시작)

         텍스트 = 텍스트 & Chr(y * &H100 + x)

                  

      Next

      

      셀.Value = 텍스트

      

   Next

   

End Sub

Private Sub 한글표출력버튼_Click()

   Dim x As Long, y As Long, i As Long

   x시작 = &HA1

   x끝 = &HFE

   y시작 = &HB0

   y끝 = &HC8

   

   For y = y시작 To y끝

      Cells(y - y시작 + 2, 1).Value = Hex(y * &H100)

   Next

   

   For x = x시작 To x끝

      Cells(1, x - x시작 + 2).Value = Hex(x)

   Next

   

   For y = y시작 To y끝

      For x = x시작 To x끝

         Cells(y - y시작 + 2, x - x시작 + 2).Value = Chr(y * &H100 + x)

      Next

   Next

   

End Sub