OfficeAutomation

■ Range 매개변수로 데이터를 받아 배열을 반환하기 - 모듈을 생성하여 아래의 코드를 붙여넣어 사용자 정의 함수를 생성한다. CODE Function ReturnArray(rng As Range) As Variant Dim r, Arr() As Variant Dim i As Integer i = 0 For Each r In rng ReDim Preserve Arr(i) Arr(i) = r i = i + 1 Next r ReturnArray = Arr End Function - O1셀에 수식을 입력하여 X1까지 드래그한 결과 (배열 미적용) 전달 범위 함수 실행결과 수식입력 - O1~X1영역을 선정하여 배열수식 입력 결과 (배열 수식 적용) 전달범위 함수 실행결과 동일 수식입력 ■ Range 매개변수로..

DATA배열을 만들기 위해서는 반드시 String형 자료형 선언 필요 # variant자료형으로 선언시 split하여 대입된 DATA의 모양 => DATA(0)(0), DATA(0)(1)........ 형식임 (차후 정리 필요) - Trim을 이용하여 양끝 공백 제거 - Split을 이용하여 space bar 단위로 문자열 split - 문자열을 정수화하여 직접실행창에 출력 Dim i As Integer Dim a, DATA() As String a = InputBox("데이터 입력 [ space bar로 구분 ]") DATA = Split(Trim(a)) For i = LBound(DATA) To UBound(DATA) Debug.Print (Int(DATA(i))) Next i

■ 셔플 개념 CODE Sub shuffle_data() 'PURPOSE OF CODE 'TO RANDOMLY SHUFFLE CONTENTS OF AN ARRAY 'SIZE AND TYPE OF ARRAY DOES NOT MATTER 'FOR THIS EXAMPLE I WILL USE A 9 ELEMENT ARRAY OF INTEGERS Dim i, rnum, Temp, b(9) As Integer 'dimension array with 9 integer elements 'populate array element i with integer i For i = 0 To 9 b(i) = i Next i 'intialize random number generator Randomize Timer 'swap arr..

출처 : 프리렉 / 엑셀 VBA 바이블 / 이현곤 구미숙 저 WIELY / Excel 2016 Power Programming with VBA / John Walkenbach 8.5 배열 배열은 같은 자료형을 가진 요소들의 집합 ■ 배열 선언하기 1. [Dim/Public/Private] 배열명 ( 시작 인덱스 To 끝 인덱스 ) As 데이터 타입 Dim Myarray(0 To 100) As Integer 2. [Dim/Public/Private] 배열명 ( 끝 인덱스 ) As 데이터 타입 마지막 인덱스 번호만으로 배열 선언 ( index 0부터 시작 ) Dim Myarray(100) As Integer # 상기와 같은 표현 3. 배열에 값 대입 'index 55에 100 대입 Myarray(55) = ..