エクセルのコード表示について・・・

質問

(1)
If Target.Column <> 4 Then Exit Sub
Target.Offset(0, -2) = "1"

(2)
If Target.Column <> 35 Then Exit Sub
Target.Offset(0, -2) = "2"

(1)、(2)のコードを入力したのですが、セルには１としか表示されません。。
(2)の方を優先したい時は、どうすればいいのでしょうか？？？

回答No.3

chie65536

＞コピーして使用したのですが、
＞エラーを起こしてしまいます。。何故でしょうか？？
＞他のコードと一緒に使用しているからなのでしょう？？
No.2の回答は、見やすく、判りやすくする為、コードの行頭の段落空けに全角スペースが使われてます。
何も考えずにコピペすると、行頭の全角スペースがエラーになります。

コピペしたら↓の「□」の位置にある全角スペースを取り除きましょう。

If Target.Column = 4 Then
□Target.Offset(0, -2) = "1"
Else
□If Target.Column = 35 Then
□□Target.Offset(0, -2) = "2"
□End If
End If

回答No.2

zap35

このコードでは変更されたのがＤ列以外の時はExit Subで処理を抜けますから、（２）のロジックは実行されません。
以下のようにIf文の入れ子にするか、Select Case文を使用されたら良いと思います。

If Target.Column = 4 Then
　Target.Offset(0, -2) = "1"
Else
　If Target.Column = 35 Then
　　Target.Offset(0, -2) = "2"
　End If
End If

補足

コピーして使用したのですが、
エラーを起こしてしまいます。。何故でしょうか？？
他のコードと一緒に使用しているからなのでしょう？？

回答No.1

Ce_faci

こんにちわ
もっとも単純な方法として
（２）、（１）の順番にするのはどうでしょう。