データがA列~S列まで入っており、そのE列(5番目)に検索対象の文字が入っています。
1行目は見出し行で、行方向にはどんどんデータが追加されていきます。
さて、検索文字が「キャラメル」のものを抽出したい場合、次のようなコードを書くとオートフィルターの矢印が、E列以外の見出し行に表示され見にくいものになってしまいます。
オートフィルターの矢印ボタンを全て非表示にする方法はないのでしょうか?
なお、下のコードでは不要な列の非表示化も行っていますが、何かスマートでないような気がしてなりません。
E列に入っている文字を検索し、必要な列だけデータを抽出して表示させるもっと良い(簡単な)方法等もあれば、御教示下さい。宜しくお願い致します。
Private Sub CommandButton1_Click()
Range("A1").AutoFilter _
Field:=5, _
Criteria1:="キャラメル", _
VisibleDropDown:=False
Columns("M:M").EntireColumn.Hidden = True
Columns("P:S").EntireColumn.Hidden = True
End Sub
追伸、上記でRange("A1")としていますが、これでよいのかもわかりません。
No.1ベストアンサー
- 回答日時:
これでいかがですか
Private Sub CommandButton1_Click()
Columns("E:E").AutoFilter Field:=1, Criteria1:="キャラメル", VisibleDropDown:=False
Range("M:M,P:S").EntireColumn.Hidden = True
End Sub
zap35様
早速、御回答いただきありがとうございます。
すばらしいです!!
こんな簡単なコードになるとは、衝撃的です。
これからもどうぞ宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
LEFT関数とIF関数の組み合わせ...
-
Excelの行数、列数を増やしたい...
-
VBA 指定した列にある日時デー...
-
VLOOKUPの列番号の最大は?
-
エクセルマクロ、アウトライン...
-
Alt+Shift+↑を一括で行うには、...
-
列方向、行方向の定義
-
Excel/VBA ステップインと通常...
-
VBAで別ブックの列を検索し、該...
-
ListViewで列を指定して表示さ...
-
エクセルのソートで、数字より...
-
エクセルで複数列の検索をマク...
-
エクセルで住所を県と市・郡と...
-
【エクセルVBA】任意の画像フォ...
-
Accessのレポートで繰り返し表...
-
ExcelのVBAで複数行削除を行う場合
-
Excel 区切り位置指定ウィザー...
-
エクセル 1つのシートを日付で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
列方向、行方向の定義
-
LEFT関数とIF関数の組み合わせ...
-
Excelの行数、列数を増やしたい...
-
エクセル マクロ 範囲指定で...
-
VBA 指定した列にある日時デー...
-
エクセルのソートで、数字より...
-
Excel文字列一括変換
-
VBAで結合セルを転記する法を教...
-
エクセルで最初の行や列を開け...
-
エクセルマクロの組み方
-
エクセルで複数列の検索をマク...
-
最近急にVBAの処理速度が遅くな...
-
エクセルマクロPrivate Subを複...
-
エクセル マクロ 範囲の値を上...
-
リストからデータを紐付けしたい
-
Excel 区切り位置指定ウィザー...
-
データシートビューのタイトル...
おすすめ情報