Excel VBA質問箱 IV

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

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


5560 / 76732 ←次へ | 前へ→

【76783】Re:AutoFilterで3つ以上の絞り込み方法
発言  マナ  - 15/3/11(水) 21:52 -

引用なし
パスワード
   無駄なことしているようなような気もしますが
除外したいもの除いた配列を作成してはいかがでしょうか。

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

261 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 発言[未読]

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