Dim instance As ExcelSheet Dim col1 As Integer '1から始まる開始列番号 Dim row1 As Integer '1から始まる開始行番号 Dim col2 As Integer '1から始まる終了列番号 Dim row2 As Integer '1から始まる終了行番号 Dim c As System.Drawing.Color 'Overloads instance.RangeBackColor(col1, row1, col2, row2, c)
Dim instance As ExcelSheet Dim col1 As Integer '1から始まる開始列番号 Dim row1 As Integer '1から始まる開始行番号 Dim col2 As Integer '1から始まる終了列番号 Dim row2 As Integer '1から始まる終了行番号 Dim c As Integer 'Overloads instance.RangeBackColor(col1, row1, col2, row2, c)
'ExcelSheetクラス RangeBackColorメソッド Public Class AddIn Private es As ExcelSheet Public Sub New() es = New ExcelSheet() es.SelectSheet(1) es.RangeValue(1, 1, 5, 5, "■あ■") 'A1:E5 es.RangeBackColor(1, 1, 5, 1, System.Drawing.Color.LightCoral) 'A1:E1 es.RangeBackColor(1, 2, 5, 2, System.Drawing.Color.Lavender) 'A2:E2 es.RangeBackColor(1, 3, 5, 3, System.Drawing.Color.PaleGreen) 'A3:E3 es.RangeBackColor(1, 4, 5, 4, &HD4FF7F) 'A4:E4 Aquamarine es.RangeBackColor(1, 5, 5, 5, &HEE82EE) 'A5:E5 Violet es.RangeForeColor(1, 5, 5, 5, System.Drawing.Color.White) 'A5:E5 es.Save("D:\tmp\sample2.xlsx") es.Dispose() End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ