| |
>上記内容の理解ができました！！
>オートフィルタの設定されているアドレスの文字数が0なら、
>オートフィルタがなく、0以外なら、設定されていると、
>条件分岐してるのですね。
今回は、そうして見ましたけど。
こういうエラートラップでも良いし、
エラートラップのやり方は色々あるので、好みで...。
覚えておくと他にも応用が利きます。
１、
Dim aa As Range
On Error Resume Next
Set aa = ActiveSheet.AutoFilter.Range
If aa Is Nothing Then
MsgBox "普通の状態（フィルタの影も形もない状態"
Else
MsgBox "フィルタ状態（シートに三角ボタンがある状態）"
End If
Set aa = Nothing
２、
Dim aa As Range
On Error Resume Next
Set aa = ActiveSheet.AutoFilter.Range
Set aa = Nothing
If Err Then
MsgBox "普通の状態（フィルタの影も形もない状態"
Else
MsgBox "フィルタ状態（シートに三角ボタンがある状態）"
End If
|
|
Jaka
- 09/3/5(木) 9:27 -
