エクセルで単語のフラッシュカードを自動表示させたいと考えています。
エクセルの1セルの大きさを縦最大、横120位に広げ、C列に単語、D列に意味を縦に並べ、
C2 1秒後 D2 1秒後 C2 1秒後 D2 1秒後
C3 1秒後 D4 のように単語と意味を交互に2度ずつ表示させます。
For Next を使い表示はできるようになりましたが、途中で止めたいときに、escを押すと
For Nextの処理を最後まで一気に行ってから止まってしまいます。
C5を表示していたら、その場所でPause をし、スタートボタンで再度継続して表示したいと思います。また、単語や意味のセルにはそれぞれ別の文字装飾をしてあるので、(赤や青、大きさなど)
セルを移動して表示したいと考えています。
実は他のサイトでも質問しましたが、思ったような回答を得られませんでした。よろしくお願いします。
Sub セル移動()
Dim waitTime As Variant
i = 0
Range("c2").Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Range("c3").Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
For i = 1 To 50
ActiveCell.Select
Selection.Offset(0, 1).Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Selection.Offset(0, -1).Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Selection.Offset(0, 1).Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Selection.Offset(1, -1).Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Application.OnKey ("{esc}"), "shuryo"
i = i + 1
Next i
End Sub
Sub shuryo()
Application.ScreenUpdating = False
Range("c2").Select
Application.GoTo reference:=ActiveCell, scroll:=True
Application.ScreenUpdating = True
Exit Sub
End Sub
エクセルで単語のフラッシュカードを自動表示させたいと考えています。
エクセルの1セルの大きさを縦最大、横120位に広げ、C列に単語、D列に意味を縦に並べ、
C2 1秒後 D2 1秒後 C2 1秒後 D2 1秒後
C3 1秒後 D4 のように単語と意味を交互に2度ずつ表示させます。
For Next を使い表示はできるようになりましたが、途中で止めたいときに、escを押すと
For Nextの処理を最後まで一気に行ってから止まってしまいます。
C5を表示していたら、その場所でPause をし、スタートボタンで再度継続して表示したいと思います。また、単語や意味のセルにはそれぞれ別の文字装飾をしてあるので、(赤や青、大きさなど)
セルを移動して表示したいと考えています。
実は他のサイトでも質問しましたが、思ったような回答を得られませんでした。よろしくお願いします。
Sub セル移動()
Dim waitTime As Variant
i = 0
Range("c2").Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Range("c3").Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
For i = 1 To 50
ActiveCell.Select
Selection.Offset(0, 1).Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Selection.Offset(0, -1).Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Selection.Offset(0, 1).Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Selection.Offset(1, -1).Select
waitTime = Now + TimeValue("0:00:01")
Application.Wait waitTime
Application.OnKey ("{esc}"), "shuryo"
i = i + 1
Next i
End Sub
Sub shuryo()
Application.ScreenUpdating = False
Range("c2").Select
Application.GoTo reference:=ActiveCell, scroll:=True
Application.ScreenUpdating = True
Exit Sub
End Sub