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を赤色で表示したいです。
お時間取らせますが教えていただきたいです
No.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 >= ○○と書きます。=>と書くと、エラーになります。
(=は後に書きます。前に書いてはいけません)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Visual Basic(VBA) Sheet1の出荷日と品名が並んだ表からSheet2の品名別出荷日別の個数一覧表を作っています。 オ 3 2022/12/01 23:54
- Excel(エクセル) エクセルVBAでチェックボックスにチェックを入れる 1 2022/09/14 00:52
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
参照先セルに値が入っていない...
-
Excel:文字と数字の組合せ、次...
-
空白でないセルの値を返す方法...
-
エクセルで既に入力してある文...
-
Excelでセルに入力されたカラー...
-
自動入力で今月はMONTH(TODAY()...
-
IF関数で0より大きい数値が入力...
-
エクセルの数式がかぶって、選...
-
【Excel】セル内の時間帯が特定...
-
エクセルで数字10が1に変わる。...
-
自分のEXCELに株価を自動的に取...
-
Excel 分数の分子を小数点で表...
-
yyyy/mm/ddからyyyy/mmへの変換
-
エクセルで、同じ数値を一気に...
-
EXCELのセル上のURLを...
-
エクセル:コメントのようなも...
-
エクセルでセルのデータがカタ...
-
エクセルで入力時間を更新させ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
参照先セルに値が入っていない...
-
IF関数で0より大きい数値が入力...
-
Excel:文字と数字の組合せ、次...
-
エクセルで既に入力してある文...
-
値を入力後、自動的にアクティ...
-
エクセルの数式がかぶって、選...
-
エクセルで時間の判定をしてい...
-
空白でないセルの値を返す方法...
-
Excelでセルに入力されたカラー...
-
yyyy/mm/ddからyyyy/mmへの変換
-
入力したところまでを自動的に...
-
excel 関数にて文字を0として認...
-
バーコードが読み取れない原因...
-
エクセルで複数の条件で掛け算...
-
ExcelVBAでセルを編集状態にす...
-
エクセルで、特定のセルの内容...
-
【vba】指定範囲の中に任意の文...
-
エクセルで10分ごとの時刻の...
おすすめ情報