質問編集履歴

3

2018/07/25 06:52

投稿

退会済みユーザー
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
- end sub
81
+ End sub
82
82
 
83
83
  ```
84
84
 

2

2018/07/25 06:52

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -36,23 +36,25 @@
36
36
 
37
37
 
38
38
 
39
- select case target.address
39
+ Select case target.address
40
40
 
41
41
 
42
42
 
43
43
  case$A$1
44
44
 
45
- select target = range("A1")
45
+ set target = range("A1")
46
46
 
47
47
 
48
48
 
49
49
  If target.value<>"" then
50
50
 
51
- Call grp1-1
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

2018/07/25 06:50

投稿

退会済みユーザー
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