[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『入力している行を印刷範囲に設定』(ゆかり)
[印刷範囲の設定]
エクセルで印刷範囲の設定ってあると思いますが、その設定を自動でいま入力しているセルに指定ってできますか??
今使用しているシートは横『H』で固定なのですが、縦は入力するごとに『1行目』、『2行目』・・・といった形に増えていきます。表示は改ページプレビューでみています。わかるかたいましたらおしえてください。
>その設定を自動でいま入力しているセルに指定ってできますか??
マクロを使えば出来ます。
(INA)
INAさん回答ありがとうございます。私はマクロ初心者ですがもしよろしければ
おしえていただけますか??
(ゆかり)
シートのレイアウトと、印刷範囲をもう少し詳しくお教え頂けますか?
印刷する列は、H列のみなのでしょうか?
>いま入力しているセルに指定 というのは、印刷するのは 1セルのみですか?
(INA)
印刷はAからH列までです。
いま入力しているセルに指定 というのは1セルではなく今まで入力してきたセルすべてです。
列はAからH列まで固定で、増えていく印刷範囲は1行単位です。
A−H列を選択して、印刷範囲に設定しておけばよいのではないでしょうか?
そうすれば、最下行にあわせて最大ページ数は決まりますけど・・?
(INA)
ありがとうございます。しかし、シートのフォーマットとして、No1〜No500まですで項目番号が記載されています。その中でNo253にデータを入力した際に印刷範囲がそこまでなるようにしたいのですが??
わかりづらくてすみません。
>列はAからH列まで固定で、増えていく印刷範囲は1行単位です。このなかでセル番地A1にはNo1〜No500とすでに入力されています。で、B列に文字を入力したときには
印刷範囲がそこまでなるようにしたいのですが!?
B列の最下行に入力されるたびに、印刷範囲が設定されるのと、 印刷(プレビュー)の前に、印刷範囲が設定されるのでは どちらがいいですか? 後者の場合です。
1.ALT+F11キーで、VBEを起動 2.プロジェクトウィンドウのThisWorkBook を Wクリック 3.中央の真っ白なウィンドウ(コードウィンドウ)に以下のコードをコピペ Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim r As Long With Worksheets("Sheet1") r = .Range("B65536").End(xlUp).Row .PageSetup.PrintArea = "A1:H" & r End With End Sub
(INA)
すごいですね。
一応前者のB列の最下行に入力されるたびに、印刷範囲が設定されるもおしえていただいてよろしいですか???
どうぞ。
1.ALT+F11キーで、VBEを起動 2.プロジェクトウィンドウのSheet1 を Wクリック 3.中央の真っ白なウィンドウ(コードウィンドウ)に以下のコードをコピペ
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("B65536").End(xlUp).Address Then PageSetup.PrintArea = "A1:H" & Target.Row End If End Sub
(INA)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.