Excelで大量のデータを扱っていると、シートを開いたときに「どこを見ればいいのか分からない！」と感じることはありませんか？そんなときに便利なのが、VBA（Visual Basic for Applications）を使って、シートを開いたときに表示される位置を指定する方法です。
今回は、初心者の方でも安心して使えるように、わかりやすく解説します。パソコンやスマホの操作に自信がない方でも、安心して学べる内容になっていますので、ぜひ最後までご覧ください。
目次
Excelのイメージ
表示位置を指定する方法
シートを開いたときに表示されるセルを指定する
Excelを開いたとき、最初に表示されるセルを指定するには、以下のVBAコードを使います。
Sub SetInitialView()
' シートを指定
Sheets("Sheet1").Activate
' 表示位置をセルに設定
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
End Sub
このコードを実行すると、Sheet1がアクティブになり、セルが画面の左上に表示されます。
特定のセルを画面の左上に表示する
大量のデータがあるシートで、特定のセルを画面の左上に表示させたい場合、以下のコードを使います。
Sub ScrollToCell()
' シートを指定
Sheets("Sheet1").Activate
' 表示位置をB5セルに設定
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollColumn = 2
End Sub
このコードを実行すると、Sheet1がアクティブになり、B5セルが画面の左上に表示されます。
ユーザーフォームをセルの近くに表示する
セルをダブルクリックしたときに、そのセルの近くにユーザーフォームを表示させるには、以下のコードを使います。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Double, y As Double
' アクティブウィンドウを対象
With ActiveWindow
' 対象セルの画面上の位置を把握する
x = Target.Left - .VisibleRange.Left + .Left + 460 ' 数値の値はシートごとに調整
y = Target.Top - .VisibleRange.Top + .Top + 124 ' 数値の値はシートごとに調整
End With
' ユーザーフォームを対象
With CalendarForm
' 表示位置を設定
.StartUpPosition = 0
.Left = x
.Top = y
' 表示する
.Show
End With
End Sub
このコードを実行すると、セルをダブルクリックした位置にユーザーフォームが表示されます。なお、数値の「460」や「124」は、画面上の絶対的な位置の調整値で、条件を変えながら調整する必要があります。
よくある質問や疑問
Q1: VBAのコードをどこに書けばいいのですか？
VBAのコードは、Excelの「開発」タブから「Visual Basic」を選択し、VBAエディタを開いて書きます。新しいモジュールを挿入し、その中にコードを貼り付けてください。
Q2: ユーザーフォームを表示するにはどうすればいいですか？
ユーザーフォームを表示するには、VBAエディタで「挿入」から「ユーザーフォーム」を選択し、フォームを作成します。その後、コード内でフォームを表示するための命令を追加します。
Q3: コードを実行しても反応がない場合、どうすればいいですか？
コードを実行しても反応がない場合、まずはVBAエディタで「デバッグ」→「コンパイル」を選択して、エラーがないか確認してください。また、コード内のシート名やセル番地が正しいかも確認しましょう。
まとめ
Excel VBAを使って、ワークシートの表示位置を指定する方法をご紹介しました。これらのテクニックを使うことで、シートを開いたときに必要な情報をすぐに確認できるようになります。特に、セルの近くにユーザーフォームを表示させることで、より直感的な操作が可能になります。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント