Excel VBA質問箱 IV

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

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


27381 / 76732 ←次へ | 前へ→

【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

これでもいいわけです。
0 hits

【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 発言

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