|
以前50540でお世話になったものです。
今回はこのLoopを右クリック一発で抜けたいのです。
ご指導よろしくお願いします。
A B
1 あ
2 い
3 う
4 え
5 お
6 か
7 き
8 く
9 け
10 こ
↑のようにセルに入力し次のコードを実行すると"あ"〜"こ"が順番に赤くなります。右クリックしたときの文字がC3に表示したいのです。なんとなく右クリックイベントで変数を変えて条件分岐すればいいのかな?と思ったのですが変数のやりとりがわかりません。
Sub teachme()
Range("a1:a13").Interior.ColorIndex = xlColorIndexNone
ii = 1
Do Until ii = 10
i = 1
Do Until i = 11
DoEvents
Cells(i, 1).Interior.ColorIndex = 3
If i > 1 Then
Cells(i - 1, 1).Interior.ColorIndex = xlColorIndexNone
End If
If ここの変数を右クリックイベントで変える? <> 0 Then
Cells(1, 3) = Cells(i, 1)
Exit Sub
End If
Application.Wait Now + TimeValue("00:00:01")
i = i + 1
Loop
Cells(i - 1, 1).Interior.ColorIndex = xlColorIndexNone
Loop
End Sub
|
|