|
ichinose さん:
有り難うございました
早速試してみました
今後も簡単な確認や質問をするかも知れませんが
その時は宜しくお願いします
>▼sa さん:
>こんばんは。
>
>>オートフィルターの抽出条件をグラフの題にしたいので
>> 抽出条件を文字列として得たいのですが宜しくお願いします
>> (例えば)
>> 抽出条件が(すべて)なら すべて
>> 12月 なら 12月
>Filterオブジェクトなるものがありますので、Helpで調べてみて下さい。
>以下は、一例です。抽出後に実行してみて下さい。
>'===============================================================
>Sub test()
> Dim ope
> Dim ope_str
> ope = Array(xlAnd, xlOr, xlBottom10Items, xlBottom10Percent, xlTop10Items, xlTop10Percent, 0)
> ope_str = Array("AND", "Or", "Bottom10Items", "Bottom10Percent", "Top10Items", "Top10Percent", "")
> With ActiveSheet
> If .AutoFilterMode Then
> With .AutoFilter.Filters(1)
> If .On Then
> idx = Application.Match(.Operator, ope, 0) - 1
> If idx > 1 Then
> MsgBox .Criteria1
> Else
> MsgBox .Criteria1 & " " & ope_str(idx) & " " & .Criteria2
> End If
> Else
> MsgBox "すべて"
> End If
> End With
> End If
> End With
>End Sub
|
|