Excel VBA質問箱 IV

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

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


29787 / 76732 ←次へ | 前へ→

【52220】Re:オートフィルタの取得
お礼  ベナジザ  - 07/10/31(水) 23:03 -

引用なし
パスワード
   りん さん、こんばんわ。

有難うございます。早速 使わせて戴きました。

>
>>"オートフィルター"の設定が行なわれていた場合、解除する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
>
>こんな感じです。
1 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 お礼

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