質問編集履歴
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -37,8 +37,8 @@
|
|
|
37
37
|
range("A20")= range("A1")
|
|
38
38
|
range("E20")=10
|
|
39
39
|
range("F20")="abc"
|
|
40
|
-
|
|
40
|
+
End If
|
|
41
|
-
|
|
41
|
+
End sub
|
|
42
42
|
```
|
|
43
43
|
|
|
44
44
|
クリア処理は、
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -17,15 +17,16 @@
|
|
|
17
17
|
'ワークシートモジュール
|
|
18
18
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
19
19
|
|
|
20
|
-
|
|
20
|
+
Select case target.address
|
|
21
21
|
|
|
22
22
|
case$A$1
|
|
23
|
-
|
|
23
|
+
set target = range("A1")
|
|
24
24
|
|
|
25
25
|
If target.value<>"" then
|
|
26
|
-
Call
|
|
26
|
+
Call grp1_1
|
|
27
27
|
Endif
|
|
28
28
|
|
|
29
|
+
End Select
|
|
29
30
|
End Sub
|
|
30
31
|
|
|
31
32
|
'標準モジュール
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,6 +12,9 @@
|
|
|
12
12
|
50行目から48行目に入力する。
|
|
13
13
|
次のグループは30行ごとプラスされる。
|
|
14
14
|
|
|
15
|
+
``` VBA
|
|
16
|
+
|
|
17
|
+
'ワークシートモジュール
|
|
15
18
|
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
16
19
|
|
|
17
20
|
select case target.address
|
|
@@ -25,7 +28,7 @@
|
|
|
25
28
|
|
|
26
29
|
End Sub
|
|
27
30
|
|
|
28
|
-
|
|
31
|
+
'標準モジュール
|
|
29
32
|
sub grp1-1()
|
|
30
33
|
|
|
31
34
|
If range("A20")="" then
|
|
@@ -35,7 +38,7 @@
|
|
|
35
38
|
range("F20")="abc"
|
|
36
39
|
|
|
37
40
|
end sub
|
|
38
|
-
|
|
41
|
+
```
|
|
39
42
|
|
|
40
43
|
クリア処理は、
|
|
41
44
|
ElseIf target.value="" then
|