回答編集履歴
2
説明追記
answer
CHANGED
|
@@ -1,3 +1,6 @@
|
|
|
1
|
+
**変更前の質問**
|
|
2
|
+
> 下記内容で、Range（"全体")はテーブルを指しています。テーブルの中が空白ならMsgboxにてメッセージを表記、それ以外なら、Elseより下の処理をしてほしいのですが、("全体")のテーブルに値を入力しても「値が入力されていません」とメッセージが出てしまいます。
|
|
3
|
+
|
|
1
4
|
CountA関数で値や式のあるセルの数を取得できます。
|
|
2
5
|
|
|
3
6
|
```vba
|
1
説明追記
answer
CHANGED
|
@@ -4,4 +4,16 @@
|
|
|
4
4
|
If WorksheetFunction.CountA(Range("全体"))=0 Then
|
|
5
5
|
MsgBox "値が入力されていません"
|
|
6
6
|
Else
|
|
7
|
-
```
|
|
7
|
+
```
|
|
8
|
+
|
|
9
|
+
質問内容が変更されたので
|
|
10
|
+
---
|
|
11
|
+
|
|
12
|
+
> If Range("A8").Select <> "" Then ここで、A8セルが空白でない場合、処理を実行しますとしているつもりです。
|
|
13
|
+
|
|
14
|
+
`If Range("A8").Select <> "" Then`
|
|
15
|
+
|
|
16
|
+
Selectはそのセルを選択しなさいと言う命令です。
|
|
17
|
+
セルの値を取得するのはValueです。
|
|
18
|
+
|
|
19
|
+
`If Range("A8").Value <> "" Then`
|