Excel VBA質問箱 IV

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

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


5124 / 76732 ←次へ | 前へ→

【77221】Re:関数ではなくてマクロでやりたいのです。
発言  kanabun  - 15/6/18(木) 17:54 -

引用なし
パスワード
   ▼β さん:
>▼kanabun さん:
>
>やはり、無駄なイベント連鎖はなくしたほうがいいと思いますが。

おお、そうでした。ご指摘、感謝
プロシージャ・コード、再掲します。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Range
  Dim c As Range
  Set r = Intersect(Target, Range("D6:D10"))
  If r Is Nothing Then Exit Sub
  
  Application.EnableEvents = False '●追加
  For Each c In r
    If Not IsEmpty(c.Value) Then
      c.Offset(, -1).Value = Range("E3").Value
    End If
  Next
  Application.EnableEvents = True  '●追加
End Sub
487 hits

【77218】関数ではなくてマクロでやりたいのです。 翔子 15/6/18(木) 15:27 質問[未読]
【77219】Re:関数ではなくてマクロでやりたいのです。 kanabun 15/6/18(木) 17:03 発言[未読]
【77220】Re:関数ではなくてマクロでやりたいのです。 β 15/6/18(木) 17:39 発言[未読]
【77221】Re:関数ではなくてマクロでやりたいのです。 kanabun 15/6/18(木) 17:54 発言[未読]
【77226】Re:関数ではなくてマクロでやりたいのです。 翔子 15/6/19(金) 8:53 質問[未読]
【77227】Re:関数ではなくてマクロでやりたいのです。 β 15/6/19(金) 11:40 発言[未読]
【77233】Re:関数ではなくてマクロでやりたいのです。 翔子 15/6/20(土) 21:08 お礼[未読]

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