Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


29795 / 76732 ←次へ | 前へ→

【52211】Re:オートフィルタの取得
回答  りん E-MAIL  - 07/10/31(水) 2:26 -

引用なし
パスワード
   ベナジザ さん、こんばんわ。

>"オートフィルター"の設定が行なわれていた場合、解除するVBAを作成したく調べております。恐縮ですが アドバイスねがいます。
>尚、Excel97 です。
何を解析するかわかりませんが、AutoFilterオブジェクトの有無でオートフィルタが設定されているかどうかが判断できます。
 
Sub Macro1()
  Select Case ActiveSheet.AutoFilter Is Nothing
   Case True
     MsgBox "オートフィルタ設定ナシ", vbInformation
   Case Else
     With ActiveSheet.AutoFilter
      MsgBox "オートフィルタ" & vbCrLf & _
        .Range.Address(False, False), vbInformation
     End With
  End Select
End Sub

こんな感じです。

0 hits

【52208】オートフィルタの取得 ベナジザ 07/10/30(火) 23:48 質問
【52211】Re:オートフィルタの取得 りん 07/10/31(水) 2:26 回答
【52220】Re:オートフィルタの取得 ベナジザ 07/10/31(水) 23:03 お礼
【52221】Re:オートフィルタの取得 りん 07/11/1(木) 7:06 発言
【52222】Re:オートフィルタの取得 Jaka 07/11/1(木) 9:25 発言
【52228】Re:オートフィルタの取得 ベナジザ 07/11/1(木) 15:34 お礼

29795 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free