VBAのEmpty関しまして

Question

３列目の行４から９の何処かのセルが空白だった時に、アクティブになっているワークシートのタブが赤くなるように
コードを設定したつもりなのですが、上手く作動しません。
デバックにも引っかからないので原因がなんなのか特定できないので教えていただきたいです。

参照サイト

Option Explicit
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 4 To 9
  If IsEmpty(Cells(i, 3)) = True Then
    ActiveSheet.Tab.Color = RGB(255, 0, 0)
    Exit For
  End If
Next
End Sub

Comments

[m.ts10806]

Private Subに関する質問になってないように見受けられますが、
何が起きていてうまくいかないんでしょう。
https://teratail.com/help/question-tips#questionTips3-4-1

[tatsu99]

Private Sub Worksheet_Activate()を呼び出している個所は間違いなくあるのですか？

[fisher44]

原因が自力では何処かも特定できなかったので推測でタイトルを決めてしまっておりました????
ご指摘ありがとうございます。

[m.ts10806]

質問編集していただければと。
本文書いてからタイトル書くと要件を取り出しやすいと思います

Answer 1

すいません。私が間違えてました。
Cells(i, 3)がEmptyということはあり得るようです。
全くの空だと、Emptyと判断されるんですね。

以下、旧回答。
Cells(i, 3)がEmptyということはあり得ないので、IsEmpty(Cells(i, 3))は常にFalseです。
おそらく、

If Cells(i, 3) = "" Then

ということでは？
Emptyとは何なのか学びましょう。

Comments

[fisher44]

ありがとうざいます！　
調べてみましたが、Emptyは数値「０」が記入されていたらTrueという解釈で宜しかったでしょうか？　
原因が自力では何処かも特定できなかったので本当にありがたいです！

ありがとうございました！！

Answer 2

とりあえず、試してみたけど、問題なさそうですが？

原因としては、「空白」に見えるが、
スペース文字等空白に見える文字が入っているか、
単純に実際には色が付いているが、薄くて見えないかでは？
あるいは、コードを記載するモジュールを間違えているとか？

Private Sub Worksheet_Activate()
    With Me
        If WorksheetFunction.CountBlank(.Range("C4:C9")) > 0 Then
            .Tab.Color = vbRed
        End If
    End With
End Sub

Answer 3

バリアント型変数に修正したらIsEmptyも上手く作動出来ました。

Empty値とはバリアント型変数に格納できる特殊な値で、バリアント型変数が初期化されていない状態を表します。Empty値は、数値では０と評価され、文字列としては長さ０の文字列と評価されます。

参照先