###前提・実現したいこと
Excelシートのセルに文字を入力すると、真下のセルが着色される機能を作っています。しかし、セルを入力可能状態にして何も入力せずにEnterを押しても着色されてしまいます。条件分岐でセルに何も入力されていないときは着色しないような機能をVBAで実装したいです。
###該当のソースコード
Private Sub Worksheet_Change(ByVal Target As Range) Cells(Target.Row + 1, Target.Column).Interior.Color = RGB(255, 0, 0) End Sub
###試したこと
下記のようにIf文を書いてみましたが、入力可能状態にすると着色されてしまい、
うまくいきませんでした。
Private Sub Worksheet_Change(ByVal Target As Range) If Cells(Target.Row, Target.Column).Interior.Color <> " " Then Cells(Target.Row + 1, Target.Column).Interior.Color = RGB(255, 0, 0) End If End Sub
###補足情報(言語/FW/ツール等のバージョンなど)
VBA
Excel
よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/04/23 00:56
2017/04/23 00:58
2017/04/23 01:04