質問編集履歴
1
コード分割
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -17,14 +17,22 @@
|
|
|
17
17
|
A1が空白だった場合にはA2,A3の処理は行われません。
|
|
18
18
|
|
|
19
19
|
|
|
20
|
-
```VBA
|
|
20
|
+
```VBA/SelectCell
|
|
21
21
|
|
|
22
|
+
|
|
22
23
|
Sub SelectCell()
|
|
23
24
|
Call EmptyCheck(Range("A1"))
|
|
24
25
|
Call EmptyCheck(Range("A2"))
|
|
25
26
|
Call EmptyCheck(Range("A3"))
|
|
26
27
|
End Sub
|
|
27
28
|
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
|
|
32
|
+
```
|
|
33
|
+
|
|
34
|
+
|
|
35
|
+
```VBA/EmptyCheck
|
|
28
36
|
Function EmptyCheck(cell)
|
|
29
37
|
If cell = "" Then
|
|
30
38
|
Dim Address As String
|
|
@@ -41,9 +49,9 @@
|
|
|
41
49
|
|
|
42
50
|
End If
|
|
43
51
|
End Function
|
|
44
|
-
|
|
45
52
|
```
|
|
46
53
|
|
|
54
|
+
|
|
47
55
|
---
|
|
48
56
|
|
|
49
57
|
結果、VBAの着色処理の赤いセルが現れることはありませんでした。
|