VBA 計算式で10％未満だったら、シート名を赤にする

こんにちは

ＶＢＡ　の書き方で困っています。

（Ｈ29（a 収支計）ーＩ27（b 人数）×25,000）÷Ｂ９（c 売上）＝e 自社含
　
とういう式があります。

自社含が10％未満だった時に

ワークシート名を赤にしたいのですが、

マイナス％の部分は赤になるのですが、
0％から10％の間に色がつきません。
10％から上も色はつきません。


Sub 赤にする()

Dim WS As Worksheet

For Each WS In Worksheets

WS.Activate

On Error Resume Next

Dim a, b, c, d, e, f

a = Cells(29, 8).Value
b = Cells(27, 9).Value
c = Cells(9, 2).Value
d = a - b * 25000
e = d / c
f = Format(e, "#.##%")

Range("H35") = f

If f <= ("10%") And f <> "" Then

WS.Tab.Color = RGB(255, 0, 0)

End If

Next

End Sub



今は、このような式が入っています。


よろしくお願いします。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/06/18 12:50

If f <= ("10%") And f <> "" Then　

を

If e <= 0.1 And f <> "" Then
に変えてください。

この回答へのお礼

tatsumaru77さんの直しでできました！！
ありがとうございます！！

お礼日時：2021/06/18 13:53