投稿日 | : 2002/09/13(Fri) 19:35 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^6: MSFlexGridで検索 |
これを試して見て下さい。
Private Sub Command1_Click()
Dim Ro As Long
Dim Co As Long
Dim Ret As Long
With MSFlexGrid1
For Ro = .FixedRows To .Rows - .FixedRows
For Co = .FixedCols To .Cols - .FixedCols
If Text1.Text = .TextMatrix(Ro, Co) Then
.Col = Co
.Row = Ro
Ret = MsgBox("これですか", vbYesNo)
If Ret = vbYes Then
Exit Sub
End If
End If
Next Co
Next Ro
End With
End Sub