[VB.NET] Excelに背景色を付ける（ColorIndex指定）

ExcelにColorIndex指定で背景色を付けるサンプルです。

サンプル

例）ExcelにColorIndex指定で背景色を付ける

Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Protected Sub ExcelBackgroundColorSample()

  'Excel関連オブジェクトの定義
  Dim app As Excel.Application = Nothing
  Dim book As Excel.Workbook = Nothing
  Dim sheet As Excel.Worksheet = Nothing

  Try
    app = New Excel.Application()
    app.Workbooks.Add()
    book = app.Workbooks(1)
    sheet = CType(book.Worksheets(1), Excel.Worksheet)
    sheet.Name = "背景色サンプル"

    'A1～C2の範囲の背景色を赤色にする
    sheet.Range("A1").Value = "赤色"
    sheet.Range("A1", "C2").Interior.ColorIndex = 3    'カラー番号（※下記参照）

    book.SaveAs("C:\背景色サンプル.xlsx")

  Catch ex As Exception
    Throw ex

  Finally
    '解放処理（これをやらないとプロセスが残ります）
    Marshal.ReleaseComObject(sheet)
    book.Close()
    Marshal.ReleaseComObject(book)
    app.Quit()
    Marshal.ReleaseComObject(app)

  End Try
End Sub

Imports Microsoft.Office.Interop

Imports System.Runtime.InteropServices

Protected Sub ExcelBackgroundColorSample()

'Excel関連オブジェクトの定義

Dim app As Excel.Application = Nothing

Dim book As Excel.Workbook = Nothing

Dim sheet As Excel.Worksheet = Nothing

Try

app = New Excel.Application()

app.Workbooks.Add()

book = app.Workbooks(1)

sheet = CType(book.Worksheets(1), Excel.Worksheet)

sheet.Name = "背景色サンプル"

'A1～C2の範囲の背景色を赤色にする

sheet.Range("A1").Value = "赤色"

sheet.Range("A1", "C2").Interior.ColorIndex = 3 'カラー番号（※下記参照）

book.SaveAs("C:\背景色サンプル.xlsx")

Catch ex As Exception

Throw ex

Finally

'解放処理（これをやらないとプロセスが残ります）

Marshal.ReleaseComObject(sheet)

book.Close()

Marshal.ReleaseComObject(book)

app.Quit()

Marshal.ReleaseComObject(app)

End Try

End Sub

（結果）

ColorIndexは事前に定義された57色を指定できます。

備考

事前に「Microsoft Excel x.x Object Library」に参照設定が必要です。

[VB.NET] Excelに背景色を付ける（RGB指定）

[VB.NET] Excelに背景色を付ける（ColorIndex指定）

サンプル

例）ExcelにColorIndex指定で背景色を付ける

備考

関連記事

コメント