Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12913 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7977】印刷のやり方 masa 03/9/25(木) 17:52 質問
【7980】Re:印刷のやり方 Kein 03/9/25(木) 18:09 回答
【7988】Re:印刷のやり方 masa 03/9/25(木) 22:15 お礼
【7992】Re:印刷のやり方 Kein 03/9/26(金) 0:35 回答
【8006】Re:印刷のやり方 masa 03/9/26(金) 12:39 お礼
【7977】印刷のやり方
質問  masa E-MAIL  - 03/9/25(木) 17:52 -
引用なし
パスワード
   マクロで計算式や値の評価をするコードは作ったのですが
印刷のコードが分かりません。
表はこんな感じ
　　　A　　　B　　　C　　　D　　 E　　 .....AA　　 AB　　　.....
1　　X1　　 X2　　 X3　　 X4　　X5　　 .....XX　　 XY　　　.....
2　　Y1　　 Y2　　 Y3　　 Y4　　Y5　　 .....YY　　 YZ　　　.....
3　　 .　　　.　　　.　　　.　　 .　　 .......　　　　　　 .....
4　　 .　　　.　　　.　　　.　　 .　　 .......　　　　　　 .....
5　　 .　　　.　　　.　　　.　　 .　　 .......　　　　　　 .....
.
.
.
セルの中に値がそれぞれ入っていて値が許容を超えたら計算が終わり
値もそこまでしかでません。（A1,B1,...と値が入っていきます。
行は測点を示します。そこで問題なのが全部の表に値が入ってない
ページが出てこのページは出力せずに値の入ってるもののみマクロ
を組んで印刷したいです。分かりにくい説明ですがご教授お願いします。
【7980】Re:印刷のやり方
回答  Kein  - 03/9/25(木) 18:09 -
引用なし
パスワード
   表の範囲などが曖昧なので、答えにくいのですが、ある列で空白("")かどうか
を判定すればその行全体を空白とみなすことができるなら、その列で空白以外の条件で
オートフィルターをかけ、空白が非表示になったままの状態で印刷すれば、可視セル
だけが印刷されます。マクロを作るなら、それを自動記録したコードを編集するぐらいで
できると思います。
【7988】Re:印刷のやり方
お礼  masa E-MAIL  - 03/9/25(木) 22:15 -
引用なし
パスワード
   ▼Kein さん：
>表の範囲などが曖昧なので、答えにくいのですが、ある列で空白("")かどうか
>を判定すればその行全体を空白とみなすことができるなら、その列で空白以外の条件で
>オートフィルターをかけ、空白が非表示になったままの状態で印刷すれば、可視セル
>だけが印刷されます。マクロを作るなら、それを自動記録したコードを編集するぐらいで
>できると思います。
Keinさんありがとうございます。
早速やってみようと思います。
(オートフィルターは使った事がないのではてさて...)
もし時間が空いてるのであればコードの内容を教えてください。
【7992】Re:印刷のやり方
回答  Kein  - 03/9/26(金) 0:35 -
引用なし
パスワード
   >コードの内容
オートフィルターをかけるには、1行目を項目にしないといけません。
もし項目でなかったら、A1:C1に項目を追加して・・というコードにするなら

Sub Test_Print()
　 If Range("A1").CurrentRegion.ListHeaderRows = 0 Then
　　　Rows(1).Insert xlShiftDown
　　　Range("A1:C1").Value = Array("Data1", "Data2", "Data3")
　 End If
　 On Error Resume Next
　 Range("A1", Range("A65536").End(xlUp)).AutoFilter 1, "<>"
　 'Range("A1", Range("C65536").End(xlUp)).PrintOut Copies:=1
　 ActiveSheet.AutoFilterMode = False
End Sub

のようになります。実際に印刷するときは、"'" を消して下さい。
【8006】Re:印刷のやり方
お礼  masa E-MAIL  - 03/9/26(金) 12:39 -
引用なし
パスワード
   Kein さんありがとうございます。
昨日挑戦してみたんですけど
やっぱり分かりませんでした。
今は別の仕事をやっているので今夜
やってみようと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12913 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free