아래는 Excel 워크북에서 수식 시트, 데이터 시트, 차트 시트를 생성하고 데이터를 관리하며 차트를 자동으로 생성하는 간단한 VBA 프로젝트입니다.
이 프로젝트는 다음을 포함합니다:
- 데이터 시트에 샘플 데이터를 작성합니다.
- 수식 시트에서 데이터를 참조하여 계산을 수행합니다.
- 차트 시트를 생성하고 데이터 시트를 기반으로 차트를 추가합니다.
VBA 코드:
Sub CreateStructuredWorkbook()
Dim wb As Workbook
Dim dataSheet As Worksheet
Dim formulaSheet As Worksheet
Dim chartSheet As Chart
Dim rng As Range
Dim chartObj As ChartObject
' 새 워크북 생성
Set wb = Workbooks.Add
' 데이터 시트 생성
Set dataSheet = wb.Sheets.Add
dataSheet.Name = "Data"
' 샘플 데이터 추가
With dataSheet
.Range("A1").Value = "Month"
.Range("B1").Value = "Sales"
.Range("A2:A7").Value = Application.Transpose(Array("January", "February", "March", "April", "May", "June"))
.Range("B2:B7").Value = Application.Transpose(Array(1000, 1200, 1500, 1300, 1700, 1800))
End With
' 수식 시트 생성
Set formulaSheet = wb.Sheets.Add
formulaSheet.Name = "Formulas"
' 데이터 참조 및 계산 수행
With formulaSheet
.Range("A1").Value = "Month"
.Range("B1").Value = "Sales"
.Range("C1").Value = "Cumulative Sales"
.Range("A2:A7").Formula = "=Data!A2:A7"
.Range("B2:B7").Formula = "=Data!B2:B7"
.Range("C2").Formula = "=B2"
.Range("C3:C7").Formula = "=C2+B3"
.Columns("A:C").AutoFit
End With
' 차트 시트 생성
Set chartSheet = wb.Charts.Add
chartSheet.Name = "Sales Chart"
' 차트 데이터 설정
With chartSheet
.SetSourceData Source:=dataSheet.Range("A1:B7")
.ChartType = xlColumnClustered
.ChartTitle.Text = "Monthly Sales"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Text = "Months"
.Axes(xlValue).HasTitle = True
.Axes(xlValue).AxisTitle.Text = "Sales ($)"
End With
' 작업 완료 메시지
MsgBox "Workbook 구조화가 완료되었습니다!", vbInformation, "완료"
End Sub
코드 실행 방법:
- Excel에서 Alt + F11을 눌러 VBA 편집기를 엽니다.
- 삽입 > 모듈을 선택하여 새 모듈을 추가합니다.
- 위의 코드를 복사하여 모듈 창에 붙여넣습니다.
- F5를 눌러 매크로를 실행합니다.
결과:
- Data 시트: "Month"와 "Sales" 데이터가 입력됩니다.
- Formulas 시트: "Cumulative Sales" 계산이 포함된 시트가 생성됩니다.
- Sales Chart 차트 시트: 데이터 시트를 기반으로 한 월별 판매 차트가 생성됩니다.
추가적인 커스터마이징이 필요하면 말씀해 주세요! 😊
'Excel을 활용한 알고리즘 개발' 카테고리의 다른 글
[Excel을 활용한 알고리즘 개발] MS Access 스키마 생성 및 업데이트 (0) | 2025.02.09 |
---|---|
[Excel을 활용한 알고리즘 개발] 데이터 시트 알고리즘과 데이터셋 설계 (0) | 2025.02.06 |
[Excel을 활용한 알고리즘 개발 방법] Excel과 Access를 연동하는 방법 (1) | 2025.01.03 |
[Excel을 활용한 알고리즘 개발방법] VBA Script 특징 및 개요 1 (5) | 2024.12.06 |
[Excel을 활용한 알고리즘 개발방법] 테이블 구조 만들기 1 (1) | 2024.12.06 |