OfficeAutomation

▶ With ~ End With문 ▶ For Each ~ Next문 ■ With ~ End With문 하나의 개체에 여러작업을 한번에 수행 Sub ChangeFont() Dim r As Range Set r = Range("a1:e10") With r.Font .Name = "맑은고딕" .Bold = True .Italic = True .Size = 12 .Underline = xlUnderlineStyleSingle .ThemeColor = xlThemeColorAccent1 End With End Sub ■ For Each ~ Next문 컬렉션 개체에 포함된 모든 개체에 대해서 작업을 수행 Sub CloseInActive() Dim wb As Workbook For Each wb In Workbook..

■ 출력함수 1. MsgBox함수 : 대화상자에 반환값 출력 MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ]) prompt : 대화상자에 표시할 내용 buttons : 버튼 종류 title : 대화상자 제목 helpfile : 대화상자에 도움말 제공시 필요한 도움말 파일 context : 도움말에 지정된 컨덱스트 ID를 나타내는 수식 ※ MsgBox함수는 반환값(사용자가 선택한 버튼)이 있다. 반환값 표시 창으로만 사용하려면 Button인수를 생략하면 된다. ( 반환값 없음 ) A = msgbox ("Result : ", vbOKCancel,Title:="결과창") ※ 디버깅에 MsgBox함수를 사용하여 코드를 중지하고 변수/지금까지의 계산값..

- VBA 내장함수 : VBA에 내장된 함수 - WorkSheet함수: 엑셀 수식입력창에서 사용하는 함수 ■ VBA내장함수 : VBA 라이브러리에 속한다. ( 개체 찾아보기(F2) > 라이브러리 중 VBA에 해당 ) -> 녹색 아이콘 ※ 코드입력 시 확인 방법 : [VBA.] 함수명 Debug.Print VBA.Sqr(25) ' 5 Debug.Print Sqr(25) ■ WorkSheet함수 - VBA에서 WorkSheet함수를 사용할 수 있다 Application.WorksheetFunction.함수 Application.WorksheetFunction.vlookup(1,[a1:c10],3) ※ 사용자 정의 함수 Function Procesure를 이용하여 함수를 만들어 Worksheet함수처럼 사용 ..

보호되어 있는 글입니다.

VBA 언어의 구성 요소와 문법 ※ 명령문 한줄에 입력 시 : (콜론) 이용 For i = 1 to 100 : Total = Total + i : Next i ■ 주석 ( ' )작은 따옴표 이용 용도 : 설명을 달고자 할 때 / 코드 테스트에서 주석처리하여 코드 실행 해제 할 때 ※ "문자열안의 작은 따옴표" : 큰따옴표 안의 작은따옴표는 문자열의 일부분으로 본다. Txt = "Can't find." ■ 변수 ※ 변수 작명 원칙 - 대소문자를 구분하지 않는다. : 변수 선언 시 이름이 이후 코딩 때 바로 적용됨 (대소문자를 구분하는 것처럼 보임) 쉽게 알아 볼 수 있도록 대소문자를 혼합하여 작명한다. Dim DataEntry as Currency - 첫글자는 영문자(한글)로 시작하고 숫자, _(언더바) ..

1. 개체에 대해서 기억해야 할 필수 개념 - 개체에는 고유한 속성과 메소드가 있다. 그러나 공통된 요소도 있다.( Name, Delete ) - 개체를 선택하지 않고서도 개체에 작업 수행 가능(Select꼭 필요하지는 않고 셀조작 가능) - 컬렉션의 개념을 이해하라!!! : 컬렉션 개체를 참조하면 컬렉션 개체에 포함된 개체가 반환된다. Workbooks("Myfile.xlsx") - 일부 속성은 다른 개체에 대한 참조를 반환한다. Range("A1").Font.Bold = True Range도 개체이고 Font도 객체이며 Bold는 Font개체에 속한다. - 개체는 다양한 방법으로 참조 가능 Workbooks("통합문서1.xlsx").Worksheets ("재무재표") Workbooks(1).Works..

■ 병합된 셀 존재 확인 CODE Function ContainsMergedCells(rng As Range) As Boolean Dim c As Range ContainsMergedCells = False For Each c In rng If c.MergeCells Then ContainsMergedCells = True Exit Function End If Next c End Function Sub aaa() If ContainsMergedCells(Range("a1:e20")) Then MsgBox ("병합셀이 존재합니다.") Else MsgBox ("병합셀이 없습니다.") End If End Sub ■ 병합셀의 특징 [A1:B2]셀이 병합되어 있다 가정하면 - 병합된 셀을 참조하는 방법 ① 병합된..

1. Range속성을 이용하여 범위 참조하기(WorkSheet객체.Range속성) Range("A1") : 단일셀 Range("A1:E10") = Range("A1", "E10") :영역 Range("이름") : 이름정의 이용 Range("C1:C10" ∨ "A6:E6") : 논리연산 이용 Range("A1 , A3 , A7 , B5") : 비연속셀 참조 2. Cells속성을 이용하여 범위 참조하기(WorkSheet객체.Cells속성) Cells(rowIndex, columnIndex) Cells(Index) : 가로방향의 인덱스 => Cells(16385) = [A2] Cells : 전체 셀 3. 상대 참조 개념 Range객체.Range속성 Range객체.Cells속성 ActiveCell.Range("..