Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4741 / 13646 ツリー ←次へ | 前へ→

【52794】空白だと印刷しないよぉに。。 mak 07/12/4(火) 12:32 質問[未読]
【52815】Re:空白だと印刷しないよぉに。。 n 07/12/4(火) 20:09 発言[未読]
【52857】Re:空白だと印刷しないよぉに。。 mak 07/12/6(木) 15:44 質問[未読]
【52858】Re:空白だと印刷しないよぉに。。 n 07/12/6(木) 15:55 発言[未読]
【54671】Re:空白だと印刷しないよぉに。。 KIMI 08/3/25(火) 19:26 質問[未読]
【54672】Re:空白だと印刷しないよぉに。。 n 08/3/25(火) 20:45 発言[未読]
【54685】Re:空白だと印刷しないよぉに。。 KIMI 08/3/26(水) 10:29 お礼[未読]
【54691】Re:空白だと印刷しないよぉに。。 VBWASURETA 08/3/26(水) 13:02 発言[未読]
【54765】Re:空白だと印刷しないよぉに。。 KIMI 08/3/28(金) 16:33 発言[未読]
【54808】Re:空白だと印刷しないよぉに。。 VBWASURETA 08/3/31(月) 11:09 発言[未読]

【52794】空白だと印刷しないよぉに。。
質問  mak  - 07/12/4(火) 12:32 -

引用なし
パスワード
   AAAのシートで、、1ページが23行
5ページくらいまで枠を作ってあって、、
印刷ボタンを押すと
2ページ目からが空白だと印刷しない・・・
みたいな、、

そぉするにはどぉすればょぃですか??
教えてやってください。。
お願いします。

【52815】Re:空白だと印刷しないよぉに。。
発言  n  - 07/12/4(火) 20:09 -

引用なし
パスワード
   こんにちは。

空白の判定をどの列のどの行でおこないますか?

例えば、A列の1、24、47、70、93 行目が空白だったらそのページは印刷しないとします。
印刷範囲外の列を、どこでもいいので作業列としましょう。

その作業列の1行目から115行目まで

=INDIRECT("A"&FLOOR(ROW()-1,23)+1)<>""

という数式をコピーしましょう。
あとは、その作業列だけを選択して、オートフィルターをかけて TRUE だけを印刷すればょぃです。

2、25、48、71、94 行目を見るなら
=INDIRECT("A"&FLOOR(ROW()-1,23)+2)<>""
です。

【52857】Re:空白だと印刷しないよぉに。。
質問  mak  - 07/12/6(木) 15:44 -

引用なし
パスワード
   n さん こんにちは。

その空白だと印刷しないよぉにするのをマクロ内でできるようにしたいのですが、、
どぉすればょぃですか??

【52858】Re:空白だと印刷しないよぉに。。
発言  n  - 07/12/6(木) 15:55 -

引用なし
パスワード
   ▼mak さん:
こんにちは。
【52815】のレスで私が書いた作業を、
メニュー[ツール]-[マクロ]-[新しいマクロの記録]機能でマクロ自動記録を録り、
それを元に、コードを理解しながら修正していくとょぃです。

【54671】Re:空白だと印刷しないよぉに。。
質問  KIMI  - 08/3/25(火) 19:26 -

引用なし
パスワード
   いろいろと条件に合う掲示を探していて、目的に近い投稿だったので、
自分なりに変換して使用させていただきました。
しかしどうもうまくいきません。
上記の”=INDIRECT”の式ですが行のタイトルが入っていると
できないのでしょうか?

初歩的な質問ですみません。

【54672】Re:空白だと印刷しないよぉに。。
発言  n  - 08/3/25(火) 20:45 -

引用なし
パスワード
   こんにちは。
>AAAのシートで、、1ページが23行
>5ページくらいまで枠を作ってあって、、
...というような条件を提示し、新規スレッドでご質問し直したほうが、
私のようなひねくれものではない方から適切なアドバイスが得られると思いますよ。

INDIRECT式は一例です。
それより、作業列を使わずにVBAで印刷範囲を設定するというのが真っ当な手法だと思います。


一応、本スレッドの条件に当て嵌めると
>2、25、48、71、94 行目を見るなら
ここは、タイトル行を1行設定している場合、1ページ23行として
2、24、46、68、、、と22行刻みで見ていく事になります。
そしてタイトル行分ずれますから
=INDIRECT("A"&FLOOR(ROW()-2,22)+2)<>""
です。

でもかなりわかりにくいと反省しましたので、例えばZ列を作業列にするなら
Z2 に
=IF(MOD(ROW(),22)=2,A2<>"",Z1)
のような式で、以下必要行数分コピーで良いです。


また、枠の作り方次第ですが、タイトル行が別に設定してあるのですから、
A列かどこかの最終セルで印刷範囲が判断できるのなら

Sub try()
  Dim mx As Long
  
  mx = Range("A65536").End(xlUp).Row
  mx = WorksheetFunction.Ceiling(mx - 1, 22) + 1
  ActiveSheet.PageSetup.PrintArea = "A1:J" & mx
End Sub

これでもいいわけです。

【54685】Re:空白だと印刷しないよぉに。。
お礼  KIMI  - 08/3/26(水) 10:29 -

引用なし
パスワード
   ありがとうございます。
無事解決いたしましたm(__)m

【54691】Re:空白だと印刷しないよぉに。。
発言  VBWASURETA  - 08/3/26(水) 13:02 -

引用なし
パスワード
   ▼KIMI さん:
横から失礼します。

あの?最初の方のハンドルネームから変わってますが同じ方でしょうか?
あまりハンドルネームを変えられると解決してないのでは?
と思ってしまうので、変えない方が良いですよ?

【54765】Re:空白だと印刷しないよぉに。。
発言  KIMI  - 08/3/28(金) 16:33 -

引用なし
パスワード
   初期投稿された方とは関係ございません。
私の初投稿で述べさせていただいてますが、
自分のやりたいことを調べていたら、
ほぼ同じようなことが載っていたもので、
内容を読んで引っかかったところをご質問しました。

過去ログにある質問を再度投稿するのは失礼だと思いましたので。

【54808】Re:空白だと印刷しないよぉに。。
発言  VBWASURETA  - 08/3/31(月) 11:09 -

引用なし
パスワード
   ▼KIMI さん:
おはようございます。

すみません途中見てませんでした。
ということは最初に質問された方は解決されたのか不明なんですね・・・

4741 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free