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

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

[[20051203060521]]: #score: 4241; @digest: 6257e897b02313a09141a605f1c7f666; @id: 18583; @mdate: 2005-12-03T00:12:55Z; @size: 2848; @type: text/plain; #keywords: 合全 (17642), ーー (17305), 示行 (11545), る非 (10249), 示re (6721), タ実 (6540), きre (6058), 在wi (5223), 行※ (5069), 示. (4512), filtermode (4247), rem (3439), autofiltermode (3062), showalldata (2618), 行. (2565), ルタ (2489), 成長 (2215), トフ (2123), フィ (2085), ィル (1984), 非表 (1861), いen (1845), オー (1813), ・?? (1412), ター (1326), 。re (1101), win2000 (998), 行が (848), て表 (825), 表示 (781), autofilter (758), activesheet (689); 『マクロでオートフィルター』（れいな）
If .AutoFilterMode = True Then 'オートフィルターがONだったらOFF .AutoFilterMode = False End If End With を過去ログで拝見したのですが、 オートフィルターが設定されていなければ、設定、設定されていればそのままそして、オートフィルターで抽出されていれば、すべて表示、すべて表示されていればそのままのような、わがままなことは出来るのでしょうかこの次に必ず、オートフィルターが設定されていて、すべて表示されている状態で違うマクロを使用したいもので(@_@;) ---- このような感じではいかがでしょう。（みやほりん） With ActiveSheet If .FilterMode = True Then Rem フィルターによる非表示行がある場合全て表示 .ShowAllData ElseIf ActiveSheet.AutoFilterMode = False Then Rem オートフィルタがかかっていないときはオートフィルタ実行 .Cells.AutoFilter Else Rem オートフィルタがかかっており、非表示行がないとき Rem なにもしない End If End With ---- With ActiveSheet If .FilterMode = True Then Rem フィルターによる非表示行がある場合全て表示 .ShowAllData ElseIf ActiveSheet.AutoFilterMode = False Then Rem オートフィルタがかかっていないときはオートフィルタ実行 ※ Range("B11:DO202").Select ※ Selection.AutoFilter Else Rem オートフィルタがかかっており、非表示行がないとき Rem なにもしない End If End With ご回答ありがとうございます。※の部分の変えたのですが、うまくいきません強引すぎるのでしょうか(‾_‾;)フィルターの範囲を指定したくて(-_-;) すみません。もう少しお力をお貸しください。（れいな） ---- こちらでは（ご提示の変更された部分に関しては）実行できています。（現在Win2000 XL2002で検証）「うまくいきません」では「なにが」うまくいかないのか伝わってきません。期待する動作と何が違うのでしょうか、教えてください。（みやほりん） ---- きゃぁーーーーーーーーーーーーーーーーー恥ずかしいです。 Rem フィルターによる非表示行がある場合全て表示を Rem 'フィルターによる非表示行がある場合全て表示にしてなかったですすみませんでした。<m(__)m> <m(__)m> <m(__)m> 完璧にできてました。<(_ _)> ありがとうございました。（れいな） ---- ??? Rem はコメントステートメントで、先頭に' を入れるのと同じ。 Rem フィルターによる非表示行がある場合全て表示 Rem 'フィルターによる非表示行がある場合全て表示はおなじ働きのはずですが・・・?? Remを消していたのですかね。（みやほりん） ---- ぎぃやぁーーーーーーーーーーーーーーーーーーーーーーーーーーーーほんとですぅ、'は関係ありませんでしたぁ ??????? 何したんだろ? 恥ずかしすぎます。(ToT)/‾‾‾ でも、ありがとうございました。 Remって、初めて知りました。成長しました(^^ゞ ←ほんとかなぁ? ありがとうございました。（れいな） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200512/20051203060521.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ