なぜマクロの修正が必要なのか？
マクロの記録機能は非常に便利ですが、記録されたコードは「特定のセル」を操作するように固定されています。しかし、実務では「セルN2に入力された行番号に応じて、処理対象を切り替えたい」といった柔軟な動きが求められます。マクロの記録で生成されたコードをそのまま使うのではなく、一部を書き換えて「動的な処理」に変えることこそが、脱・初心者への第一歩です。
基礎知識：文字列連結演算子「&」の役割
VBAにおいて「&」は、異なる文字列同士をつなげるための演算子です。例えば、`”A” & “1”` は `”A1″` と全く同じ意味を持ちます。なぜわざわざ分けるのかというと、この「1」の部分を「固定の数値」ではなく「セルの値」に置き換えることで、コードを自在に変化させることができるようになるからです。
実装：固定値をセル参照に書き換える手順
マクロの記録で生成された `Range(“A1”).Select` というコードを、`Range(“A” & セルの値).Select` という形式に書き換えます。これにより、Excel上のセルN2に「5」と入力されていれば、マクロは自動的に「A5」を選択するようになります。
サンプルプログラム：動的なセル選択
以下のコードは、指定したシートの特定のセルに入力された数値をもとに、対象セルを動的に選択する例です。
Sub SelectDynamicCell()
‘ セルN2の値を読み取り、A列の該当行を選択する
‘ Sheets(“予定表”).Range(“N2”).Value が行番号の役割を果たします
Dim targetRow As Long
‘ セルN2の値を取得して変数に代入
targetRow = Sheets(“予定表”).Range(“N2″).Value
‘ 文字列連結を使って、A列と行番号を結合する
‘ 例：targetRowが10なら、”A” & 10 で “A10” となる
Range(“A” & targetRow).Select
‘ 選択したセルに値を入力してみる（確認用）
ActiveCell.Value = “ここに処理が実行されました”
End Sub
応用・注意点：現場で役立つポイント
1. エラー回避の重要性
もしセルN2が空欄だったり、文字が入っていたりすると、マクロはエラー（実行時エラー1004）を起こして停止します。実務では、`If IsNumeric(Range(“N2”).Value) Then` のように、入力値が数値かどうかを事前にチェックする処理を入れると、より堅牢なマクロになります。
2. セル参照の書き方
今回の `Range(“A” & targetRow)` という書き方は非常に便利ですが、行番号が非常に大きい場合や、列も動的に変えたい場合は、`Cells(行番号, 列番号)` を使う手法がより一般的です。まずは今回のように `Range` と `&` を組み合わせる方法に慣れ、徐々に `Cells` の使い方も習得していきましょう。
VBエディタを修正した後は、必ず一度実行して、N2セルの値を変えながら動作が正しく反映されるか確認してくださいね。これができるだけで、マクロの活用範囲は一気に広がりますよ！
