ExcelSheetクラス RangeForeColorメソッド
セル範囲に文字色を設定します。
使用法
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.RangeForeColor(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.RangeForeColor(col1, row1, col2, row2, c)
使用例
'ExcelSheetクラス RangeForeColorメソッド
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.RangeForeColor(1, 1, 5, 1, System.Drawing.Color.Red) 'A1:E1
es.RangeForeColor(1, 2, 5, 2, System.Drawing.Color.Green) 'A2:E2
es.RangeForeColor(1, 3, 5, 3, System.Drawing.Color.Blue) 'A3:E3
es.RangeForeColor(1, 4, 5, 4, 255) 'A4:E4 Red
es.RangeForeColor(1, 5, 5, 5, &HFF00FF) 'A5:E5 Purple
es.Save("D:\tmp\sample2.xlsx")
es.Dispose()
End Sub
End Class