|
よろしくお願いします。
A B
1 あ
2 い
3 う
4 え
5 お
6 か
7 き
8 く
9 け
10 こ
↑のようにセルに入力し次のコードを実行すると
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
Application.Wait Now + TimeValue("00:00:01")
i = i + 1
Loop
Cells(i - 1, 1).Interior.ColorIndex = xlColorIndexNone
Loop
End Sub
"あ"〜"こ"が順番に赤くなります。このLoopをキーボードのキーで抜けて
その時のセルの文字を別のセルに表示したいのです。ユーザーフォームは
使いません。ご指導お願いします。
|
|