SpreadSheet 清空Sheet

'スプレッドシートの行をクリアする。
'
'   Syntax: Clear AnySs,Row&
'
'   IN:     AnySs       対象となるスプレッドシート
'           strRow&        行
'
Public Sub ClearRow(AnySs As vaSpread, ByVal strRow&)
 
    With AnySs
        .Col = 1
        .Col2 = .MaxCols
        .Row = strRow
        .Row2 = .MaxRows
        .BlockMode = True
        .Action = SS_ACTION_CLEAR_TEXT
        .BlockMode = False
    End With
 
End Sub