Excel VBA質問箱 IV

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

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


63038 / 76738 ←次へ | 前へ→

【18299】Re:行数が不定の集計処理について
質問  ackkn  - 04/9/20(月) 23:42 -

引用なし
パスワード
   ▼Kein さん:
Kein さん、こんばんは。
>クリックする行を「3行目」に固定するとにします。
>それから、データの有無をチェックする列は「B列」で良いのですか ?
>他の列の方が良いなら、適当にそちらで変更して下さい。いちおう・・
>
>Sub R_Hidden_Change()
>  If ActiveCell.Row <> 3 Then Exit Sub
>  'On Error Resume Next
>  If Hck = False Then
>   If WorksheetFunction.CountA(Range("B4:B65536")) = 0 Then
>     MsgBox "B列に値がありません", 48: Exit Sub
>   End If
>   Range("B4", Range("B65536").End(xlUp)) _
>   .SpecialCells(4).EntireRow.Hidden = True
>   Hck = True
>  Else
>   Cells.EntireRow.Hidden = False
>   Hck = False
>  End If
>End Sub
>
なりました、なりました(^_^)
ありがとうございました。
もう一つ教えて下さい。
この縮めた状態の時は、集計行含めたエリアを印刷範囲に設定し、解除したら印刷範囲もクリアするようには、どうしたら出来ますか?
よろしくお願いします。

それと、チョット高度すぎるので、簡単な解説を入れてもらえませんか?
1つづつ自分の物にしていきたいので、よろしくお願いします。m(_ _)m

0 hits

【18165】行数が不定の集計処理について ackkn 04/9/16(木) 21:15 質問
【18166】Re:行数が不定の集計処理について Kein 04/9/16(木) 22:08 回答
【18167】Re:行数が不定の集計処理について ackkn 04/9/16(木) 22:49 お礼
【18168】Re:行数が不定の集計処理について ackkn 04/9/16(木) 23:04 質問
【18171】Re:行数が不定の集計処理について Kein 04/9/17(金) 1:46 発言
【18189】Re:行数が不定の集計処理について ackkn 04/9/17(金) 17:08 発言
【18207】Re:行数が不定の集計処理について Kein 04/9/18(土) 0:31 回答
【18208】Re:行数が不定の集計処理について Kein 04/9/18(土) 0:34 発言
【18213】Re:行数が不定の集計処理について ackkn 04/9/18(土) 11:47 回答
【18217】Re:行数が不定の集計処理について ackkn 04/9/18(土) 14:02 回答
【18223】Re:行数が不定の集計処理について Kein 04/9/18(土) 18:25 回答
【18224】Re:行数が不定の集計処理について Kein 04/9/18(土) 18:32 発言
【18249】Re:行数が不定の集計処理について ackkn 04/9/19(日) 14:41 回答
【18256】Re:行数が不定の集計処理について Kein 04/9/19(日) 20:11 回答
【18257】Re:行数が不定の集計処理について ackkn 04/9/19(日) 23:22 回答
【18259】Re:行数が不定の集計処理について Kein 04/9/20(月) 0:56 回答
【18263】Re:行数が不定の集計処理について ackkn 04/9/20(月) 6:38 お礼
【18289】Re:行数が不定の集計処理について ackkn 04/9/20(月) 17:58 質問
【18293】Re:行数が不定の集計処理について Kein 04/9/20(月) 22:18 回答
【18299】Re:行数が不定の集計処理について ackkn 04/9/20(月) 23:42 質問
【18301】Re:行数が不定の集計処理について Kein 04/9/21(火) 2:13 回答

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