Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
981 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【77268】オートフィルターを実行後の矢印ボタンの非表示化 ぴょん 15/6/27(土) 16:44 質問[未読]
【77269】Re:オートフィルターを実行後の矢印ボタン... マナ 15/6/27(土) 17:14 発言[未読]
【77270】Re:オートフィルターを実行後の矢印ボタン... ぴょん 15/6/27(土) 18:27 お礼[未読]
【77268】オートフィルターを実行後の矢印ボタンの...
質問  ぴょん  - 15/6/27(土) 16:44 -
引用なし
パスワード
   D列に絞り込み対象
1〜3行目は固定域
4行目以降がデータ域

　　A　　　B　　C　　D　　E　　F
1　 タイトル等の固定域1
2　 タイトル等の固定域2
3　 タイトル等の固定域3
4　 A4　　 B4　 C4　 D4　 E4　 F4
5　 A5　　 B5　 C5　 D5　 E5　 F5

オートフィルタで絞り込んだ結果を表示したまま、オートフィルタの矢印ボタンを非表示にするべく、下記コーディングにしたのですが、
Columns("D:D").AutoFilter
Field:=1,
Criteria1:="ABC",
VisibleDropDown:=False
実行すると固定域が潰されてしまいます。

　　A　　　B　　C　　D　　E　　F
1　 A4　　 B4　 C4　 D4　 E4　 F4
2　 A5　　 B5　 C5　 D5　 E5　 F5

固定域が潰れないようにするには、どのようにすれば良いでしょうか？
【77269】Re:オートフィルターを実行後の矢印ボタ...
発言  マナ  - 15/6/27(土) 17:14 -
引用なし
パスワード
   ▼ぴょん さん：

Range("D3", Range("D" & Rows.Count).End(xlUp)).AutoFilter

これでどうなりますか。
【77270】Re:オートフィルターを実行後の矢印ボタ...
お礼  ぴょん  - 15/6/27(土) 18:27 -
引用なし
パスワード
   マナ さん

下記追加して実行したら、うまくいきました。
ありがとうございました、大変助かりました。
駆け出しなもので、またよろしくお願いします。

>Range("D3", Range("D" & Rows.Count).End(xlUp)).AutoFilter
>
>これでどうなりますか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
981 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free