このマクロ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Columns("CR")) Is Nothing Then
If IsNumeric(Target.Value) Then
If Target.Value > 0 And Target.Value = Int(Target.Value) Then
Target.Offset(, 1).Resize(, Target.Value).Interior.Color = vbBlue
End If
End If
End If
End Sub
のマクロを教えてもらったのですが、CR以外の所にも表を作ってっこれと同じ事をしたいのですが、
シートモジュールにこのマクロが重複していたらだめのでしょうか？例えば

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Columns("DE")) Is Nothing Then
If IsNumeric(Target.Value) Then
If Target.Value > 0 And Target.Value = Int(Target.Value) Then
Target.Offset(, 1).Resize(, Target.Value).Interior.Color = vbBlue
End If
End If
End If
End Sub
こんな感じでシートモジュールに２つ

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2019/02/07 16:04

Caseでターゲットを分けるだけだと思うけど。

https://oshiete.goo.ne.jp/qa/3916211.html

この回答へのお礼

お忙しい所回答有難うございます。すいません、わかりません。

お礼日時：2019/02/08 00:49

No.3 回答者： bonaron 回答日時： 2019/02/08 02:10

CR と DE を１つにまとめる、という手もあります。

If Not Intersect(Target, Union(Me.Columns("CR"), Me.Columns("DE"))) Is Nothing Then

この回答へのお礼

お忙しい所回答有難うございます。
変えて試したのですが、出来ないです。

お礼日時：2019/02/09 23:42

No.2 回答者： fujillin 回答日時： 2019/02/07 16:17

＞CR以外の所にも表を作ってっこれと同じ事をしたいのですが

処理内容として本当に「同じこと」であるならば、入口の条件チェックを拡張すれば済む話のように思えます。

＞シートモジュールにこのマクロが重複していたらだめのでしょうか？
同じ名前のマクロを登録しようとしても、当然ながら、叱られるはずです。

この回答へのお礼

お忙し所回答有難うございます。
考えてみたのですがわかりません。入口の条件チェックの拡張はどのようにすればいいのでしょうか？

お礼日時：2019/02/08 00:47