Msgbox Worksheets(1).Name ' 첫번째 워크시트의 이름을 메시지 창으로 표시한다.
Range("A1").Value = 100 'A1셀의 값을 100으로 변경
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
Sub 프로시저 이름(매개변수)
명령
Exit Sub
명령
End Sub
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
Sub 주석사용()
Range("A1").Value = Range("A1").Value + 1 '한번실행때마다 A1셀의 값을 1씩 증가시킨다.
End Sub
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
Sub 변수사용() '값 증가 B3에 표시하기
Dim num As Long
Num = Rang("B3").Value
Num = Num + 1
Rang("B3").Value
End Sub
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
Dim 변수 이름 As 개체 '개체가 저장된 변수가 개체 변수
Set 변수 이름 = 개체
---예
Sub 개체변수사용()
Dim 과세급여 As Range 'Range개체형식의 과세급여변수선언
Dim 건강보험료 As Range '위와같음
Const 건강보험요율 As Single = 0.0282
Set 과세급여 = Range("C3")
Set 건강보험료 = Range("D3")
건강보험료.Value=Round(과세급여.Value + 건강보험요율, 0 )
End Sub
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
** 배열변수
Dim 배열변수이름(9) As 데이터 형식
또는
Dim 배열변수이름(1 To 10) As 데이터형식
--Ex
Dim 로또(4) As Integer
로또(0) = 1
로또(1) = 5
로또(2) = 15
로또(3) = 23
로또(4) = 43
Dim 로또(1 To 5) As Integer
로또(1) = 5
로또(2) = 15
로또(3) = 23
로또(4) = 43
로또(5) = 114
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
For i = 0 To 4
Range("A1").Offset(i).Value = 로또(i)
Next i
순환한다. 0부터4까지
--Offset 사용법
--Range.Offset(행 방향 이동 셀 개수, 열 방향 이동 셀 개수)
--Offset(i)는 A1셀에서 행방향(=아래쪽) i번쨰 셀을 의미합니다.
Range("A1").Value = 로또(0)
Range("A2").Value = 로또(1)
Range("A3").Value = 로또(2)
Range("A4").Value = 로또(3)
Range("A5").Value = 로또(4)
-------위처럼 수기로 다 입력할 수는 읍자너 암턴 편한 식이다.
-- 이거 잘 응용하면 Range = Empty? 같은거 응용해서 하기 좋다.
--For i = 0 To 4
--Range("A1").Offset(i).Value = 로또(i)
--Next i
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
이제 2차원 배열변수를 한다 RDB
Dim 배열변수이름(1 To 10, 1 To 10) As 데이터형식
배열변수이름(1, 1 ) = 값 1
배열변수이름(1, 2 ) = 값 2
……
배열변수이름(10, 10 ) = 값100
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
--아 지금껏 생소했던것이 동적 배열변수 였군
Dim 배열변수이름() As 데이터형식
……
ReDim 배열변수이름(1 To 10) '코드진행중간에 ReDim문을 이용하여 배열크기를 조정한다.
--동적 배열변수는 저장할 개수를 지정하지 않고 빈괄호를 사용하여 선언한다.
--Dim문을 이용해 배열변수를 선언할 때 베열크기를 지정하면 ReDim문으로 크기를 조정할 수가 없돠
-- 코드 진행중간에 ReDim문을 이용하여 배열크기를 조정한다.
-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------
ReDim문을 이용하여 배열크기조정할 때 배열변수에 저장된 값이 있다면 해당 값이 삭제된다.
만약 저장된 값을 삭제하지 않은 채 배열크기를 조정하려면 ReDim문 안에 다음과 같이 Preserver키워드를 사용해야 한다.
Dim 배열변수이름() As 데이터형식
……
ReDim 배열변수이름(1 To 10)
배열변수이름(1) = 값1 '10개의 값을 저장할 수 있는 배열변수의 첫번째 요소에 값1을 저장한다.
ReDim Preserve 배열변수이름(1 To 11) '배열변수의 크기를 10개에서 11개로 조정한다.
'첫번째 요소의 값은 값1이며, 만약Preserve를 안쓰면 첫번째 요소 값이 삭제된다.
'Preserve키워드는 2차원 이상의 다차원 배열변수에서는 마지막 차원의 크기만 변경 가능하다.
Dim 배열변수이름() As 데이터형식
……
ReDim 배열변수이름(1 To 10, 1 To 10) 'Redim이용하여 100개의 값을 저장할수있는 2차원배열변수로 배열크기 조정한다.
배열변수이름(1, 1) = 값1 '배열변수 첫번째요소에 값1을 저장한다.
ReDim Preserve 배열변수이름(1 To 10, 1 To 100) '배열크기재조정한다.
'이때 첫번쨰요소는 Preserver를 통하여 보존된다.
'(1 to 10, 1to 200)으로는 가능하나
'(1to 100, 1 to 10)으로는 불가능하다
-------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------
--동적 배열변수의 배열크기 조정하기 -- 이거 임뽀르르딴뜨하다
