본문 바로가기

전체 글

(3)
배열을 시트로 출력 방법 배열을 시트내 특정 위치로 출력하기 위해 우선은 배열의 크기를 계산할 수 있어야 합니다. 그리고 배열을 선언하는 방법 또는 배열 차원을 미리 고려해서 계산할 필요가 있었습니다. [test1] 우선 아래 코드는 Array() 함수를 사용하여 변수 Arr 을 배열로 초기화 한 뒤 시트내 "I1" 으로 출력한 것이다. Sub test1() Dim Arr As Variant Arr = Array("가", "나", "다") Range("I1") = Arr End Sub [문제점1] 기대 결과인 I1 에는 "가", J1 에는 "나", K1 에는 "다" 와 달리, "가" 만 출력되었다. [test2] 문제점1 해결 방법 구글링 결과 구글링을 해보니 Range.Resize() 함수를 사용해야 할 것 같은데, 첫 번째 ..
엑셀 매크로 - 그라데이션 특정 값의 범위를 글꼴 색(A열 참조) 또는 채우기 색(B열 참조) 의 그라데이션을 입혀서 강조하려고 할때 사용한다. 예제 코드 Sub test_그라데이션() Cells.Clear Range("a1:b10") = "Yield" Range("a1:b10").Interior.ColorIndex = 30 Dim i As Integer For i = 1 To 10 Range("a" & i).Font.TintAndShade = 0.1 * (11 - i) Range("b" & i).Interior.TintAndShade = 0.1 * i Next Range("a1:b10").Borders.ThemeColor = 1 End Sub
엑셀 매크로 - 배열 함수 배열 변수와 배열을 반환하는 함수 사용 예 함수 사용예 주의 사항 Array 함수 Dim 색상 as Variant 색상 = Array("빨강","파랑","노랑") Split 함수 Dim 색상 as Variant 색상 = Split("빨강,파랑,노랑", ",") Option Base 문과 상관없이 첫번째 값의 인덱스는 무조건 0입니다. Lbound, Ubound For i = Lbound(색상) to Ubound(색상) Debug.print 색상(i) Next 함수 반환값의 데이터형은 Long 형입니다. 배열 값을 Cell로 이동 예 (예시-1) Range("a1:c1") = Array("빨", "파", "노") (예시-2) Range("a1:d1") = Array("빨", "파", "노") (예시-3) ..