投稿日 | : 2004/05/27(Thu) 12:15 |
投稿者 | : Say |
Eメール | : |
URL | : |
タイトル | : Re^3: MSFlexGridで問い合わせ受付票を作成してるのですが・・・ |
こんな手もあります
Dim lngrowx As Long
Dim lngrowy As Long
Dim strbuf As String
Dim strvbtab4 As String
strvbtab4 = String(4, vbTab)
For lngrowx = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = lngrowx
MSFlexGrid1.ColSel = 5
MSFlexGrid1.RowSel = lngrowx
strbuf = MSFlexGrid1.Clip
If strbuf = strvbtab4 Then
Exit For
Else
Debug.Print Replace(strbuf, vbTab, ",")
End If
Next
データにvbTabが含まれるときは、ちょっと工夫してください。