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エディタで「デバッグ」→「コンパイル」を選択して、エラーがないか確認してください。また、コード内のシート名やセル番地が正しいかも確認しましょう。
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
Excel VBAを使って、ワークシートの表示位置を指定する方法をご紹介しました。これらのテクニックを使うことで、シートを開いたときに必要な情報をすぐに確認できるようになります。特に、セルの近くにユーザーフォームを表示させることで、より直感的な操作が可能になります。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント