사용자 정의 변수

사용자 정의 변수 실습

1. 목표

- 직원 명부를 '사용자 정의 변수'를 이용한 배열로 저장

- 해당 배열을 복제하여 다른 셀에 복사

2. 사용 기능

- 배열

- 사용자 정의 변수: c++의 구조체와 비슷한 성격으로 각 항목을 배열로 저장하면 배열에서 '배열.항목이름'으로 호출 가능

3. 코드 사진 & 주석

Option Explicit

Type 길드원                      '사용자 정의 변수 설정'

    순번 As Integer

    이름 As String

    직위 As String

End Type

Sub 직원관리()

Dim 직원() As 길드원   '배열 선언'

Dim i As Integer

Dim j As Integer

Dim a As Integer

Do

    ReDim Preserve 직원(i)   '배열 최대치 증가'

    

     직원(i).순번 = Range("B3").Offset(i).Value     '각 항목 저장'

     직원(i).이름 = Range("C3").Offset(i).Value

     직원(i).직위 = Range("D3").Offset(i).Value

     

     i = i + 1

 

Loop While Range("B2").Offset(i).Value <> ""

j = Int(UBound(직원)) - 1   '배열 최대치 확인 + 배열은 0부터 시작이니까 -1 (아래에 for문을 이용할 때 필요) '

For a = 0 To j    '복사한 내용들 재배치'

    Range("F3").Offset(a).Value = 직원(a).순번

    Range("G3").Offset(a).Value = 직원(a).이름

    Range("H3").Offset(a).Value = 직원(a).직위

    

Next a

End Sub

4. 결과

5. 사용 가능성

 - 특정 데이터에 레이블 부여하고 필요 없는건 필터할 수 있을것 같다. (ex: 탈퇴 회원을 해당 시트로 이동하는 자료 주고받기 용이)

 - xml을 쓰게되면 기본적인 정보 주고받고에 유리하지 않을까?