비주얼베이직(Visual Basic, VBA) 1차원 배열 선언 및 정의 하기

비주얼베이직(Visual Basic, VBA) 1차원 배열 선언 및 정의 하기 

비주얼베이직(Visual Basic, VBA) 1차원 배열 선언 및 정의 하기

앞선 포스팅까지 문자열에 대해서 여러가지 이야기를 해봤습니다. 그럼 집합형 데이터 타입의 한 종류인 배열에 대해서 이야기 해볼까 합니다. 일단 배열이라고 하면 영어로 Array로 순차적인 쌓여 있는 데이터라고 보셔도 됩니다. 즉 배열이라는 부분은 다음과 같습니다. 

 

다음과 같이 선언된 배열에는 각기 다른 데이터들이 입력이 가능합니다. 괄호 안에 있는 숫자들은 배열의 인덱스 입니다. 

0) "A"

1) 100

2) 300

3) "APPIA"

4) "HEELO

5) "VS"

 

관련해서 배열을 정의 하는 방법과 정의된 배열에 값을 할당하는 방법에 대해서 두가지 형태로 알아보겠습니다. 

 

정의 하는 방법 

1. 배열의 사이즈와 함께 선언하기 

Dim 배열 이름(사이즈)

2. 일반 변수 선언후 각 값 할당을 통해 배열 만들기 

Dim 배열 이름  배열 이름 = Array(배열 맴버들)

위와 같은 형태로 선언을 합니다. 그럼 간단한 예제로 한번 살펴보겠습니다. 

 

Private Sub Array_Example()
 
    ' 사이즈 입력하여 배열 선언
    Dim ArrVal1(4)
    
    ' 일반 변수 선언 후 Array 함수를 통한 배열 생성    
    Dim ArrVal2
    ArrVal2 = Array("A", "B", "C")
    
End Sub

위와 두가지 형태로 같은 형태로 배열의 선언이 가능합니다. 

 

그럼 이제는 각 값에 접근하는 방법에 대해서 살펴보겠습니다.

배열 값을 할당하는 방법 

배열 이름(위치) = 값

배열 값을 읽어오는 방법 

배열 이름(위치)

위의 부분에 대해서 다음과 같이 예시로 살펴보겠습니다. 

Private Sub Array_Example()
    
    Dim ArrVal1(4)
    
    Dim ArrVal2
    ArrVal2 = Array("A", "B", "C")
    ArrVal1(0) = 0
    ArrVal2(2) = "F"
    MsgBox ("Array 맴버 출력/ArrVal1 :" & ArrVal1(0))
    MsgBox ("Array 맴버 출력/ArrVal2 :" & ArrVal2(2))
    
End Sub
 
 

 

위의 코드를 실행하면 다음과 같은 결과가 나타납니다. 

예제 1번 결과 

예제 2번 결과 

앞서서 봤던 바와 같이 값을 할당하고, 값을 읽어 올 수 있습니다. 

 

이번 포스팅에서는 비주얼베이직(Visual Basic, VBA) 1차원 배열 선언 및 정의 하기 라는 주제로 1차원 배열을 생성하고 각 값을 할당하거나 읽어오는 방법에 대해서 살펴봤습니다. 혹 궁금하신 점이나 문의 사항이 있의시면 언제든지 댓글 및 방명록에 글 남겨주시길 바랍니다.