[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『1つのシートを複数枚印刷する際、ページをカウントさせたい』(みかん)
1つのシートを複数枚印刷する際、ページをカウントさせたいです。
例えば50枚印刷させるとして、
「1/50、2/50…50/50」となるようにフッターを変える方法はありますか?
< 使用 Excel:Excel2013、使用 OS:Windows7 >
私も部数で出したいと思ったことありますが 標準ではできなかった記憶が、、、 https://sp.okwave.jp/qa/q2909328.html
VBAになりますが、こちらでどうですか?
(稲葉) 2019/03/20(水) 07:36
Dim n As Variant, i As Integer
n = InputBox
If n = "50" Then Exit Sub
For i = 1 To n
ActiveSheet.PageSetup.CenterFooter = i
ActiveSheet.PrintOut
Next
End Sub
という事でしょうか?ー
(みかん) 2019/03/20(水) 08:11
取り敢えず、そのまま動かしてみました? 少なくとも n = "50" これは誤りです (稲葉) 2019/03/20(水) 08:23
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.