２つのコードを平行して実行させたい

質問

以前教えていただいた、ＶＢＡのコードがシート１に記載してありまして、今回教えていただいたコードもシート１に記入しなくてはいけないのですが、２つのコードを入れると、上下に仕切りの罫線が出たので、２つのコードが実行できるのかとおもったのですが、コンパイルエラーとか出て
ダメでした。
片方づつだと問題なく動くので、２つ入れているのがダメなんだとおもいます。
対処法を教えてください。

回答No.2

Asahi2001

>教えていただいたコードが両方とも
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>で始まるのですが、これがいけないのでしょうか？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
は、イベントプロシージャなので２つあるとエラーになります。
サンプルＡとＢがあるならＢの
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　処理の記述
End Sub
処理の記述部分をコピーしてＡに張り付けて、Ｂを消すと一応ひとつになります。
記述内容が分からないので、エラーが発生したり正しく処理ない可能性があります。

>Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
>とか1を追加すれば解決できるのでしょうか？

呼び出して実行しないと処理せれません。
Ａに、Call Worksheet_SelectionChange1(Application.ActiveCell)
を追加すれば一応処理されます。
しかし、記述内容によってはエクセルの処理が重くなる可能性があります。

回答No.1

play_with_you

「コンパイルエラー」だけじゃなくて、どういうエラーだったかも一緒に表示されたよね？なんでそれ記載しないの？

まあ、どうせマクロの名前が同じだからだと思うけど。

補足

こんにちは。
たしかに名前のエラーのようです。

コンパイルエラー：
名前が適切ではありません：worksheet_SelectionChange

と表示されてしまいます。
教えていただいたコードが両方とも
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
で始まるのですが、これがいけないのでしょうか？
片方に
Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
とか1を追加すれば解決できるのでしょうか？