advanced code snippet search

Posted By

sekihin on 06/22/09


Tagged

vb6 spreadsheet


Versions (?)

取得选择的复数行

 / Published in: Visual Basic
 
Expand | Embed | Plain Text 
  1. Dim value As String
  2.     Dim i As Integer
  3.     For i = 1 To fpSpread1.DataRowCnt
  4.         fpSpread1.Row = i
  5.         If fpSpread1.SelModeSelected Then
  6.             value = value & GetTextFromSpreadCell(fpSpread1, 1, i) & "|"
  7.         End If
  8.     Next i
  9.     MsgBox value

Report this snippet  

You need to login to post a comment.