![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。特にものすごく怒られたときとか、とんでもない損害を与えてしまったときとか…。
-
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
印刷枚数をセルの数値としたい
Excel(エクセル)
-
Excelのマクロで印刷枚数をセルの値に設定していますがエラーになります。
Excel(エクセル)
-
-
4
印刷枚数を指定して印刷(印刷しないシートを含む場合)
Visual Basic(VBA)
-
5
【Excel】セルの値を印刷枚数に設定orセルの数値通りに繰り返し表示したい
Excel(エクセル)
-
6
数字をカウントしながらエクセル印刷したい
Excel(エクセル)
-
7
エクセルで印刷部数をセルに表示させたい
その他(Microsoft Office)
-
8
Excelのマクロで指定したセルを枚数分印刷をしたいです。
Excel(エクセル)
-
9
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
10
エクセルで謎の2枚目が印刷される
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでチェックボックスを...
-
エクセル vbaのリストボックス...
-
VBA Private Sub Worksheet_Cha...
-
Excelで度数分布表の作り方
-
Excel vbaのテキストボックスの...
-
PowerPointの表内のカンマ
-
エクセル 数式の無効化
-
【VBA】PDF出力に任意のファイ...
-
エクセルでleft関数の結果が表...
-
エクセルでセル内改行の1行目...
-
EXCELでタイトル行と一番下の行...
-
エクセルの計算式でコンマを付...
-
Excelのテーブル上のセルの保護...
-
LINEのこの空白ってどんな意味...
-
名簿の漢字名を関数で半角カナ...
-
【マクロ】アクティブセルの、...
-
#VALUE!を表示させないようにし...
-
エクセル 合計値に一番近い件数...
-
エクセルで0.1という数字を%表...
-
A1 B1 A2 B2 A3 B3 の順に入力...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでチェックボックスを...
-
Excel マクロ 選択セルの値の枚...
-
VBAを利用して宛名ラベルを作り...
-
エクセル vbaのリストボックス...
-
EXCEL VBA 印刷時にメッセー...
-
Excelで度数分布表の作り方
-
CSVデータを任意の様式に入れる...
-
VBA Private Sub Worksheet_Cha...
-
EXCEL97VBAにおける、TREND(ワ...
-
Excel ワークシート関数で参照...
-
エクセルについて
-
PowerPointの表内のカンマ
-
【VBA】PDF出力に任意のファイ...
-
EXCELでタイトル行と一番下の行...
-
LINEのこの空白ってどんな意味...
-
Wordの差し込み印刷で空白行が...
-
エクセルでleft関数の結果が表...
-
エクセルの計算式でコンマを付...
-
エクセルでオートサムを使った...
-
Excelのテーブル上のセルの保護...
おすすめ情報
おっしゃる通り分母は選択セルの値のため取得はできています。
ただ、指定枚数分の印刷については現時点では下記のコードにて処理をしており、
シート2に作ったひな形にシート1の内容が転記されて、ただ指定枚数分を印刷することまでしかできておりません。
ActiveSheet.PrintOut preview:=True, copies:=Range("I4").Value
(セルI4に選択セルの値が転記されるようにしています。)
当初の質問で記載したように、メインの内容(名前やNO、数量など)は同じ帳票を指定枚数出力するが、セル内でページ番号を振りたいのであれば上記のコードでは対応できないのでしょうか。