回答編集履歴
2
コード修正
test
CHANGED
|
@@ -20,15 +20,13 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
-
For i = 1 To (
|
|
23
|
+
For i = 1 To (wsB.Cells(Rows.Count, 1).End(xlUp).Row)
|
|
24
24
|
|
|
25
|
-
waA.Range("Y1").Value = i
|
|
25
|
+
waA.Range("Y1").Value = wsB.Cells(i,1).Value
|
|
26
|
-
|
|
27
|
-
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True, _
|
|
28
|
-
|
|
29
|
-
IgnorePrintAreas:=False
|
|
30
26
|
|
|
31
27
|
|
|
28
|
+
|
|
29
|
+
'印刷処理
|
|
32
30
|
|
|
33
31
|
Next i
|
|
34
32
|
|
1
コード修正
test
CHANGED
|
@@ -12,7 +12,7 @@
|
|
|
12
12
|
|
|
13
13
|
Dim wsB As WorkSheet
|
|
14
14
|
|
|
15
|
-
Set wsB = Worksheets("シート
|
|
15
|
+
Set wsB = Worksheets("シートB")
|
|
16
16
|
|
|
17
17
|
|
|
18
18
|
|