【VBA】空白を識別し、入力内容を変えたい。

D62:E69のセルに1つでも空白がある場合　→　D70のセルに「2」と入力
D62:E69のセルが全て埋まっていたら（空白でない）　→　D70のセルに「1」と入力

下記で試してみましたが、上手くいきませんでした。

Sub
1 If Range("D62:E69").Value = "" Then
2     Range("D70").Value = "2"
3     Range("D70").Font.Size = 10
4 Else
5     Range("D70").Value = "1"
6     Range("D70").Font.Size = 10
7 End If
8 End Sub

どなたかご教示願います。

行動規範の内容に同意します

回答1件

ベストアンサー

VBA
1If WorksheetFunction.CountBlank(Range("D62:E69")) > 0 Then

投稿2021/07/26 08:32

jinoji

総合スコア4585

退会済みユーザー

2021/07/26 23:43

ありがとうございます。頂いたコードを使用して作成出来るよう頑張ります！

行動規範の内容に同意します

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.46%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！

【VBA】空白を識別し、入力内容を変えたい。

関連した質問