• 締切済み

エクセルVBA

エクセル2003です エクセルの印刷するマクロをおしえてください *A列からQ列までで行は1～300で伸縮します 　最終行をA5より下のA列のセルに値が連続で入っている最後が最終印刷範囲行とします *罫線ありです *1ページを30行とします *2ページ目からの先頭行に（A4：Q4）を印刷に入れたい マクロで印刷設定をした事がないのでさっぱりわかりません *ヘッダーとフッダーも可能でしょうか? 出来れば説明付きでよろしくお願いします

みんなの回答

  • tsubuyuki
  • ベストアンサー率45% (699/1545)
回答No.1

ツール→マクロ→新しいマクロの記録　を選択し、 マクロに適宜名前をつけて、ＯＫを押す。 ファイル→ページ設定　でダイアログを出し、 シートタブで印刷範囲を設定、行のタイトルが必要なら設定する。 更に必要なら、ヘッダー／フッタータブで編集する。 さらに必要であれば、用紙サイズ・用紙の向き・上下左右余白など設定する。 ５行目より下に、３０行ごとに改ページを入れる。 印刷してみる。 ツール→マクロ→記録の終了　を選択し、 マクロの記録を終了する。 ツール→マクロ→Visual Basic Editor　を選択し、ＶＢＥを起動する。 該当ブックの標準モジュール→Module1とダブルクリックすると 記録されたコードを確認できるので、適宜編集する。 エクセルに戻り、ツール→マクロ→マクロ　でマクロの一覧が表示されるので、 動かしたいマクロを選択して実行ボタンを押す。 以上で、マクロが動きますので、頑張ってください。 まさか、他人に「無料でゼロから作ってくれ」と言いたいのではないですよね？

KICHIMAROBON
質問者

お礼

ありがとうございます がんばってみます

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルVBA

    エクセル2003です エクセルの印刷レビュ－までのマクロをおしえてください *A列からQ列までで行は1～150で伸縮します 　最終行をA5より下のA列のセルに値が連続で入っている最後が最終印刷範囲行とします *罫線ありです *1ページを30行とします *2ページ目からの先頭行に（A7：Q7）を印刷に入れたい *ヘッダーは右上に日付 *フッダーは右下にページ 現状では罫線で最終行が決まってしまいます 現状コード Sub 印刷() With ActiveSheet.PageSetup .PrintTitleRows = "$7:$7" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = Range("A1:Q1").Resize(Range("A" & Rows.Count).End(xlUp).Row).Address With ActiveSheet.PageSetup .RightHeader = "&""ＭＳ Ｐゴシック,太字 斜体""&14&D" .RightFooter = "&""ＭＳ Ｐゴシック,太字 斜体""&14&P/&N" .PaperSize = xlPaperA4 .Zoom = 75 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintPreview End Sub 罫線ではなくA列のセルに文字列等が入っている行を最終行にしたいのですが 教えて頂けないでしょうか？ 出来れば説明付きでよろしくお願いします

  • EXCELマクロ　印刷範囲A1～Q列の最終行の罫線無視

    EXCELマクロで教えてください。 印刷範囲はA1～Q列の最終行です。 罫線は６７行まで引いていますが、印刷時には無視します。 なので、Q列のデータが10行までしかなかったら、 印刷範囲は、A1～Q10 Q列のデータが67行まであったら、 印刷範囲は、A1～Q67 です、よろしく教えてください。

  • excel印刷で改頁をする時に罫線を引きたいのですが、良い方法ありますか？

    excel印刷で２０枚ほど印刷しています。 大分類・中分類・明細と言った感じの一覧表です。 大分類がＡ列で１００行ほどを枠線で囲っています。中分類がＢ列で２０行程を枠線で囲ってタイトルを入れています。 明細は一行づつで、罫線で囲っています。 セル結合はしていません。 そこで、印刷すると最終行の大分類・中分類で、下部線が印刷されない頁が出てきます。明細列は印刷されます。 （罫線自体excelに入ってないですから当然ですが。） 印刷する為に、罫線を入力すると画面での見た目が良くない為入れたくないです。 そこで、改頁前の最終行に罫線を印刷するような設定をしたいのですが、良い方法は無いでしょうか？ ＜出来ればマクロは使いたくないです。＞ 宜しくお願い致します。

  • 【エクセルの行と列が隠れている】

    こんにちは。 エクセルの「行１」や「列Ａ」全体が隠れてしまっています。隠れている箇所に文字がかいてあるので、印刷すると文字が現れます。その隠れているところに文字を追加したり、罫線をつけたりしたいです。 右クリックで「再表示」「非表示」という操作ができることは知っています。「ヘッダーフッター」や「ページ設定」の「シート」の「印刷タイトル」には何も入力されていません。 最初の行と列の再表示をする方法を教えていただけないでしょうか。よろしくお願いいたします。

  • EXCEL VBA----ヘッダーの設定

    ヘッダーにセルA5の値を表示させたい時は ActiveSheet.PageSetup.LeftHeader = Range("A5") でいいと思うのですが、 複数ページあり、ページ番号のようにページごとに違うヘッダーの値を表示させることはできますでしょうか？ 行ないたいのは、 １ページ目→Ａ５の値 ２ページ目が８行目で始まる場合→Ａ１２の値（ページ先頭行から５行目） ３ページ目が１５行目で始まる場合→Ａ１９の値（ページ先頭行から５行目） ・ ・ ・ 総ページ数は一定ではありません。 よろしくお願いします。

  • エクセルの罫線について

    エクセルを使用してある文字列を読み込んで表を作成し、印刷時に最終行に罫線を入れてます。 毎回この作業がわずらわしいのですが、読み込んだ文字列の最終行に罫線を入れる方法ってあるのでしょうか？

  • エクセルの罫線の印刷について

    エクセルで何行にも及ぶ表を作りました。列には金額、単価・・・・のような表です。この表を印刷した際に各ページのヘッダーは設定出きるのですが、各ページの表の最後の行の下線が印刷されません。ページをまたぐ場合の最終行の下線はどうやって設定するのですか？ちょっと困ってます。お願いします

  • マクロで最終行を取得した列とは別の列の書式設定をしたい

    エクセルのマクロの組み方を教えて下さい A列にデータが入っているとします たとえばA8:A50までとします(変動します) A列の最終行50行目を取得したら、 S列8行目から、S列の、A列で取得した最終行目まで罫線を引きたいのです (開始が8行目は決定しています) どうしてもS列すべてに罫線が引かれてしまい、困っています 罫線の設定はこちらで組めるので、そこまでの例を出していただきたいのですが…… 今日昼まで仕上げなければならないので、回答よろしくお願いします

  • エクセルVBAについて

    エクセルVBAについての質問です。A１、B1と順に入力していき、最終 F１列にカーソルがいったときに（F1を空欄のまま）エンターキーを押すと次の行のD２にカーソルが飛ぶ、そしてD2、E2に入力をして、G列にカーソルを動かしエンターキーで次の行のA列にカーソルが移動する、こんな操作をしたいのですが。つまりF列にカーソルがいったらカーソルは次の行のD列に飛び、G列にカーソルがいったら次の行の先頭つまりA列にカーソルが移動するように。VBA初心者でもつくれるかどうか、よろしくお願いします。

  • エクセルの固定行をヘッダー代わりにするには

    長いエクセルの表を印刷すると、先頭行に項目を入力しても２ページ目以降では、そのまま続いて印刷されてしまいます。 先頭の行あるいは、固定行を ヘッダー代わりに使用して印刷する方法ってあるでしょうか？ 宜しくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する