プロが教えるわが家の防犯対策術!

C3とC4のセルに、Visual basicで実行した時入力した値をC3に表示させ、その後に、C3に表示された値によって80点以上ならA 60点以上ならB それ以外ならCとC4のセルに表示させる式を入れたいです。

Sub プロジーシャ名()
   Range(“C3”).Value = InputBox(“数値を入力し        てください)
   If Range(“C3”) => 80 Then
   Range(“D3”).Value = A
   Elseif Range(“C3”) => 60
   Range(“D3”).Value = B
   Else
   Range(“D3”).Value = C
End Sub

これでお手上げです。どういう風に打ち込めばいいですか?そしてプラスでA B Cを赤色で表示したいです。

お時間取らせますが教えていただきたいです

A 回答 (1件)

以下のようにしてください。


Sub プロジーシャ名()
Range("C3").Value = InputBox("数値を入力してください")
If Range("C3") >= 80 Then
Range("D3").Value = "A"
ElseIf Range("C3").Value >= 60 Then
Range("D3").Value = "B"
Else
Range("D3").Value = "C"
End If
Range("D3").Font.Color = RGB(255, 0, 0)
End Sub

追伸
比較をする場合、Xが○○以上化の判定は
X >= ○○と書きます。=>と書くと、エラーになります。
(=は後に書きます。前に書いてはいけません)
    • good
    • 0

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