| 投稿日 | ： 2005/09/07(Wed) 11:28 |
| 投稿者 | ： うるふ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: MSHFlexGridの複数行削除 |
あまりよいコードではありませんが、参考にしてみてね。
Private Sub Command1_Click()
With MSHFlexGrid1
.Row = 0
Do Until .Row = .Rows
If .CellBackColor = QBColor(1) Then
.RemoveItem .Row
Else
If .Row + 1 = .Rows Then Exit Do
.Row = .Row + 1
End If
Loop
End With
End Sub