エクセルでセルに入力した数字をSheetに反映できますか

質問

現在、メンテナンス表をエクセルで作成しています。
数が膨大で手が追いついていない状態です。
そこで、セルに入力すればそのデータが別のSheetに反映できればかなり短縮できるので、そのような方法があれば教えてください。

例えば、A1に「123」と入力するとSheetの名前が「123」のSheetの選択したセルに反映される。ということがやりたい事です。

400近いSheetがあり、毎日全部ではありませんが、かなりのデータを入力しなければいけません。
どうかよろしくお願いします。

回答No.2

hige_082 · ベストアンサー

本当に使いやすいのかは疑問ですが
Ａ１に出力先Sheet名（例：123）
Ａ２に出力先セルアドレス（例：A1）
Ａ３に入力データ（例：ABC123）
例のように入力すれば
シート123のセルA1にABC123が
Enterかセルを移動した瞬間に入力されます

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" Then Exit Sub
Worksheets(Range("a1").Value).Range(Range("a2").Value).Value = Range("a3").Value
End Sub

設定方法
入力シートのシートタブを右クリック、コードの表示を選択
表示された画面に上のコードをコピペ
画面を終了させる
以上

お礼

回答ありがとうございます。
返事が遅くなり申し訳ございません。

確かにやりたいことの一部でした。
自分の質問に言葉が足りませんでした。
改めて質問させていただきます。
よろしくお願いします。

回答No.1

web2525

マクロを利用すれば可能。
たとえばこんな感じで
シート名 = Range("A1")
Worksheets(シート名).Range("B2") = Range("A2")

お礼

回答ありがとうございます。
返事が遅くなり申し訳ございません。

マクロの使用の仕方を改めて確認させていただきました。

質問の言葉が足りず自分の教えていただきたいことの一部しか表現していませんでした。
改めて質問させていただきます。
よろしくお願いします。