Tenn's WorkSpace

[ExcelVBA] 기본예제 2 (셀지정/배열/Function)

Excel 2010. 10. 19. 09:32

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

Sub Sample2()

   Range("A" & "1") = "this is target cell"
   'target cell 지정

'**** 배열
   Dim arr(2) As String
   arr(0) = "1st array"
   arr(1) = "2nd array"
   MsgBox arr(0) + " " + arr(1)
   MsgBox arr(0) & " " & arr(1)

   MsgBox a(1)

   '*** For문
   For i = 1 To 5
If i = 5 Then
   Exit For 'For문을 끝냄
End If
   Next

End Sub

'***Function은 유저 프롯시저를 작성하기 위한 프로시저.
Function a(para1 As Integer) As String

a = "<" + Str(para1) + ">"

End Function

Posted by tenn

,

[ExcelVBA] 기본 예제

Excel 2010. 10. 18. 15:04

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