ワークシートの指定列まで画面をスクロールするマクロ

目次

カラム

ワークシートの指定列まで画面のスクロールを行う Excel マクロを作成してみました。

ScrollColumn プロパティを使用して、ワークシートのスクロールを行ってみます。行をスクロールする場合は、 ScrollRow プロパティを使用するようです。

Column はカラムと読むようです。 Column の英語の意味をインターネットの辞書で調べてみると列という意味も持っているようです。

パソコン関係だと、データベースのカラム・・という用法で見た事があったように思います。

当投稿のキーワード :

使用している、関数、用語など
ActiveCell , ActiveWindow , Address , Aslong , Cells , Columns , Count , MsgBox , ScrollColumn

目次まで戻る

マクロの一例

ワークシートの「A1」セルを選択した状態で以下のマクロを実行してみます。

Sub ワークシートの指定列まで画面をスクロールするマクロ()

   Dim c As Long

    c = 100 '100 列目までスクロール

    ActiveWindow.ScrollColumn = c

    MsgBox ActiveCell.Address

End Sub

マクロが完了すると、アクティブなセルのアドレスがダイアログボックスに表示されます。

画面は 100 列目までスクロールしていますが、アクティブなセルは「A1」のままになっています。

A 列から CV 列までの列数をカウントするマクロも作成してみました。

Sub 範囲に含まれる列数を取得するマクロ()

    MsgBox Columns("A:CV").Count

End Sub

1 行目の 100 列目のセル番地を表示するマクロを作成してみました。

Sub 一行目の百列目のセルのアドレスを取得するマクロ() 'マクロ名の 1 文字目に数字が使用出来ないので漢字から始まるマクロ名にしています。

    MsgBox Cells(1, 100).Address

End Sub

マクロ名の 1 文字目に数字は使用出来ないようです。

全角の数字を入力してみましたが、コンパイルエラーが発生してしまいました。変数の命名規則に合っていないようです。

目次まで戻る

テスト環境

• Windows 10（64 ビット）
• Microsoft Office Excel 2003

以上、閲覧ありがとうございました。

目次まで戻る