質問編集履歴
3
test
CHANGED
File without changes
|
test
CHANGED
@@ -76,9 +76,9 @@
|
|
76
76
|
|
77
77
|
range("F20")="abc"
|
78
78
|
|
79
|
+
End If
|
79
80
|
|
80
|
-
|
81
|
-
|
81
|
+
End sub
|
82
82
|
|
83
83
|
```
|
84
84
|
|
2
test
CHANGED
File without changes
|
test
CHANGED
@@ -36,23 +36,25 @@
|
|
36
36
|
|
37
37
|
|
38
38
|
|
39
|
-
|
39
|
+
Select case target.address
|
40
40
|
|
41
41
|
|
42
42
|
|
43
43
|
case$A$1
|
44
44
|
|
45
|
-
se
|
45
|
+
set target = range("A1")
|
46
46
|
|
47
47
|
|
48
48
|
|
49
49
|
If target.value<>"" then
|
50
50
|
|
51
|
-
Call grp1
|
51
|
+
Call grp1_1
|
52
52
|
|
53
53
|
Endif
|
54
54
|
|
55
55
|
|
56
|
+
|
57
|
+
End Select
|
56
58
|
|
57
59
|
End Sub
|
58
60
|
|
1
test
CHANGED
File without changes
|
test
CHANGED
@@ -26,6 +26,12 @@
|
|
26
26
|
|
27
27
|
|
28
28
|
|
29
|
+
``` VBA
|
30
|
+
|
31
|
+
|
32
|
+
|
33
|
+
'ワークシートモジュール
|
34
|
+
|
29
35
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
30
36
|
|
31
37
|
|
@@ -52,7 +58,7 @@
|
|
52
58
|
|
53
59
|
|
54
60
|
|
55
|
-
|
61
|
+
'標準モジュール
|
56
62
|
|
57
63
|
sub grp1-1()
|
58
64
|
|
@@ -72,7 +78,7 @@
|
|
72
78
|
|
73
79
|
end sub
|
74
80
|
|
75
|
-
|
81
|
+
```
|
76
82
|
|
77
83
|
|
78
84
|
|