[ExcelVBA] 기본 예제

Option Explicit
'모든 변수는 Dim을 사용하여 선언을 하여야 사용을 할수 있음.

Sub Sample()
  
   Dim a As String
  
   a= InputBox(”Input String”)
   '문자열 입력

   Dim i As Long
   For i = 1 To 5
      a =  a + LTrim$(str(i))
      '숫자형i를 문자형으로 변환 + 변환한 문자열의 선행공백을 삭제
   Next
  '결과 : [입력값]12345


   Dim j As Long

   j = CStr("100")
   j = j + 1
   a = a + str(j)
  '결과 : [입력값]12345 101

   MsgBox a & "-connect" & CStr(111)
   '메시지 박스가 나타남
   '결과 : [입력값]12345 101-connect111

    Call b
    '메시지 박스가 나타남 (내용 : b)

End Sub

 

Sub b()
    MsgBox "b"
End Sub