Excel VBAオブジェクトライブラリ：Excel操作を自動化する強力なツール

Sub ApplicationExample()
    ' Excelの表示を一時的に停止
    Application.ScreenUpdating = False

    ' 計算を手動に設定
    Application.Calculation = xlCalculationManual

    ' 新しいワークブックの追加
    Application.Workbooks.Add

    ' Excelの表示を再開
    Application.ScreenUpdating = True

    ' 計算を自動に戻す
    Application.Calculation = xlCalculationAutomatic

    MsgBox "操作が完了しました。", vbInformation, "完了"
End Sub

Sub WorkbookExample()
    ' 新しいワークブックを追加
    Dim newWorkbook As Workbook
    Set newWorkbook = Workbooks.Add

    ' 新しいワークブックに名前を付けて保存
    newWorkbook.SaveAs Filename:="C:\temp\NewWorkbook.xlsx"

    ' ワークブックを閉じる
    newWorkbook.Close

    MsgBox "新しいワークブックが作成され、保存されました。", vbInformation, "完了"
End Sub

Sub WorksheetExample()
    ' アクティブなワークブックの参照を取得
    Dim wb As Workbook
    Set wb = ActiveWorkbook

    ' 新しいワークシートを追加
    Dim ws As Worksheet
    Set ws = wb.Worksheets.Add

    ' 新しいシートに名前を付ける
    ws.Name = "NewSheet"

    ' A1セルに値を設定
    ws.Range("A1").Value = "Hello, New Sheet!"

    MsgBox "新しいシートが追加され、A1セルに値が設定されました。", vbInformation, "完了"
End Sub

Sub RangeExample()
    ' アクティブなシートの参照を取得
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' A1セルの値を設定
    ws.Range("A1").Value = "Test Value"

    ' B1セルにA1セルの値をコピー
    ws.Range("B1").Value = ws.Range("A1").Value

    MsgBox "A1セルの値がB1セルにコピーされました。", vbInformation, "完了"
End Sub

Sub ChartExample()
    ' アクティブなシートの参照を取得
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' データ範囲の設定
    ws.Range("A1").Value = "X"
    ws.Range("B1").Value = "Y"
    ws.Range("A2").Value = 1
    ws.Range("A3").Value = 2
    ws.Range("A4").Value = 3
    ws.Range("B2").Value = 2
    ws.Range("B3").Value = 4
    ws.Range("B4").Value = 6

    ' グラフオブジェクトを追加
    Dim chartObj As ChartObject
    Set chartObj = ws.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225)

    ' グラフの設定
    With chartObj.Chart
        .SetSourceData Source:=ws.Range("A1:B4")
        .ChartType = xlLine
        .HasTitle = True
        .ChartTitle.Text = "Sample Line Chart"
    End With

    MsgBox "グラフが作成されました。", vbInformation, "完了"
End Sub