エクセルで行の自動非表示の方法は

シート２からシート１に文字及び数字をリンクさせています。
例　＝ＩＦ（シート２！Ａ２＝ＦＡＬＳＥ,シート２！Ａ１,””）

このとき、シート１の例のセルが空白の場合シート１の例の行を全部非表示にする方法を教えてください。

どうぞ、よろしくお願いします。

No.3 ベストアンサー 回答者： suzusan7 回答日時： 2002/08/21 13:44

前準備に作業が必要です。

まず、表の作成ですが、データ数が10、最終行が44となることから、
54行までの表を作成します。表の外枠が太線のように異なる罫線であるならば、
54行目の下線は55行目から上線で罫線を書くと都合が良いです。
こうすると仮にデータが何もなくて10行全て非表示となった場合、
54行目が非表示となっても55行目は非表示にはならないので外枠は消えなくなります。

それで、あとは以下のコードをシートモジュールへ。

Private Sub worksheet_activate()
Dim 範囲 As Range
Dim i As Integer
Dim データ数 As Integer

Application.ScreenUpdating = False
Set 範囲 = Range("E6:E15")
データ数 = 範囲.Rows.Count
i = 0
For Each c In 範囲
If c.Value = Empty Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
i = i + 1
End If
Next
データ数 = データ数 - i
For i = 1 To データ数
Range("e44").Offset(i, 0).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

54行までの表からトータルで10行非表示にすることで、44行表示されます。
お望みのことはこういうことでいいんですよね？

この回答へのお礼

思っていたように出来ました。

ありがとうございます。

また、これからも、よろしくお願いします。

お礼日時：2002/08/21 15:03

No.2 回答者： suzusan7 回答日時： 2002/08/21 09:43

最終行というのは書式のみの行のことでしょうか？

ページ数やデータの量、構成といったものが全く見えません。
そのような状態で、行の挿入、削除をするとまた不都合がでると思います。
ですから、参考までに以下の２つの方法ではどうでしょうか？

１．印刷用シートを作成する。
２．余分に空白行を作成しておき、不要な分を非表示にする。

１の方法は前回のマクロの中でデータが空でなければ、印刷用シートに
データをコピーとすることでできると思います。
この方法であれば決った書式で印刷できるようになります。

２の方法は例えば１ページが３０行とすると、３０行の空白行を予め作成しておき、
１０行のデータがあれば空白行から１０行非表示にして合計３０行にする方法です。
前回のマクロでデータの有無をチェックする際に数を数えていけば可能と思います。
この方法であれば、ページが増えても最終行は３０の倍数にできるというように
ページ数に関係なく対応できると思います。

どの方法が適当かは構成等によると思いますので、
方法の案を書かせていただきました。

この回答への補足

２の方法を詳しく教えてください

マクロの範囲Ｅ６：Ｅ１５（この範囲以外にデータは入りません）

　　Ａ　　　　　Ｂ　　　　　Ｃ　　　　　Ｄ　　　　　Ｅ　　　　　Ｆ
１
２　　　　　　　　　　　　　　　　総括表
３種別　　　細別　　　　・・・・　　　・・・　　　・・・　　　・・・
４　　　　　　　　　　　　　　　　　　　　　　　　・・・　　　・・・
５・・・
６・・・　　・・・　　　　　　　　　　　　　　　　・・・
・
・
４４

・・・は文字及び数字です

行が非表示になっても４４で固定したいです

よろしくお願いします

補足日時：2002/08/21 12:54

No.1 回答者： suzusan7 回答日時： 2002/08/17 19:31

こんばんは。

関数では無理なので、マクロを使用することになります。
シートの構成が見えないので、飽くまでも例ですが。
シートがアクティブになったときに、シートのA1～A20の範囲を調べて、
セルが空であればその行を非表示に、そうでなければ表示するマクロです。
シートモジュールに貼り付けてください。

Private Sub worksheet_activate()
Dim 範囲 As Range
Application.ScreenUpdating = False
Set 範囲 = Range("A1:A20")
For Each c In 範囲
If c.Value = Empty Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub

この回答への補足

ありがとうございます。思っていたように出来ました。
お礼が遅くなり済みませんでした。

使用して一部不都合がありましたので、もう少し、教えていただけますか。

回答のマクロで行が、非表示になると表の行が少なくなるので、１行非表示になると、１行最終行に行を追加できないのでしょうか。

よろしくお願いします

補足日時：2002/08/20 13:28