Excel VBA質問箱 IV

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

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


5045 / 76732 ←次へ | 前へ→

【77301】AutoFilter について
質問  ぴょん  - 15/7/4(土) 17:07 -

引用なし
パスワード
   AutoFilter について、2点質問させてください。

■質問1

下表のデータで、

  A  B     C
1        
2    住所     優先順位
3    東京都      1
4    東京都      1
5    神奈川県      2
6    静岡県      3
7    静岡県      3
8    最終行    


下記ソースを実行(Tagetに全て設定)すると、表の一番したの最終行が非表示になってしまいます。
(ちなみに、Tagetに全て設定しないパターンは、どの組み合わせも非表示になるものは非表示になり、最終行も表示されます)
デバッグでも原因が掴めなかったため、ご教授ください。

Sub 質問()
  Dim Target(2) As String
  
  Target(0) = 1
  Target(1) = 2
  Target(2) = 3

  Range(Cells(2, 2), Cells(7, 3)).AutoFilter Field:=2, _
    Criteria1:=Target, _
    Operator:=xlFilterValues, VisibleDropDown:=False

End Sub


■質問2
 当初VisibleDropDown:=Falseで矢印が非表示になっていたのですが、何かをきっかけに非表示にならなくなってしまいました。
 何がいけないのでしょうか?


以上、よろしくお願いします。

212 hits

【77301】AutoFilter について ぴょん 15/7/4(土) 17:07 質問[未読]
【77302】Re:AutoFilter について β 15/7/4(土) 17:44 発言[未読]
【77303】Re:AutoFilter について β 15/7/4(土) 17:46 発言[未読]
【77304】Re:AutoFilter について ぴょん 15/7/4(土) 19:16 発言[未読]
【77305】Re:AutoFilter について ぴょん 15/7/4(土) 19:25 発言[未読]
【77306】Re:AutoFilter について β 15/7/4(土) 21:07 発言[未読]
【77307】Re:AutoFilter について ぴょん 15/7/4(土) 22:11 お礼[未読]
【77308】Re:AutoFilter について ぴょん 15/7/4(土) 22:32 発言[未読]
【77309】Re:AutoFilter について β 15/7/4(土) 23:04 発言[未読]
【77311】Re:AutoFilter について ぴょん 15/7/4(土) 23:47 発言[未読]
【77312】Re:AutoFilter について ぴょん 15/7/5(日) 0:04 発言[未読]
【77313】Re:AutoFilter について β 15/7/5(日) 1:21 発言[未読]
【77315】Re:AutoFilter について ぴょん 15/7/5(日) 9:04 お礼[未読]

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