Spread设置下拉列表框型单元格

'スプレッドシートにコンボボックスセルをセットする。
'
'   Syntax:     SetComboToSpreadCell AnySs, Col&, Row&, Var
'
'   IN:         AnySs       対象となるスプレッドシート
'               Col&        値をセットする列
'               Row&        値をセットする行
'               Var         セットする値
'
Public Sub SetComboToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Var() As String)
    Dim i As Integer                    ' ﾙｰﾌﾟ ｶｳﾝﾀ
 
    ' 設定を SPREADへ反映します。
    With AnySs
        .Col = Col:                                         ' 対象列
        .Row = Row:                                         ' 対象行
        .CellType = CellTypeComboBox                        ' ｾﾙﾀｲﾌﾟの設定
        .Action = ActionComboClear                          ' ﾘｽﾄｱｲﾃﾑをｸﾘｱします。
        For i = LBound(Var) To UBound(Var)
            .TypeComboBoxList = .TypeComboBoxList & Var(i) & vbTab
        Next i
        .TypeHAlign = 0                   ' 水平配置
        .TypeVAlign = 2                   ' 垂直配置
    End With
 
End Sub
 
    Dim itemArray() As String
    ReDim Preserve itemArray(0)
    itemArray(0) = "a"
    ReDim Preserve itemArray(1)
    itemArray(1) = "b"
    ReDim Preserve itemArray(2)
    itemArray(2) = "c"