Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
スクロールダウンについて
投稿日時: 18/10/10 07:37:54
投稿者: はじめて

お世話になります
 
下記マクロを作っています。
1行ごとスクロールダウンさせるのですが、100行ほど下げるのにコーディングが大変です。
ループとか、ほかの方法はできないものでしょうか。
よろしくお願いします。
 
Sub Macro1()
 
    Application.Goto Reference:=Range("A1"), Scroll:=True
    待ち
    Application.Goto Reference:=Range("A2"), Scroll:=True
    待ち
    Application.Goto Reference:=Range("A3"), Scroll:=True
    待ち
    Application.Goto Reference:=Range("A4"), Scroll:=True
    待ち
    Application.Goto Reference:=Range("A5"), Scroll:=True
 
End Sub
Sub 待ち()
      
    Dim time As Long
    time = 1000
    Application.Wait [Now()] + time / 86400000
 
End Sub

回答
投稿日時: 18/10/10 08:24:40
投稿者: 虎

こういうことでしょうか?
Application.Gotoって初めて見ました。勉強になります(^^)
 
Sub test()
 
    Dim i As Long
     
    For i = 1 To 100
        Application.Goto reference:=Range("A" & i), scroll:=True
        待ち
    Next
 
End Sub

投稿日時: 18/10/10 08:39:07
投稿者: はじめて

虎 さん
 
早速ありがとうございます。
出来ますね!!
助かりました。