Spread设置文本型单元格

'スプレッドシートに文字型セルをセットする。
'
'   Syntax:     SetEditToSpreadCell AnySs, Col&, Row&
'
'   IN:         AnySs       対象となるスプレッドシート
'               Col&        ボタンをセットする列
'               Row&        ボタンをセットする行
'               EditLen&    最大文字数
'
Public Sub SetEditToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, ByVal EditLen&)
 
    ' 設定を SPREADへ反映します。
    With AnySs
        .Col = Col: .Col2 = Col                      ' 対象列
        .Row = Row: .Row2 = Row                      ' 対象行
        .BlockMode = True                                   ' ﾌﾞﾛｯｸﾓｰﾄﾞ ON
        .CellType = CellTypeEdit                            ' ｾﾙﾀｲﾌﾟの設定
        .TypeMaxEditLen = EditLen                           ' 最大文字数
        .TypeHAlign = 0                   ' 水平配置(左)
        .TypeVAlign = 2                   ' 垂直配置(中央)
        .BlockMode = False                                  ' ﾌﾞﾛｯｸﾓｰﾄﾞ OFF
    End With
 
End Sub