Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20904 / 76738 ←次へ | 前へ→

【61242】イベントプロシージャについて
質問  勉強中  - 09/4/18(土) 23:23 -

引用なし
パスワード
   勉強したてのシロウトです。
イベントプロシージャのプログラムを作成中です。
内容は、

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") まで 入力すると 容量オーバーとなってしまいます。

同じプログラムを 必要分 入力しないで、 単純に出来ないでしょうか?
どなたか教えて下さい。
お願いします。

0 hits

【61242】イベントプロシージャについて 勉強中 09/4/18(土) 23:23 質問
【61243】Re:イベントプロシージャについて 勉強中 09/4/18(土) 23:31 質問
【61244】Re:イベントプロシージャについて yoshi 09/4/19(日) 2:05 回答
【61246】Re:イベントプロシージャについて 勉強中 09/4/19(日) 16:32 お礼
【61249】Re:イベントプロシージャについて ponpon 09/4/19(日) 18:54 発言
【61278】Re:イベントプロシージャについて 勉強中 09/4/21(火) 23:04 お礼
【61250】Re:イベントプロシージャについて yoshi 09/4/19(日) 19:14 お礼

20904 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free