Posted By

sekihin on 06/29/09


Tagged

vb6 spreadsheet


Versions (?)

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


 / Published in: Visual Basic
 

  1. 'スプレッドシートにコンボボックスセルをセットする。
  2. '
  3. ' Syntax: SetComboToSpreadCell AnySs, Col&, Row&, Var
  4. '
  5. ' IN: AnySs 対象となるスプレッドシート
  6. ' Col& 値をセットする列
  7. ' Row& 値をセットする行
  8. ' Var セットする値
  9. '
  10. Public Sub SetComboToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Var() As String)
  11. Dim i As Integer ' ループ カウンタ
  12.  
  13. ' 設定を SPREADへ反映します。
  14. With AnySs
  15. .Col = Col: ' 対象列
  16. .Row = Row: ' 対象行
  17. .CellType = CellTypeComboBox ' セルタイプの設定
  18. .Action = ActionComboClear ' リストアイテムをクリアします。
  19. For i = LBound(Var) To UBound(Var)
  20. .TypeComboBoxList = .TypeComboBoxList & Var(i) & vbTab
  21. Next i
  22. .TypeHAlign = 0 ' 水平配置
  23. .TypeVAlign = 2 ' 垂直配置
  24. End With
  25.  
  26. End Sub
  27.  
  28. Dim itemArray() As String
  29. ReDim Preserve itemArray(0)
  30. itemArray(0) = "a"
  31. ReDim Preserve itemArray(1)
  32. itemArray(1) = "b"
  33. ReDim Preserve itemArray(2)
  34. itemArray(2) = "c"

Report this snippet  

You need to login to post a comment.