【VBA】セルに値を入力してEnterを押すと、一つ下のセルを着色したい

###前提・実現したいこと
セルに値を入力してEnterを押すと、一つ下のセルを着色したいです。

###発生している問題・エラーメッセージ

現状のコードだと、Enterを押下したとき、2つ下のセルが着色されてしまいます。

`
###該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveCell.Interior.Color = RGB(255, 0, 0)
End Sub

###試したこと
offsetプロパティでoffset(-1,0)を指定しましたが、２つ下のセルが着色されてしまいます。

###補足情報(言語/FW/ツール等のバージョンなど)

Excel2016

よろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

提示されているコードですと、2つ下というより入力後にクリックしたセルが赤くなっていると思います。
下記のコードでは如何でしょう？

VB
1Option Explicit
2Private Sub Worksheet_Change(ByVal Target As Range)
3    Cells(Target.Row + 1, Target.Column).Interior.Color = RGB(255, 0, 0)
4End Sub
5

投稿2017/04/19 00:32

motuo

総合スコア3027

webillion

2017/04/19 00:51

ご提示のコードをVBEに貼り付けて再度試したところ、変化が起こりませんでした。何かが間違っているのでしょうか。

motuo

2017/04/19 00:59

そうですね。それが何かはわかりませんが… とりあえず、前述のActiveCell.Interior.Color = RGB(255, 0, 0)を Cells(Target.Row + 1, Target.Column).Interior.Color = RGB(255, 0, 0)に置き換えたならどうでしょうか？

webillion

2017/04/19 01:14

ご回答ありがとうございます。無事、できるようになりました。しかし、excelを新規で作り直したところ、前述のActiveCell.Interior.Color = RGB(255, 0, 0)でも期待通りの動きになりました。原因は不明のままです。

motuo

2017/04/19 01:22

>ActiveCell.Interior.Color = RGB(255, 0, 0)でも期待通りの動き Enterキーですぐ下のセルに移動したからでは？マウスで少し離れた場所をクリックすると、そこが赤くなると思いますが…

webillion

2017/04/19 01:24

マウスで少し離れた場所をクリックしてもアクティブセルの真下が赤くなるようになりました。

motuo

2017/04/19 01:28

なるほど。スイマセンが、私の環境では上記事象は再現しませんので原因は正直わかりませんが…了解しました。