[[20051203060521]]　『マクロでオートフィルター』（れいな）　ページの最後に飛ぶ

『マクロでオートフィルター』（れいな）

  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って、初めて知りました。成長しました(^^ゞ　←ほんとかなぁ?
 ありがとうございました。（れいな）

コメント返信：

[ 一覧(最新更新順) ]

[[20051203060521]] 『マクロでオートフィルター』（れいな） ページの最後に飛ぶ

[[20051203060521]]　『マクロでオートフィルター』（れいな）　ページの最後に飛ぶ