Excel VBA質問箱 IV

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

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


40758 / 76732 ←次へ | 前へ→

【41065】Re:セルの値が空白のときは印刷しない
回答  Kein  - 06/7/28(金) 14:26 -

引用なし
パスワード
   "空白を除くセル数"の数え方は、いろいろありますが、例えば

Sub MyPrint()
  Dim Cnt As Integer

  Cnt = 10 - WorksheetFunction _
  .CountBlank(Worksheets("A").Range("A1:A10"))
  If Cnt = 0 Then Exit Sub
  Worksheets("B").Range("A1:G3").PrintOut Copies:=Cnt
End Sub

とか Cnt に代入する部分のワークシート関数を

 Cnt = WorksheetFunction _
 .CountA(Worksheets("A").Range("A1:A10"))

とするとか、SpecialCellsメソッドを使って

Sub MyPrint2()
  Dim Cnt As Integer

  On Error Resume Next
  Cnt = Worksheets("A").Range("A1:A10") _
  .SpecialCells(2).Count
  On Error GoTo 0
  If Err.Number <> 0 Then Exit Sub
  Worksheets("B").Range("A1:G3").PrintOut Copies:=Cnt
End Sub

などとすることも出来ます。

0 hits

【41052】セルの値が空白のときは印刷しない よん 06/7/28(金) 13:18 質問
【41057】Re:セルの値が空白のときは印刷しない ハト 06/7/28(金) 13:46 回答
【41071】Re:セルの値が空白のときは印刷しない よん 06/7/28(金) 15:24 お礼
【41087】Re:セルの値が空白のときは印刷しない ハト 06/7/28(金) 19:02 発言
【41126】Re:セルの値が空白のときは印刷しない よん 06/7/31(月) 14:16 お礼
【41065】Re:セルの値が空白のときは印刷しない Kein 06/7/28(金) 14:26 回答
【41073】Re:セルの値が空白のときは印刷しない よん 06/7/28(金) 16:14 お礼
【41080】Re:セルの値が空白のときは印刷しない Kein 06/7/28(金) 17:24 発言
【41083】Re:セルの値が空白のときは印刷しない よん 06/7/28(金) 17:56 お礼

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