Spread设置背景色

'スプレッドシートのセルに背景色をセットする。
'
'   Syntax:     SetBackColorToSpreadCell AnySs, Col&, Row&
'
'   IN:         AnySs       対象となるスプレッドシート
'               Col&        ボタンをセットする列
'               Row&        ボタンをセットする行
'               Var         セットする値
'
Public Sub SetBackColorToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Optional Col2& = -1, Optional Row2& = -1, Optional ByVal Color& = &HFFF)
 
    If Col2 = -1 Then Col2 = Col
    If Row2 = -1 Then Row2 = Row
 
    ' 設定を SPREADへ反映します。
    With AnySs
        .BlockMode = True                                   ' ﾌﾞﾛｯｸﾓｰﾄﾞ ON
        .Col = Col: .Col2 = Col2
        .Row = Row: .Row2 = Row2
        .BackColor = Color&                                 ' 標準 背景色
        .BlockMode = False                                  ' ﾌﾞﾛｯｸﾓｰﾄﾞ OFF
    End With
 
End Sub