マクロ IF分岐 空白行は空白を返す

質問

指定の2列に条件付き書式設定で太字が設定してあり、2行とも太字ならその行に〇を付けるというマクロを作ってみたのですが、空白行がある場合にうまくいきません。空白行だったら、空白を返す、というふうにしたいのですが、elseのところを　Cells(nRow, 21) = ""にしてもCells(nRow, 21) .clearcontentsにしても空白にならず〇が入力されてしまいます。他の空白行ではない行は正しく太字なら〇が付いているのですが、空白行は空白にするにはどうすればいいですか？

Sub test()
'
For nRow = 7 To 233

If Cells(nRow, 9).DisplayFormat.Font.Bold = True And Cells(nRow, 10).DisplayFormat.Font.Bold = True Then
Cells(nRow, 21) = "○"
Else
Cells(nRow, 21) = ""

End If

Next nRow

End Sub

回答No.3

SI299792 · ベストアンサー

どのような条件の時に、太字にしているのかわかりませんが、条件付き書式で空白の時に太字になるように設定してあるのではないでしょうか。

空白でなければという条件を追加するのが一番簡単だと思います。
If文を置き換えてみて下さい。
If Cells(nRow, 9) > "" And Cells(nRow, 10) > "" And Cells(nRow, 9).DisplayFormat.Font.Bold And Cells(nRow, 10).DisplayFormat.Font.Bold Then

= Trueはなくてもいいので除きました。
別質問で、Trueがわからないといっていましたが、ここで使っているではありませんか。（笑）

お礼

空白でなければ、はそうやるのですね。勉強になりました。たくさん教えていただきありがとうございます。

回答No.5

山田 太郎（@f_a_007）

【追加訂正】無駄なIf-Then文を省略

よくよく考えたら、(1)isBoldの初期値設定、(2)If-Then文による分岐は無駄。そういうことで最訂正しておきます。無理をすれば、１行で書けるってことです。

Option Explicit

Sub test()
　　Dim isValue As Boolean
　　Dim isBold As Boolean
　　Dim I　　　 As Integer

　　For I = 1 To 10
　　　　isValue = Len(Cells(I, 2) & "") * Len(Cells(I, 3) & "")
　　　　isBold = Cells(I, 2).DisplayFormat.Font.Bold * Cells(I, 3).DisplayFormat.Font.Bold
　　　　Cells(I, 1) = Mid("○", 1, Abs(isValue * isBold))
　　Next I
End Sub

回答No.4

山田 太郎（@f_a_007）

【訂正】No.3の回答を見て・・・

やっぱり、最初に書いたコードでも動くのではと思ってテスト。すると、問題なく動作。単なる、Cells→Cell のタイプミスでした。よって、先の回答を訂正。

Option Explicit

Sub test()
　　Dim isValue As Boolean
　　Dim isBold As Boolean
　　Dim I　　　 As Integer

　　For I = 1 To 10
　　　　isBold = False
　　　　isValue = Len(Cells(I, 2) & "") * Len(Cells(I, 3) & "")
　　　　If isValue Then
　　　　　　isBold = Cells(I, 2).DisplayFormat.Font.Bold * Cells(I, 3).DisplayFormat.Font.Bold
　　　　End If
　　　　Cells(I, 1) = Mid("○", 1, Abs(isBold))
　　Next I
End Sub

回答No.2

山田 太郎（@f_a_007）

【お詫び】１行消すのを忘れていた！

Sub test()
　　Dim isValue As Boolean
　　Dim isBold　As Boolean
　　Dim I　　　 As Integer

　　For I = 1 To 10
　　　　isBold = False
　　　　isValue = Len(Range(Cells(I, 2), Cells(I, 2)).Value & "") * Len(Range(Cells(I, 3), Cells(I, 3)).Value & "")
　　　　If isValue Then
　　　　　　isBold = Cells(I, 2).DisplayFormat.Font.Bold * Cells(I, 3).DisplayFormat.Font.Bold
　　　　End If
　　　　Cells(I, 1) = Mid("○", 1, Abs(isBold))
　　Next I
End Sub

Cells(I, 1) = Mid("○", 1, Abs(isBold))

は、最後の１行のみで十分。

回答No.1

山田 太郎（@f_a_007）

Excel未経験の70歳になる爺が挑んでみた。

一回目：なるほど空白行もOが付いた。

これは、BOLDを指定しているので当たり前のこと。そこで、空行か否かをチェックすることにした。でも、そんな知識も経験もない。で、Cells Value で検索した。結果、次のようなコードを書いてみた。

Sub test()
　　Dim isValue As Boolean
　　Dim isBold　As Boolean
　　Dim I　　　 As Integer

　　For I = 1 To 10
　　　　isBold = False
　　　　isValue = Len(Range(Cells(I, 2), Cells(I, 2)).Value & "") * Len(Range(Cells(I, 3), Cells(I, 3)).Value & "")
　　　　If isValue Then
　　　　　　isBold = Cells(I, 2).DisplayFormat.Font.Bold * Cells(I, 3).DisplayFormat.Font.Bold
　　　　　　Cells(I, 1) = Mid("○", 1, Abs(isBold))
　　　　End If
　　　　Cells(I, 1) = Mid("○", 1, Abs(isBold))
　　Next I
End Sub

添付図のような結果を得た。

PS、空白チェック要領が正しいかどうかは自信がない。でも、一応は成功しているような？？？

お礼

なんども回答いただきありがとうございます。試してみます。