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

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

[[20100303151259]]: #score: 4241; @digest: a34d7eca96a5dbf2b7b96421233eeab1; @id: 48104; @mdate: 2010-03-03T06:56:01Z; @size: 2281; @type: text/plain; #keywords: 5511000a (15241), cover (10634), 行ra (7778), r350 (7748), 字!! (7380), タ実 (6540), 井戸 (6466), retsu (5803), criteria2 (5643), タ() (3401), operator (3328), 示フ (3244), 示行 (2886), wh (2593), xland (2437), autofilter (2274), filtermode (2123), criteria1 (1923), 分繰 (1687), showalldata (1309), selection (1144), 角数 (1039), field (985), ルタ (968), トフ (965), 「co (931), オー (824), フィ (811), ィル (771), autofiltermode (765), 全シ (751), 非表 (697); 『マクロがシートを移動しない』（井戸）
こちらを参考にマクロを作成しました。ブック内の「Cover」以外の全シートで同じ作業をするようにしたいのですが、1つのシートで何度も作業を繰り返すだけで他のシートに行きません。（シート枚数分繰り返す）どこが間違っているのか、どうぞお助け下さい。 XPのエクセルは2003です。よろしくお願いします。 ============ Sub 非表示フィルタ() Dim Retsu As Variant Dim X As String Dim wh As Worksheet Retsu = InputBox("半角数字!!!") If Retsu = "" Then Exit Sub End If X = Retsu For Each wh In Worksheets If InStr(1, wh.Name, "Cover") = 0 Then With wh If .FilterMode = True Then 'フィルターによる非表示行がある場合全て表示 .ShowAllData ElseIf .AutoFilterMode = False Then 'オートフィルタがかかっていないときはオートフィルタ実行 Range("A12:R350").Select Selection.AutoFilter Else 'オートフィルタがかかっており、非表示行がないとき 'なにもしない End If Selection.AutoFilter Field:=X, Criteria1:="<>0", Operator:=xlAnd, _ Criteria2:="<>" Selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd, _ Criteria2:="<>5511000a" End With End If Next End Sub ---- > For Each wh In Worksheets > If InStr(1, wh.Name, "Cover") = 0 Then ← シート名に「Cover」が含まれてなかったら。 > With wh って、何をやっているのか、学んだ方がいいと思う。 BJ ---- 'オートフィルタがかかっていないときはオートフィルタ実行 Range("A12:R350").Select Selection.AutoFilter これは、アクティブシートに実行されます。 Selection.AutoFilter Field:=X, Criteria1:="<>0", Operator:=xlAnd, _ Criteria2:="<>" Selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd, _ Criteria2:="<>5511000a" この部分もですね。それで、一つのシート（実行時にアクティブに成っていたシート）にだけ処理がされているのではないかと思いますが。 (HANA) ---- あ、そうですね。私のは全く違いますね。良く読めば見当はずれもいいとこでした。すみません。 BJ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201003/20100303151259.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ