- ベストアンサー
エクセルでマクロのページカウンタ印刷表示
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
page1を印刷するページの変数とすると、次のようになります。 With ActiveSheet.PageSetup .CenterHeader = page1 & "ページ" End With
その他の回答 (1)
- o_chi_chi
- ベストアンサー率45% (131/287)
下記でファイルのページ設定のフッタに設定したのと 同様のことができます。 --- With Worksheets(1).PageSetup .CenterFooter = "&P" & "ページ" End With
お礼
ありがとうございます．参考になりました．
関連するQ&A
- エクセルマクロのページカウンタ
エクセル2002で，Sheetに表があります． 同じ表を使用します． データは１０件分入ります． １０件を超えると次の用紙に印刷をします． 印刷はマクロ命令で作成しています． 印刷の際，ページ番号をページの下にふりたいのです． １枚目には「- 1 -」，２枚目には「- ２ -」のように 印刷できるとありがたいのですが． どなたか，ご教授をよろしくお願いいたします．
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで、印刷設定をしたいのですが可能でしょうか？
エクセルのマクロで、印刷設定をしたいのですが可能でしょうか？ お世話になっています。 会社での作業を少しでも効率よく出来ないものかと、以下のようなことを考えています。 エクセル２００３を使用していますが、下記のような動作をするマクロを組むことは可能でしょうか？ よろしくご教授ください。 Sheet1は、入力用のシートとして使っています。 Sheet2は、Sheet1に入力された商品データなどから、必要な箇所のみ反映されるように設定しています。 このシートは、罫線などが存在し表形式になっており、全てを印刷するとＡ４用紙６枚分になります。 そこで、Sheet1（入力用のシート）のJ18セルに文字が入力された場合は、Sheet2（印刷用のシート）の１ページだけを印刷したく、Sheet1のj27セルに文字が入力された場合は、Sheet2の２ページまで・・・ Sheet1のJ36に文字が入力された場合は、Sheet2の3ページまでという風に印刷範囲を設定しなくても印刷出来るようにしたいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ★エクセル（EXCEL）の印刷領域とページ設定のコピー
マサオと申します。 エクセルのことについてですが、マクロで作成する会社のデータがあります。ただそのデータは、印刷領域とページ設定が合っていないので、作成後毎回設定しないといけません。 (1)マクロのデータベース（画面では見えない）がシート上にあるのでデータベースを含めたところまで印刷しようとするので、実際印刷するところに設定しないと行けない (2)ページ設定（用紙の向きと一枚で印刷するように設定する） そこで同じファイルに何枚もシートがあるので一枚だけ印刷領域とページ設定をすれば他のシートにコピーする方法は無いのでしょうか？ 教えてください。
- 締切済み
- オフィス系ソフト
- 教えて！エクセルでの印刷マクロ
シート１に下のようなデータベースがあります。 受付番号 氏名 〒 住所 １ ２ ３ データを１から順に入力して、入力内容が日によって違いがあるのですが、入力した分だけ印刷できるマクロがわかりません。 前日、１から１５まで入力して印刷、今日は１６から５０まで入力して、その分（１６～５０まで）を印刷（前日印刷した分は印刷しない）、次の日は５０件入力（印刷は５１～１００まで）となるようなマクロです。 どなたか、ご教授くださいませ。
- ベストアンサー
- オフィス系ソフト
- エクセルの印刷マクロについてご教示下さい。
現在、 シート１のＡ列に番号（ＮＯ１～２００）を、Ｂ列からＧ列までには各番号のデータを入れて 整理したものを、シート２で作成した印刷様式に、印刷マクロ（年賀状の宛名印刷を修正 したもの）を使って印刷を行っていますが、マクロを実行するとデータがない番号も印刷 （カラ印刷）していますので、困っています。 印刷データがない番号（例えばＢ列にデータがない）については、印刷しないようにする には、どのようなコードを入れればよいのでしょうか。 ＶＢＡをはじめたばかり（素人）ですので、よろしくお願いいたします。（エクセル2003使用）
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで印刷範囲の設定
エクセルのsheet1に表があります。 この表を印刷ボタンを押すだけで印刷できるようにしようと思います。データの最後の行までのページを印刷できるようにするマクロを教えてください。 ちなみに、今ある最後のデータより下の行もずっと罫線が引いてあります。 また、印刷だけだったら普通に 印刷＞ページの指定 でできるよと思われるかもしれませんが、その他の機能もマクロでつくっている最後の段階なのでマクロでお願いいたします。 分かりにくい文章ですがよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルで差込印刷：マクロとVLOOKUP
みなさん、こんにちは。 今回、マクロを作成する際にどうしてもうまくいかない部分がありまして とても困ってしまい、初めて会員登録し質問させていただいております。 皆様に御教授いただき真摯に勉強させていただきます。 どうぞよろしくお願いいたします。 （マクロ初心者で簡単なガイドブックやネットを参考に作成しています。） 今回エクセルのみを使った差込印刷のマクロを作成したいのですが、 まず、Sheet1に「5列×20行の表」があり、下記内容が入っています。 A列：行番号1～20 B列：会員番号 C列：所属名 D列：日付 E列：氏名 Sheet2に「手紙のフォーム」があり、 Sheet1の表の各項目を、VLOOKUPを使用し、 Sheet2の各位置へ差込むように設定をしました。 （VLOOKUPの検索値は、Sheet2の"R1"となるよう設定しています。） データを差し込んだSheet2の1ページを印刷したいです。 今回どうしてもうまくできないのが、手紙は毎回違う人へ違う人数分作成するので、 印刷時点で表に入力されている人の数だけを印刷したいため、 E列（氏名）が空白になったら停止する設定をしてみたのですが 下の自分で作ったマクロを実行すると、全ページが印刷されてしまいます。 Sub 差込印刷() 行 = 2 Dim 番号 As Integer For 番号 = 1 to 20 If Sheets("sheet1").Cells(行,5).Value = "" Then Exit for Sheets("sheet2").Range("R1").Value = 番号 Sheets("sheet2").PrintOut from:=1,To:=1 Next 番号 行 = 行 + 1 End Sub とても単純なミスをしているのだと思うのですが なにぶん初心者なためそれに気がつくことができません。 （For～Next等も見よう見まねで初めて使いました・・・） 月曜日までに分かるととても助かるのですが、 皆様どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELのマクロでデータをクリアしたい
仕事でエクセルのマクロを使ってリストを作る作業があるのですが、行き詰まりました。どなたか助けて下さい。お願いします。 表を作るのには二つのマクロを使っています。 【一つめのマクロ】 １.定形のウェブページからテキストをコピーする 内容は商品名や商品番号や数量です ２.エクセルの一番左上に貼り付ける ３.するとマクロが働いて貼り付けたデータはseet1に保存されて自動的に新しいシートが用意される ４．新しいシートに別のデータで１．２.を繰り返す この作業は９回まで繰り返し、一旦エクセルを閉じます。 次に再びエクセルで 【二つ目のマクロ】を立ち上げ、現れた『リスト作成』ボタンを押すと自動的に完成の表が作られます。 最初はこの方法で快調だったのですが、行き詰まりました。 ・行き詰まりその１ 一つめのマクロで九つまでコピーペーストするのをくり返して、二つ目のマクロを使うと今までのデータをすべて反映して表が作られてしまいます。うまく説明できないのですが、例えば 月曜にコピーペーストして表完成。 火曜に別のデータでコピーペーストして表を完成させると、必要ない月曜のデータも含めて表が出来てしまう。 これが一つめの困りです。 ・行き詰まりその２ 二つ目の困りは、ある日別の社員が一つめのマクロを使ってコピーペーストしていたところ、誤って9つ以上シートを作ってしまったらしく、作りすぎたシートを削除しました。 そうしたらフリーズしたので、再起動してやり直ししたら、そのマクロのファイルを開くたびに、上記の失敗が現れてそれ以上のデータが作ることができなくなりました。(2つめのマクロを動かすと失敗データが上書きされるのみです) 快調な時は表が完成すると、一つめのマクロでは何のデータも残りませんでした。 このような稚拙な説明しか出来ないのですが、どなたかご教授下さい
- 締切済み
- オフィス系ソフト
- Excelの印刷マクロについて
Excelにて、1枚のシートに他のブックの全てのシートの名称を記述し、選択したシート全てを印刷するマクロを組みたいと考えています。 数日前から考えているのですが、検討が付かず困っています。 何方かご教授願えれば幸いです。 よろしくお願いします。
- 締切済み
- その他MS Office製品
- Excelで表に任意データを入れたい
いつもお世話になっています Excelで悩んでいるところがあるので、ご教授をお願いします。 ExcelにシートA,シートBを用意 シートAに表を作成しまして （例) | 名前 | 備考 | |￣￣￣￣|￣￣￣￣| |￣￣￣￣|￣￣￣￣| |￣￣￣￣|￣￣￣￣| |￣￣￣￣|￣￣￣￣| この表は1ページで30行分の名前データが綺麗に収まる表です。 別シートBに百数件の名前だけのデータが入っています。 （A列に数十件、B列に数十件とデータは複数列にわたって入っています） ※今はこのデータの形式ですが、データの持ち方はある程度妥協できます シートBの任意の名前データだけ複数選択し、シートAの形を使って印刷をしたいと考えています。 この時、選択したデータ件数によってはシートAの表は複数枚に渡って印刷される必要があります。 これを実現したいのですが、どのようにすればよいでしょうか？ マクロでやるのか、はたまたマクロを使わずともできるのか・・・ 差し込み印刷のような感じでできないかと調べてはいるのですが、解決できそうな情報がみつかりません。 これを実現できる方法を分かる方がいましたら、お願いします。 マクロでという場合は、VBAの記述は初心者ですのでポイントだけでも詳しく教えて頂けると嬉しいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます．参考になりました．