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コード
便利ウェブサイト
便利 Steam アプリ
便利 Android アプリ