VBAでChangeイベントを使いたい

とりあえずこちらの環境(Excel 2003, Windows XP SP3)では以下のコードで動作しました。 重要な変更点は１つだけで、質問者様の書かれたコードのうち If Target.Column <> 3 Then Exit Sub のThen以降を終了からVlookup実行に変えただけです。 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 　　If Target.Row = 1 Or Target.Row > 100 Then Exit Sub 　　If Target.Column = 5 Then 　　　　Dim Cnt As Long 　　　　For Cnt = 2 To 100 　　　　　　Range("I" & Cnt).Value = Range("E" & Cnt).Value 　　　　Next Cnt 　　ElseIf Target.Column <> 3 Then 　　　　Dim シート1 As Worksheet 　　　　Dim シート2 As Worksheet 　　　　Set シート1 = Worksheets("出納") 　　　　Set シート2 = Worksheets("科目") 　　　　Dim myR 　　　　On Error GoTo ErrorHandler 　　　　myR = Application.WorksheetFunction.VLookup _ 　　　　　　　　　　(シート1.Range("B2"), _ 　　　　　　　　　　シート2.Range("A2:B87"), 2, False) 　　　　シート1.Range("C2").Value = myR 　　End If 　　Exit Sub ErrorHandler: 　　シート1.Range("C2").Value = "該当無し" End Sub

>VLOOKUPの方が標準モジュールではうまくいくものの、シートモジュールに移すとうまく >行きません。 どのようにうまくいかないのでしょうか。 エラーが出るのか、Vlookupの結果が変な値になるのか、Vlookupが実行されていない様子なのか、フリーズしてしまうのか、などが考えられますが。 また、プロシージャを置く場所以外に違いはあるのでしょうか。 たとえばの話ですが、シートモジュールに移す際には「科目」プロシージャごとではなくその中身を「Worksheet_Change」プロシージャの先頭に挿入する、などを行っているのでしょうか。

コードをきちんと読んでいないので、はっきりとは分からないのですが。 質問は「どうやったらイベントプロシージャを動かせるのか」かなと思いました。 もし標準モジュールがきちんと書けているなら、イベントプロシージャ側に Ｃａｌｌ　プロシージャ名（引数） を書き込めば、外にあるプロシージャ（イベントプロシージャやモジュール外にあるprivate プロシージャ以外）が呼び出せます。 この場合 Ｃａｌｌ　科目() ですね。 もちろんイベントプロシージャにコピペしてもいいですけど。 あとは、changeする部分をきちんと対応させないといけません。 イベントが発生したのに何も変わらなかったら、イベントを発生させる意味がありませんし。 イベントプロシージャ内の最後のif文2行は、必要ありませんよね？？