Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
20974 / 76815 ←次へ　｜　前へ→
【61249】Re:イベントプロシージャについて
発言  ponpon  - 09/4/19(日) 18:54 -
引用なし
パスワード
   ▼勉強中 さん：

>B5に変更があったとき 他のシートのB5にコピー
>B19に変更があったとき 他のシートのB19にコピー

ならば、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ではなく、
こんな感じではどうでしょう？

Private Sub Worksheet_Change(ByVal Target As Range)
　　 If Not Intersect(Target, Range("B5:B100")) Is Nothing Then
　　　　Application.EnableEvents = False
　　　　With Target
　　　　　 Sheets("他のシート").Range(.Address(0, 0)).Value = .Value
　　　　End With
　　　　Application.EnableEvents = True
　　 End If

End Sub
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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
20974 / 76815 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free