色彩検定1級を取得する魅力を紹介♪

こんにちは

VBA の書き方で困っています。

(H29(a 収支計)ーI27(b 人数)×25,000)÷B9(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



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


よろしくお願いします。

gooドクター

A 回答 (1件)

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




If e <= 0.1 And f <> "" Then
に変えてください。
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング