|
勉強したてのシロウトです。
イベントプロシージャのプログラムを作成中です。
内容は、
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Target, Range("B5")) Is Nothing) Then
から始まり、
シート1のrange("B5")の内容に変更があったときに、
range("B5")のValue をシート2のrange("B18")にコピーしたり、
range("B5")のValue と同じValueを シート3の表 から検索して、
その一個となりのRangeのValueを シート4のRange("B5")へコピーする
などの プログラムです。
プログラムは問題なく 実行されます。
しかし、この内容と同じプログラムがrange("B5")〜range("B100")まで
あり 上記内容のプログラムを
range("B6")の内容に変更があったときに、
range("B6")のValue を他のシート1のrange("B19")にコピー。
の様に 全てrange("B100") まで 入力すると 容量オーバーとなってしまいます。
同じプログラムを 必要分 入力しないで、 単純に出来ないでしょうか?
どなたか教えて下さい。
お願いします。
|
|