Posted By

sekihin on 06/29/09


Tagged

vb6 spreadsheet


Versions (?)

Spread设置按钮型单元格


 / Published in: Visual Basic
 

  1. 'スプレッドシートのセルにコマンドボタンをセットする。
  2. '
  3. ' Syntax: SetButtonToSpreadCell AnySs, Col&, Row&
  4. '
  5. ' IN: AnySs 対象となるスプレッドシート
  6. ' Col& ボタンをセットする列
  7. ' Row& ボタンをセットする行
  8. ' Var セットする値
  9. '
  10. Public Sub SetButtonToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Var As Variant)
  11.  
  12. ' 設定を SPREADへ反映します。
  13. With AnySs
  14. .Col = Col&: .Col2 = Col& ' 対象列
  15. .Row = Row&: .Row2 = Row& ' 対象行
  16. .BlockMode = True ' ブロックモード ON
  17. .CellType = CellTypeButton ' 標準ボタンの設定
  18. .TypeButtonType = 0 ' ボタンタイプ
  19. .TypeButtonText = Var ' ボタン キャプション
  20. .BlockMode = False ' ブロックモード OFF
  21. End With
  22.  
  23. End Sub

Report this snippet  

You need to login to post a comment.