OfficeAutomation

Sub DataLabelsFromRange() Dim DLRange As Range Dim Cht As Chart Dim i As Integer, Pts As Integer ' Specify chart Set Cht = ActiveSheet.ChartObjects(1).Chart ' Prompt for a range On Error Resume Next Set DLRange = Application.InputBox _ (prompt:="Range for data labels?", Type:=8) If DLRange Is Nothing Then Exit Sub On Error GoTo 0 ' Add data labels Cht.SeriesCollection(1).ApplyDataLabels _ Type:=..

Sub DataLabelsFromRange() Dim DLRange As Range Dim Cht As Chart Dim i As Integer, Pts As Integer ' Specify chart Set Cht = ActiveSheet.ChartObjects(1).Chart ' Prompt for a range On Error Resume Next Set DLRange = Application.InputBox _ (prompt:="Range for data labels?", Type:=8) If DLRange Is Nothing Then Exit Sub On Error GoTo 0 ' Add data labels Cht.SeriesCollection(1).ApplyDataLabels _ Type:=..

■ 차트의 계열 수식 =SERIES(series_name, category_labels, values, order, sizes) series_name : 범레에 표시되는 계열의 이름이 있는 셀, 범위를 참조 category_labels : 계열의 가로 축이 있는 범위를 참조 values : 계열의 값이 있는 범위를 참조 order : 계열의 순서를 지정하는 정수 sizes : 거품형 차트에만 적용 Sub UpdateChart() Dim ChtObj As ChartObject Dim UserRow As Long Set ChtObj = ActiveSheet.ChartObjects(1) UserRow = ActiveCell.Row If UserRow

■ 차트서식 넣기 Sub FormatAChart() If ActiveChart Is Nothing Then MsgBox "Activate a chart" Exit Sub End If With ActiveChart .ChartType = xlColumnClustered .ApplyLayout 10 .ChartStyle = 30 .SetElement msoElementPrimaryValueGridLinesNone .ClearToMatchStyle End With End Sub ▶ ChartType : 차트 종류 지정 ▶ ApplyLayout : 차트도구>디자인>차트 레이아웃 ' ApplyLayout 10, xlColumnClustered 로 차트 종류 함께 지정 ▶ ChartStyle : 차트도구>디자인>차..

■ 차트 종류 - 워크시트에 있는 차트 : 차트로 만들 영역 선택 후 Alt + F1 , 워크시트에 삽입된 차트, 워크시트에 여러 차트가 삽입 된 경우 - 차트 시트 : 차트로 만들 영역 선택 후 F11, 차트 시트에는 차트 하나만 삽입된 경우 ■ 차트 만들기 워크시트 차트 차트시트 Sub aaa() Dim Mychart As Chart Dim DataRange As Range Set DataRange = ActiveSheet.Range("a1:b3") 'worksheet에 차트 생성 Set Mychart = ActiveSheet.Shapes.AddChart.Chart Mychart.SetSourceData Source:=DataRange Mychart.ChartType = xlBarStacked End..

Range개체.SpecialCells (Type, Value) Type Required XlCellType The cells to include. Value Optional Variant If Type is either xlCellTypeConstants or xlCellTypeFormulas, this argument is used to determine which types of cells to include in the result. These values can be added together to return more than one type. The default is to select all constants or formulas, no matter what the type. ▶ XlCell..

범위 복사하기 복사대상.Copy 붙임위치 # 붙임대상의 왼쪽 위 모서리에 붙임 - 범위가 달라도 가능 Sub CopyRang() Dim rng1 As Range, rng2 As Range Set rng1 = Workbooks("통합 문서1").Worksheets("Sheet1").[A1:A10] Set rng2 = Workbooks("통합 문서2").Worksheets("Sheet1").[A1] rng1.Copy rng2 End Sub 범위 옮기기 자르기대상.Copy 붙임위치 # 복사와 동일 형식 rng1.Cut rng2 크기를 모르는 범위 지정 (현재셀이 있는 범위) Range개체.CurrentRegion Range(ActiveCell, ActiveCell.End(방향상수)) rng1.CurrentRe..

▶ 워크시트 함수의 재계산 활성시트 어느 한 셀이 변경(재계산)될 때마다 전체 수식 재계산 실행 Application.Volatile True 설정 상태 ▶ 사용자 정의 함수 재계산 함수의 인수가 변경될 때만 함수 재계산 ※ 워크시트 함수처럼 재계산 구현 하기 : 사용자 정의 함수 내에 Application.Volatile True 추가 워크시트 함수 Rand함수 구현 Function NonStaticRand() Application.Volatile True NonStaticRand = Rnd End Function ☞ 강제 재계산 : Ctrl + Alt + F9 ■ 인수를 전달하는 경우와 전달하지 않는 경우의 차이 인수 전달 인수 미전달 ( 비 추천 ) Function DoubleCell2(cell) ..