エクセルの学校：全文検索：Hyper Estraier：フォーマット　自動　印刷

Results of 1 - 1 of about 103 for フォーマット　自動　印刷 (0.012 sec.)

フォーマット (1423), 自動 (14517), 印刷 (5708)

[[20040517093308]]: #score: 8138; @digest: 78cc180478862354bc0ca6f9834cc83e; @id: 6666; @mdate: 2004-05-18T08:01:23Z; @size: 2690; @type: text/plain; #keywords: 刷範 (6220), ペpr (5090), 動2 (3175), ク3 (2476), ウ（ (2382), ま入 (2374), なウ (2246), 印刷 (2163), printarea (2149), 行単 (2063), ドウ (1885), 下行 (1823), 最下 (1762), pagesetup (1682), beforeprint (1615), ウィ (1599), ィン (1599), 中央 (1144), トウ (1126), b65536 (1120), 、印 (1088), ウ） (963), ンド (936), 範囲 (859), ロジ (855), レビ (791), で固 (775), ビュ (674), 固定 (654), に指 (647), 設定 (593), 囲が (590); 『入力している行を印刷範囲に設定』（ゆかり）
[印刷範囲の設定] エクセルで印刷範囲の設定ってあると思いますが、その設定を自動でいま入力しているセルに指定ってできますか?? 今使用しているシートは横『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) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200405/20040517093308.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ