回答編集履歴
2
書式改善
answer
CHANGED
|
@@ -53,4 +53,4 @@
|
|
|
53
53
|
ActiveSheet.ExportAsFixedFormat Type:=0, Filename:="C:\test\" & i & "00.pdf"
|
|
54
54
|
Next
|
|
55
55
|
End Sub
|
|
56
|
-
``
|
|
56
|
+
```
|
1
コード追記
answer
CHANGED
|
@@ -33,5 +33,24 @@
|
|
|
33
33
|
ActiveSheet.ExportAsFixedFormat Type:=0, Filename:="C:\test\300.pdf"
|
|
34
34
|
|
|
35
35
|
End Sub
|
|
36
|
+
```
|
|
36
37
|
|
|
38
|
+
おまけ
|
|
39
|
+
配列とForループでシンプルにした例
|
|
40
|
+
|
|
41
|
+
```vba
|
|
42
|
+
Public Sub test()
|
|
43
|
+
Dim WSs(1 To 3) As String
|
|
44
|
+
|
|
45
|
+
Dim ws As Worksheet, i As Long
|
|
46
|
+
For Each ws In Sheets
|
|
47
|
+
i = Left(ws.Name, 1)
|
|
48
|
+
WSs(i) = WSs(i) & " " & ws.Name
|
|
49
|
+
Next
|
|
50
|
+
|
|
51
|
+
For i = 1 To UBound(WSs)
|
|
52
|
+
Sheets(Split(Trim(WSs(i)))).Select
|
|
53
|
+
ActiveSheet.ExportAsFixedFormat Type:=0, Filename:="C:\test\" & i & "00.pdf"
|
|
54
|
+
Next
|
|
55
|
+
End Sub
|
|
37
|
-
``
|
|
56
|
+
``
|