質問編集履歴
1
ソースコードがインデントされていなかったので修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -16,15 +16,13 @@
|
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|
|
19
|
-
### 該当のソースコード
|
|
20
|
-
|
|
21
|
-
【子マクロのみソースコードを記載】
|
|
19
|
+
### 該当のソースコード【子マクロのみソースコードを記載】
|
|
22
20
|
|
|
23
21
|
|
|
24
22
|
|
|
23
|
+
```VBA
|
|
24
|
+
|
|
25
25
|
Sub 手続き名(ByVal urt2 As Variant, ByRef urm2() As Variant, ByVal mm As Integer, ByVal tn2 As String)
|
|
26
|
-
|
|
27
|
-
|
|
28
26
|
|
|
29
27
|
'イテレータ
|
|
30
28
|
|
|
@@ -39,8 +37,6 @@
|
|
|
39
37
|
Dim book1 As Workbook
|
|
40
38
|
|
|
41
39
|
|
|
42
|
-
|
|
43
|
-
'初期化
|
|
44
40
|
|
|
45
41
|
cr2 = 1
|
|
46
42
|
|
|
@@ -74,7 +70,7 @@
|
|
|
74
70
|
|
|
75
71
|
|
|
76
72
|
|
|
77
|
-
.Cells(cr2, cc2).Value = "テスト" 'この"テスト"も出力されません。
|
|
73
|
+
.Cells(cr2, cc2).Value = "テスト" **'この"テスト"も出力されません。**
|
|
78
74
|
|
|
79
75
|
.Cells(cr2 + 1, cc2).Value = urt2
|
|
80
76
|
|
|
@@ -96,8 +92,14 @@
|
|
|
96
92
|
|
|
97
93
|
End Sub
|
|
98
94
|
|
|
95
|
+
```
|
|
99
96
|
|
|
100
97
|
|
|
101
|
-
###言語名
|
|
102
98
|
|
|
99
|
+
改行も含んでコードの下から11行目の"テスト"も出力されないということは、
|
|
100
|
+
|
|
101
|
+
おそらくbook1内のワークシートの指定が間違っていると思いますが、自分で調べても
|
|
102
|
+
|
|
103
|
-
|
|
103
|
+
分からなかったので質問しました。
|
|
104
|
+
|
|
105
|
+
基本的な質問で申し訳ありませんが、ご回答よろしくお願いいたします。
|