投稿日 | : 2002/09/13(Fri) 15:18 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: MSFlexGridで検索 |
十分に検証していませんので、参考程度にして下さい。
Private Sub Command1_Click()
Dim i As Long
Dim Co As Long
Dim myDate As String
With MSFlexGrid1
.Visible = False
For i = .FixedRows To .Rows - .FixedRows
.Row = i
.Col = .FixedCols
.ColSel = .Cols - .FixedCols
myDate = .Clip
If InStr(myDate, "探し物") Then
For Co = .FixedCols To .Cols - .FixedCols
.Row = i
.Col = Co
.CellBackColor = QBColor(11)
Next Co
End If
Next i
.Row = .FixedRows
.Col = .FixedCols
.Visible = True
End With
End Sub