Excel VBA質問箱 IV

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

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


20891 / 76732 ←次へ | 前へ→

【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 お礼

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