| 
    
     |  | ▼勉強中 さん: >勉強したてのシロウトです。
 >イベントプロシージャのプログラムを作成中です。
 >内容は、
 >
 >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")まで
 >あり 上記内容のプログラムを
 >
 >シート1のrange("B6")の内容に変更があったときに、
 >range("B6")のValue をシート2のrange("B19")にコピー。
 >
 >の様に 全てrange("B100") まで 入力すると 容量オーバーとなってしまいます。
 >
 >同じプログラムを 必要分 入力しないで、 単純に出来ないでしょうか?
 >どなたか教えて下さい。
 >お願いします。
 
 |  |