Excelにてシート1にある、表内の数値を選択した状態で、実行ボタンをクリックすると
選択行の指定項目がシート2それぞれコピーされて単票を作成するマクロをつくっています。
そこで、下記の処理を追加したいと考えています。
シート1で選択した数値が3であれば、単票の印刷枚数は3枚 かつそれぞれ1/3、2/3、3/3 と書かれたものが各1枚(計3枚)9なら、1/9,2/9,3/9・・・・9/9と書かれたものが各1枚(計9枚)ページ番号とページ枚数を表記。
ヘッダー等ではなく、指定するセル(E14)に反映させたいです。
見た目が ○○/○○になるのであれば、ページ番号とページ枚数それぞれ1つずつセルを使用しても問題ありません。
セルの値だけの枚数を印刷するなどのコードはいくつか見つけることができましたが、
ページ枚数/総数 をセルに表記するとなるとわかりません。
実現可能な処理方法がありましたら、お力をお借りできませんでしょうか。
どうぞよろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
1/9 という場合は、同じものを、1/9 ~ 9/9 まで、印刷するということでしょうか?つまり、分母の数は任意だということでしょうか。
私は、そういう表記の習慣がないので、紛らわしいですね。もし、そうだったら、簡単なことだと思います。
ActiveSheet.PrintOut preview:=True, copies:=Range("I4").Value '←これはいらない
こうではなくて、Copy は、1でいいのですが、ループで9回繰り返せばよいのではありませんか。
TotalPages =Range("I4").Value
For i =1 to TotalNum
Range("E14").Value = i & "/" & TotalPages
ActiveSheet.PrintOut
Next
No.2
- 回答日時:
こんにちは
よく把握できてないのですけれど・・・
要は、最初に選択された数値が分母にあたる総数になるということでしょうか?
であれば、最初にその値を取得していることでしょうから、分母に関しては簡単に処理できるものと想像します。
その枚数を出力するのにどのような方法で行っているのかご質問文からは不明ですが、VBAのループ処理等で行っているのであれば、カウンタを1~「分母の数(=Max)」までインクリメントしながら処理するものとして、それをそのまま分子として利用すれば済むものと思います。
※ よくわからないので、勘違いをしていたならスルーしてください。
No.1
- 回答日時:
1枚に何行印刷できるのか把握してこれをNP行とすると
最終の印刷する最後までの行数をNAとする。
セルに表記する○○/○○は P/ALLとすると
ALL=int(NA/NP)+1
でいいじゃない?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAプルダウンの値を変えながら2枚ずつ印刷する方法? 4 2022/05/27 13:04
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- PDF vbaでpdfを開いて1ページ目のみ印刷する。 1 2022/11/12 12:35
- Microsoft ASP プログラミング関係で質問です。 3 2022/10/11 16:06
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Excel(エクセル) エクセルで 同じシートにある2ページに、おなじページをつけたい 3 2022/07/11 16:15
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセルでファイル保存時に複数シートのオートフィルタを全て解除したい 1 2023/05/10 13:23
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
印刷枚数をセルの数値としたい
Excel(エクセル)
-
Excelのマクロで印刷枚数をセルの値に設定していますがエラーになります。
Excel(エクセル)
-
-
4
印刷枚数を指定して印刷(印刷しないシートを含む場合)
Visual Basic(VBA)
-
5
【Excel】セルの値を印刷枚数に設定orセルの数値通りに繰り返し表示したい
Excel(エクセル)
-
6
エクセルで印刷部数をセルに表示させたい
その他(Microsoft Office)
-
7
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
8
数字をカウントしながらエクセル印刷したい
Excel(エクセル)
-
9
エクセル VBA 条件つきの印刷
Excel(エクセル)
-
10
エクセルで謎の2枚目が印刷される
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでチェックボックスを...
-
Excel マクロ 選択セルの値の枚...
-
EXCEL VBA 印刷時にメッセー...
-
VBAを利用して宛名ラベルを作り...
-
Excelで度数分布表の作り方
-
Excelの表で、行と列の見出しを...
-
VBA Private Sub Worksheet_Cha...
-
EXCEL97VBAにおける、TREND(ワ...
-
PowerPointの表内のカンマ
-
EXCELでタイトル行と一番下の行...
-
【VBA】PDF出力に任意のファイ...
-
Excelのテーブル上のセルの保護...
-
Wordの差し込み印刷で空白行が...
-
エクセルの計算式でコンマを付...
-
エクセルでセル内改行の1行目...
-
エクセルで、50銭以下切捨て...
-
エクセルでハイパーリンクのコピー
-
16桁以上の「0」に変換されてし...
-
エクセルでオートサムを使った...
-
エクセルで「-3E+06」と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA Private Sub Worksheet_Cha...
-
エクセルでチェックボックスを...
-
Excel マクロ 選択セルの値の枚...
-
VBAを利用して宛名ラベルを作り...
-
EXCEL VBA 印刷時にメッセー...
-
エクセル vbaのリストボックス...
-
CSVデータを任意の様式に入れる...
-
Excelの表で、行と列の見出しを...
-
Excel vbaのテキストボックスの...
-
EXCEL97VBAにおける、TREND(ワ...
-
見積書提出一覧表
-
Excel ワークシート関数で参照...
-
PowerPointの表内のカンマ
-
【VBA】PDF出力に任意のファイ...
-
EXCELでタイトル行と一番下の行...
-
エクセルの計算式でコンマを付...
-
LINEのこの空白ってどんな意味...
-
エクセルでleft関数の結果が表...
-
名簿の漢字名を関数で半角カナ...
-
エクセルでオートサムを使った...
おすすめ情報
おっしゃる通り分母は選択セルの値のため取得はできています。
ただ、指定枚数分の印刷については現時点では下記のコードにて処理をしており、
シート2に作ったひな形にシート1の内容が転記されて、ただ指定枚数分を印刷することまでしかできておりません。
ActiveSheet.PrintOut preview:=True, copies:=Range("I4").Value
(セルI4に選択セルの値が転記されるようにしています。)
当初の質問で記載したように、メインの内容(名前やNO、数量など)は同じ帳票を指定枚数出力するが、セル内でページ番号を振りたいのであれば上記のコードでは対応できないのでしょうか。