Posted By

sekihin on 06/22/09


Tagged

vb6 spreadsheet


Versions (?)

取得选择的复数行


 / Published in: Visual Basic
 

  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.