エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150312182654]]: #score: 9211; @digest: e39ae3a2afe74e73d6f348fdbcf78631; @id: 67487; @mdate: 2015-03-12T11:29:59Z; @size: 2084; @type: text/plain; #keywords: 日始 (7063), 時特 (6466), ス型 (4434), ジ目 (4285), 刷デ (3548), ー型 (3324), printout (2255), 印刷 (2028), ば印 (1721), from (1599), 刷シ (1501), ペー (1449), 刷範 (1036), で印 (921), ージ (894), 曜日 (873), activesheet (861), 象シ (815), ト" (705), enableevents (697), 刷す (662), ル（ (563), 月曜 (547), ば1 (533), ーチ (463), カレ (451), windows8 (414), elseif (405), 最初 (376), 入力 (375), 日付 (356), マク (318); 『印刷時特定のセルに入力があればそのページすべて印刷し、入力がなければ印刷しない』（あーちゃん）
曜日の固定されたボックス型のカレンダー型（月曜日始まり）の表を作成していますが、1日の工程などを書き込むスペースが大きいため全部で4ページに渡ります。ただ、土曜日始まりで大の月ならば4ページの印刷ですが日曜日始まりの2月などでしたら3ページの印刷で済みます。これを自動で印刷範囲を変えるマクロはできるのでしょうか。たとえば1ページ目ならば1ページ目の最期の日付は絶対に入力されているのでそのセル（L8)に入力があれば印刷する。 2ページ目は最初の日付のセル（B10）は入力されるので印刷する。 3ページ目は最初の日付のセル（B16）は入力されるので印刷する。 4ページ目は最初の日付のセル（B22）に入力せれていれば 4ページ目すべてを印刷するが、入力されていなければ印刷しない。このような方法のマクロは可能ですか。それとも、もっと簡単なアプローチはありますでしょうか。＜使用 Excel:Excel2007、使用 OS:Windows8 ＞ ---- 数式で印刷範囲を設定するというような方法も出来そうですが、 http://miyahorinn.fc2web.com/tips/s_07_10.html マクロでやるとしてこんな感じでしょうか。 ThisWorkbook の下においてください。 Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name <> "印刷シート" Then Exit Sub '// 実際の対象シート名にしてください Cancel = True If Range("L8").Value = "" Then MsgBox "印刷データがありません。" Exit Sub End If Application.EnableEvents = False If Range("B22").Value <> "" Then ActiveSheet.PrintOut From:=1, To:=4 ElseIf Range("B16").Value <> "" Then ActiveSheet.PrintOut From:=1, To:=3 ElseIf Range("B10").Value <> "" Then ActiveSheet.PrintOut From:=1, To:=2 Else ActiveSheet.PrintOut From:=1, To:=1 End If Application.EnableEvents = True End Sub （Mook） 2015/03/12(木) 19:55 ---- Mookさん教えていただきありがとうございます。マクロは便利ですが、コードの組み立てが本当に難しいです。今回のマクロでページの印刷の節約ができます。ありがとうございました。（あーちゃん） 2015/03/12(木) 20:29 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150312182654.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ