Excel VBA質問箱 IV

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

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


5559 / 76735 ←次へ | 前へ→

【76787】Re:AutoFilterで3つ以上の絞り込み方法
お礼  亜矢  - 15/3/12(木) 8:56 -

引用なし
パスワード
   ▼マナ さん:
>無駄なことしているようなような気もしますが
>除外したいもの除いた配列を作成してはいかがでしょうか。
>
>Sub test()
>  Dim a
>  Dim d As Object
>  Dim v
>  Dim i As Long
>  
>  a = Array("田中", "土屋", "鈴木")
>  
>  Set d = CreateObject("scripting.dictionary")
>  
>  ActiveSheet.AutoFilterMode = False
>  v = Range("a1").CurrentRegion.Columns(1).Value
>  
>  For i = 1 To UBound(v)
>    d(v(i, 1)) = Empty
>  Next
>  
>  For i = 0 To UBound(a)
>    If d.exists(a(i)) Then d.Remove (a(i))
>  Next
>  
>  Range("a1").CurrentRegion.AutoFilter Field:=1, _
>    Criteria1:=d.keys, _
>    Operator:=xlFilterValues
>  
>End Sub
まだ完全解決とは行きませんが、参考にして研究してみます。
ありがとうございました。
0 hits

【76779】AutoFilterで3つ以上の絞り込み方法 亜矢 15/3/11(水) 14:36 質問[未読]
【76780】Re:AutoFilterで3つ以上の絞り込み方法 β 15/3/11(水) 15:37 発言[未読]
【76781】Re:AutoFilterで3つ以上の絞り込み方法 亜矢 15/3/11(水) 20:19 質問[未読]
【76782】Re:AutoFilterで3つ以上の絞り込み方法 β 15/3/11(水) 21:13 発言[未読]
【76783】Re:AutoFilterで3つ以上の絞り込み方法 マナ 15/3/11(水) 21:52 発言[未読]
【76784】Re:AutoFilterで3つ以上の絞り込み方法 β 15/3/11(水) 22:05 発言[未読]
【76787】Re:AutoFilterで3つ以上の絞り込み方法 亜矢 15/3/12(木) 8:56 お礼[未読]
【76785】Re:AutoFilterで3つ以上の絞り込み方法 kanabun 15/3/11(水) 23:01 発言[未読]

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