[[20120511011729]]　『自動マクロ』（bonbon）　ページの最後に飛ぶ

『自動マクロ』（bonbon）

 セルA1に1948と入力し、エンタを押すとすぐにセルA2に、
 あいうえおと表示させるマクロを教えてください。
 よろしくお願いします。

 Private Sub Worksheet_Change(ByVal Target As Range)

     If Target.Address <> "$A$1" Then Exit Sub
     If Range("A1") = 1948 Then Range("A2") = "あいうえお"
     If Range("A1") = "" Then Range("A2").Clear

 End Sub

 ですかね？あと関数でもいいなら
 =IF(A1=1948,"あいうえお","")
 とか。

 (se_9)

se_9様早速の回答ありがとうございます。
標準モジュールでは出来ないのでしょうか ?
よろしくお願いします。
(bonbon)

 >標準モジュールでは出来ないのでしょうか ?

 こうしたい理由は？

 (ぶらっと)

 すべてのシートに反映させたい、という意味ですかね？
 もしそうだったらThisWorkbookに上記コードを貼り付けて
 Worksheet_Changeの部分をWorkbook_SheetChangeに変えてみてください。

 (se_9)

ぶらっと様　se_9様
ありがとうございました。
普通標準で出来ていたのに出来なかったので、あせってしまいました。
現状で十分です。
(bonbon)

コメント返信：