エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4265 for オートフィルタ (0.004 sec.)

[[20120504150835]]: #score: 4241; @digest: cb9946a3f39892fd066d2d495b58002b; @id: 58798; @mdate: 2012-05-04T15:33:16Z; @size: 3060; @type: text/plain; #keywords: 全表 (25354), 部〕 (14536), 部", (14392), 造部 (7335), ム部 (6789), showalldata (6546), filtermode (6371), gyy (6272), タ全 (5435), 務部 (3457), 理部 (3048), 示行 (2886), hidden (2864), 業部 (2841), 〕〔 (2600), 製造 (2109), ト分 (1759), トフ (1544), autofiltermode (1531), 列, (1419), ルタ (1383), 行, (1338), オー (1319), フィ (1159), ィル (1102), 営業 (877), 業務 (859), シス (859), 非表 (698), activesheet (689), ート (652), テム (652); 『表示について』（GYY）
列,行,オートフィルタを全表示させたいのですが、エラーになるときがあるので、教えていただけないでしょうか? Sub TEST() Cells.Select Selection.EntireColumn.Hidden = False '列全表示にしたい Selection.EntireRow.Hidden = False '行全表示にしたい ActiveSheet.ShowAllData 'オートフィルタ全表示にしたい Range("A1").Select End Sub Sheet1を開いたとき上記内容で起動できるのですが、 オートフィルタで何か選択していない場合だと、エラーになってしまいます。 オートフィルタで何か選択していない場合もあるため、フィルタをかけている状態でもかけてない状態でも、結果として全表示（列,行,オートフィルタ）することはできますか? また、そのようにしたいシートは、Sheet1,2,3,4,5と5シート分あるのですが、まとめて全表示することはできるのでしょうか? 宜しくお願いします。 ---- ＞ActiveSheet.ShowAllData 'オートフィルタ全表示にしたいこの部分で引っかかるということであれば、フィルタで非表示になっている行があるかどうか判断して分岐すればいいのではないですか? If ActiveSheet.FilterMode = True Then '非表示行がある場合 ActiveSheet.ShowAllData 'オートフィルタ全表示にしたい End If ＞また、そのようにしたいシートは、Sheet1,2,3,4,5と5シート分あるのですが、＞まとめて全表示することはできるのでしょうか? 私は出来るかどうか分からないですが、ループで1シートずつ処理したっていいのではないですか? (半平太) 2012/05/04 17:37 ---- 半平太様ありがとうございます。 オートフィルタで非表示行がある場合、全表示する教えていただき大変助かりました。ありがとうございます。同じシート内で、計算の繰り返し（ループ）はしたことがあるのですが、シートを越えてループをしたことがないのですが、そのようなことは可能なのでしょうか? 初心者なもので、、すみません。。 (GYY) ---- 横から失礼アップされたコードがやろうとしていることをそのまま各シートに適用 Sub Sample() Dim i As Long For i = 1 To 5 With Sheets("Sheet" & i) .Columns.Hidden = False .Rows.Hidden = False If .AutoFilterMode Then If .FilterMode Then .ShowAllData End If End With Next End Sub (ぶらっと) ---- ぶらっと様ご回答いただき本当にありがとうございます。教えていただいた内容にて作動できたのですが、、大変申し訳ないのですが、シート名が〔営業部〕〔管理部〕〔業務部〕〔システム部〕〔製造部〕だった場合、どう応用したらいいのでしょうか? 重ね重ねすみません。。お付き合いいただきたく宜しくお願い致します。 (GYY) ---- たとえば Sub Sample2() Dim shn As Variant For Each shn In Array("営業部", "管理部", "業務部", "システム部", "製造部") With Sheets(shn) .Columns.Hidden = False .Rows.Hidden = False If .AutoFilterMode Then If .FilterMode Then .ShowAllData End If End With Next End Sub (ぶらっと) ---- ぶらっと様夜分遅くにも関わらず、大変ありがとうございました。助かりました。 (GYY) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201205/20120504150835.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ