Set Cell color

'スプレッドシートのセルのセル型を変更する
'
'   Syntax:     SetCellColor AnySs, Col, Row, Color
'
'   IN:         AnySs       対象となるスプレッドシート
'               Col         文字列をセットする列
'               Row         文字列をセットする行
'               Color       カラー
'
Public Sub SetCellColor(AnySs As vaSpread, ByVal Col As Long, ByVal Row As Long, _
    color As Long)
    With AnySs
        .Col = Col
        .Row = Row
        .ForeColor = color
    End With
End Sub