[[20080908155329]]　『自動で非表示するには』（みどりん）　ページの最後に飛ぶ

『自動で非表示するには』（みどりん）

 一つのブックの、１シートには、
 １５５まで入力されています。
 そのうち、
 42
 43
 65
 67
 71
 76
 81
 のみを表示させ、後は非表示したいのですが、いくつも非表示しなければならないシートがあり、何かいい方法ありますか？

 作業列に
 =IF(OR(A1={42,43,65,67,71,76,81}),"",)
 と入力し、必要分フィルダウン。

 作業列を選択した状態で、編集-->ジャンプ-->セル選択-->数式にチェック、数値のみチェックをし、OK。

 Shift+Spaceキーを押したのち、右クリック、非表示を選択。

 作業列を削除。

 上記手順でいかがでしょうか。
 (ROUGE)

 ありがとうございます。わかりにくい説明にもかかわらず、。
 42
 43
 65
 67
 71
 76
 81
 は行の番号なのですが、それで非表示にすることはできますか？
 みどりん

 標準モジュールに
Sub Test鮎()
Dim Sh As Worksheet
For Each Sh In Worksheets
    Sh.Rows("1:155").EntireRow.Hidden = True
    Sh.Range("42:43,65:65,67:67,71:71,76:76,81:81").EntireRow.Hidden = False
    Application.Goto Sh.Range("A42")
Next Sh
End Sub

 （川野鮎太郎）ブック内の全てのシートを対象としてます。

コメント返信：

[ 一覧(最新更新順) ]

[[20080908155329]] 『自動で非表示するには』（みどりん） ページの最後に飛ぶ

[[20080908155329]]　『自動で非表示するには』（みどりん）　ページの最後に飛ぶ