Posted By

sekihin on 06/29/09


Tagged

vb6 spreadsheet


Versions (?)

Spread设置背景色


 / Published in: Visual Basic
 

  1. 'スプレッドシートのセルに背景色をセットする。
  2. '
  3. ' Syntax: SetBackColorToSpreadCell AnySs, Col&, Row&
  4. '
  5. ' IN: AnySs 対象となるスプレッドシート
  6. ' Col& ボタンをセットする列
  7. ' Row& ボタンをセットする行
  8. ' Var セットする値
  9. '
  10. Public Sub SetBackColorToSpreadCell(AnySs As vaSpread, ByVal Col&, ByVal Row&, Optional Col2& = -1, Optional Row2& = -1, Optional ByVal Color& = &HFFF)
  11.  
  12. If Col2 = -1 Then Col2 = Col
  13. If Row2 = -1 Then Row2 = Row
  14.  
  15. ' 設定を SPREADへ反映します。
  16. With AnySs
  17. .BlockMode = True ' ブロックモード ON
  18. .Col = Col: .Col2 = Col2
  19. .Row = Row: .Row2 = Row2
  20. .BackColor = Color& ' 標準 背景色
  21. .BlockMode = False ' ブロックモード OFF
  22. End With
  23.  
  24. End Sub

Report this snippet  

You need to login to post a comment.