|
今晩は。
>今回はこのLoopを右クリック一発で抜けたいのです。
'使用シートのシートモジュールに
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If flg = True Then Exit Sub
flg = True
Cancel = True
End Sub
'標準モジュールに
Public flg As Boolean '<==追加
>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 flg = True 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
これでどうですか。
|
|