コードを一つにまとめたい

Sub PDF_指定したワークシート()
Dim sh As Worksheet
Dim sh2 As Worksheet

Set sh = Worksheets(1)
Set sh2 = Worksheets(2)


sh.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sh.Name

sh2.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sh2.Name

End Sub


このｺｰﾄﾞ一つにまとめて処理したいのですが。
わかりません。

質問者からの補足コメント

• 

  dim box as vairant
  box = array(1,3)
  for i = 1 to ubound(box)
  この場合だとなぜかworksheets(1)だけしか
  PDFになりません

  No.1の回答に寄せられた補足コメントです。 補足日時：2018/07/18 15:21

• 

  Public Sub PDF_指定したワークシート()
  ExportPdf(Worksheets(1))
  ExportPdf(Worksheets(2))
  End Sub
  
  Private Sub ExportPdf(ByRef ws As Worksheet)
  どこに貼り付けたらいいかわからない

  No.2の回答に寄せられた補足コメントです。 補足日時：2018/07/18 16:31

No.3 ベストアンサー 回答者： siffon9 回答日時： 2018/07/18 16:18

No.1の補足

> box = array(1,3)
> for i = 1 to ubound(box)
> この場合だとなぜかworksheets(1)だけしか

ubound(box)の値は1です
だから
for i = 1 to 1 となって、worksheets(1)だけしか対象になりません

もしかして、こうしたいのでしょうか。

box = array(1,3)
For i = LBound(box) To UBound(box)
　　Worksheets(box(i)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Worksheets(box(i)).Name
Next

この回答へのお礼

ありがとうございました
なかなか簡単そうで難しいです。
ありがとうございました

お礼日時：2018/07/18 16:27

No.4 回答者： fujillin 回答日時： 2018/07/18 16:22

No1です

＞dim box as vairant
＞box = array(1,3)
＞for i = 1 to ubound(box)
＞この場合だとなぜかworksheets(1)だけしか

ご自分で書いたものをトレースしてみればわかるはずと思います。
・まず1行目でエラーが出ます
・ループ内の記述が不明なのでわかりませんが、常識的にはworksheets(1)ではなくworksheets(3)が出力されるのではないですか？
・「worksheets(1)だけ」というのであれば、ループ内の記述をworksheets(i)としている？（この記述だと、まったく違うシートが出力される可能性があります)

ヒント：LBound(box)を調べてみればわかるかと

この回答へのお礼

ありがとうございました

お礼日時：2018/07/18 16:32

No.2 回答者： naktak 回答日時： 2018/07/18 15:22

こういうこと？

Public Sub PDF_指定したワークシート()
ExportPdf(Worksheets(1))
ExportPdf(Worksheets(2))
End Sub

Private Sub ExportPdf(ByRef ws As Worksheet)
ws.ExportAsFixedFormat
Type:=xlTypePDF,
Filename:=ws.Name
End Sub

この回答へのお礼

有難うございました。

お礼日時：2018/07/18 16:32

No.1 回答者： fujillin 回答日時： 2018/07/18 12:22

ご質問の意味がよくわからないけれど・・・

For i = 1 To 2
Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Worksheets(i).Name
Next

この回答へのお礼

有難うございました。

お礼日時：2018/07/18 16:32