Posted By

sekihin on 06/09/09


Tagged

spreadsheet


Versions (?)

SpreadSheet 清空Sheet


 / Published in: Visual Basic
 

  1. 'スプレッドシートの行をクリアする。
  2. '
  3. ' Syntax: Clear AnySs,Row&
  4. '
  5. ' IN: AnySs 対象となるスプレッドシート
  6. ' strRow& 行
  7. '
  8. Public Sub ClearRow(AnySs As vaSpread, ByVal strRow&)
  9.  
  10. With AnySs
  11. .Col = 1
  12. .Col2 = .MaxCols
  13. .Row = strRow
  14. .Row2 = .MaxRows
  15. .BlockMode = True
  16. .Action = SS_ACTION_CLEAR_TEXT
  17. .BlockMode = False
  18. End With
  19.  
  20. End Sub

Report this snippet  

You need to login to post a comment.