ｅｘｃｅｌで セルの移動時にマクロ実行を設定したい。

エクセルでボタンオブジェクトを作りクリックすると実行するようなマクロのを登録方法はわかるのですが、特定のセルＢ２に数値を入力してＥｎｔｅｒＫｅｙを押した際に実行するようにマクロを登録するにはどうするのでしょう。マクロの編集画面で　最初の行が　Ｓｕｂ　となっていますが、あそこに何かをいれたらいいのでしょうか？教えてください。よろしくお願いします。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2004/10/31 13:58

＃１です。

補足に関して
全セル対象なら
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet2").Cells.Font.Size = 12
End Sub
範囲指定するなら
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet2").Range("a1:c10").Font.Size = 12
End Sub
上記の真中の行を＃１と組み合わせて使うこと。
Ｓｈｅｅｔ１のどこを変化させてもフォント設定が行われる。それで宜しいか。変化を反映させるセルを限定するなら、また別の知識が必要です。マクロの初めはイベントに手を出すのは難しいと言うことです。

この回答へのお礼

ありがとうございました。無事目的通りのものができました。

お礼日時：2004/10/31 15:00

No.2 回答者： deecyan 回答日時： 2004/10/31 13:57

関数をつくればどうでしょう？

ツール->マクロ->Visual Basic Editor　を選び
挿入->標準モジュール　を選びます
そこに　

Function hoge(dum As Range)
'↓↓↓ここに好きな命令を書いてください。

MsgBox "aaa" ' 例です

'↑↑↑ここまで
End Function

等を書きます。
一旦保存して

EXCELのシートに戻りましょう

特定のセルＢ２が変わったらでしたね
B2以外のセル（範囲外のセル）に　=hoge(B2)
って入れてください　複数でしたら　B2:C5など出来ます

Worksheet_Changeは他のセルが変わった時もイベント（処理）が
されますので 非常に時間がかかりますよ。

この回答へのお礼

ありがとうございました。関数ではどうやら　プロパティは変更できないようです。関数は引数から数値を返すのみのようです。

お礼日時：2004/11/02 12:32

No.1 回答者： imogasi 回答日時： 2004/10/31 12:27

シート（Ｓｈｅｅｔ１と仮定）のメニューで、ツール－マクロ－ＶＢＥをクリックする。

ＶＢＥ画面になりますが、そのＶＢＡＰｒｏｊｅｃｔの中のシート名等のツリー表示の中に、Ｓｈｅｅｔ１があると
思いますので、そこをダブルクリックします。
すると画面が出てきます。その上部の（Ｇｅｎｅｒａｌ）の▼をクリックして、「Ｗｏｒｋｓｈｅｅｔ］をクリック
、右の（Ｄｅｃｌａｒａｔｉｏｎｓ）の▼をクリックして
「Ｃｈａｎｇｅ」をクリックします。
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
下のＳｅｌｅｃｔｉｏｎＣｈａｎｇｅ部分が出てしまったら、範囲指定して、Ｄｅｌキーで抹消してください。
間の行にプログラムコードを打ち込んでください。
シート（Ｓｈｅｅｔ１）に戻り、どこかのセルにデータを入れて、予想通りなるかチェックします。
Ｃｈａｎｇｅイベントは色々欠点もあるイベントですが
自分が使う程度なら使い物になるでしょう。
もう一つ、変化を捉え変化させると、このイベントに該当し、処理がぐるぐる回りになることです。
それで一旦その働きを止めて、処理が終わると、元へ戻してます。なかなか初めての場合は難しいです。
下記は右隣のセルに＋１０した数をセットしてます。
漢字をいれたら？－＞他人に使ってもらうには、チェックがどんどん必要になり、コードが増えます（略）。さらに知識が必要になります。実用に耐えるマクロを作るのは難しいですよ。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Offset(0, 1) = Target + 10
Application.EnableEvents = True
End Sub

この回答への補足

ありがとうございました。sheet1に数値入力したらsheet2のフォントサイズを１２に変更したいのです。回答のtarget部分をsheet2select range指定　font指定にしてみましたがフォントサイズは変化しませんでした。すみません　重ねて教えて頂けたら幸せます。

補足日時：2004/10/31 13:14