Posted By

sekihin on 06/29/09


Tagged

vb6 spreadsheet


Versions (?)

Spread设置文本型单元格


 / Published in: Visual Basic
 

  1. 'スプレッドシートに文字型セルをセットする。
  2. '
  3. ' Syntax: SetEditToSpreadCell AnySs, Col&, Row&
  4. '
  5. ' IN: AnySs 対象となるスプレッドシート
  6. ' Col& ボタンをセットする列
  7. ' Row& ボタンをセットする行
  8. ' EditLen& 最大文字数
  9. '
  10. Public Sub SetEditToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, ByVal EditLen&)
  11.  
  12. ' 設定を SPREADへ反映します。
  13. With AnySs
  14. .Col = Col: .Col2 = Col ' 対象列
  15. .Row = Row: .Row2 = Row ' 対象行
  16. .BlockMode = True ' ブロックモード ON
  17. .CellType = CellTypeEdit ' セルタイプの設定
  18. .TypeMaxEditLen = EditLen ' 最大文字数
  19. .TypeHAlign = 0 ' 水平配置(左)
  20. .TypeVAlign = 2 ' 垂直配置(中央)
  21. .BlockMode = False ' ブロックモード OFF
  22. End With
  23.  
  24. End Sub

Report this snippet  

You need to login to post a comment.