こんにちは　VB初心者です　いつもこのサイトを利用させて頂いて大変助かっています

MSFlexGridで範囲選択するときマウスでは
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer,
　　　　　　　　　　　　　　　　　 x As Single, y As Single)

With MSFlexGrid1  '範囲消去で使用
            R1 = .Row
            R2 = .RowSel
            C1 = .Col
            C2 = .ColSel
End With

End Sub
で取得できるのですが　Shift＋方向キーで範囲選択したときの（反転表示）範囲の取得が
出来ませんfor-nextで反転色のセル位置を取得しようとしてもカレントセルが移動するので反転色が
消えてしまいうまく行きません　
良い方法はないのでしょうか　　よろしくお願いします

> Shift＋方向キーで範囲選択したときの（反転表示）範囲の取得が出来ません

取得できますが？？？(^_^;)
Private Sub Command1_Click()
    Dim R1 As Long, R2 As Long, C1 As Long, C2 As Long
    With MSFlexGrid1 '範囲消去で使用
        R1 = .Row
        R2 = .RowSel
        C1 = .Col
        C2 = .ColSel
    End With
    Debug.Print R1, R2, C1, C2
End Sub

>早速の回答ありがとうございます
出来ました　！！　いまプログラムで確認しました　助かります
この三連休いろいろやってみたのですが出来なかったので感激です
本当にありがとうございました　(*^_^*)aduma
またよろしくお願いします