抽出項目が5行目にあり、オートフィルタを5行目から表示させたいのですが、うまくいきません。
Macro1では項目が消えてしまい、▼が1行目に、Macro2では項目は残りますが、▼は同じく1行目になってしまいます。どうしたら5行目にオートシェイプの▼が配置できるでしょうか?
Sub Macro1()
Range("A5").Select
Selection.AutoFilter
End Sub
Sub Macro2()
Range("A5").AutoFilter
End Sub
No.2ベストアンサー
- 回答日時:
こんばんは。
通常は、これでよいのですが、
Sub Macro2()
Range("A5").AutoFilter
End Sub
つまり、Range("A5").CurrentRegion という同じ設定になるので、そこを含む、4角形の連続の範囲の頂点からが、AutoFilter に組み込まれます。通常は、フィルターモードに取り込り込みたくないデータは、間を空けると良いのですね。
もし、そういう状況なら、私なら、こう書きますが、こんな面倒なことしなくてもよいです。
Sub Macro3()
ActiveSheet.AutoFilterMode = False
With Range("A5").CurrentRegion
.Rows(5).HorizontalAlignment = xlCenter '真ん中寄せ
Range("A5", .Cells(.Count)).AutoFilter
End With
End Sub
>でも項目が消えてしまっています。これを回避できますか?
ただ、別に、項目が消えたわけではありませんね。単に、文字(または数字)が右に行っているので、ドロップダウンボタンと重なり合っているだけです。上記のコードで参考にできるところがあったら、使ってみてください。
No.1
- 回答日時:
>Range("A5").AutoFilter
A5をクリックして手動でフィルタをかけた時に自動的に5行目が選択される作りになっていない表の場合は、データ範囲をきちんと設定しないと意図した通りの動作はしてくれません。
Range("A5:D5").AutoFilter
とか
Range("A5:D100").AutoFilter
のように範囲設定して下さい。
hana-hana3さんありがとうございました。ちゃんと5行目からになりました。でも項目が消えてしまっています。これを回避できますか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) excelVBAについて。 1 2022/11/30 06:16
- Excel(エクセル) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 3 2022/08/21 20:51
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
ExcelのVBAを使ってタイトル行が2行ある場合の別シートへの抽出方法
Visual Basic(VBA)
-
エクセルのオートフィルタで最初の数行を残してフィルタをしたい
Excel(エクセル)
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセルでエラーが出て困っています。
Excel(エクセル)
-
7
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
-
10
VBAで文字列を数値に変換したい
Excel(エクセル)
-
11
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
12
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
13
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
14
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
15
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
18
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
19
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
20
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Access テキスト型に対する指定...
-
セルの右クリックで出る項目を...
-
空白をそのままインポートする...
-
Oracle 2つのDate型の値の差を...
-
複数のレコードを1つのレコード...
-
Accessで数値型にNULLをInsert...
-
エクセルグラフの凡例スペース
-
SUBSTRING 関数に渡した長さの...
-
ORACLEでLONG項目からCHAR項目...
-
指定した項目の列削除
-
PC-98でHDDに複数OSを入れる...
-
Excelの表、重複データ2行を1...
-
APN設定について教えていただけ...
-
ある講演を聴いての感想レポー...
-
必須入力項目と入力必須項目
-
INSERT文(2)について
-
Accessレポートで特定条件で改...
-
BIOSでAHCIに設定したいが、項...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
Access テキスト型に対する指定...
-
セルの右クリックで出る項目を...
-
アンドロイド おサイフケータイ...
-
BIOSでAHCIに設定したいが、項...
-
Excel 2019 のピボットテーブル...
-
エクセルグラフの凡例スペース
-
正しく入力されていない項目も...
-
SUBSTRING 関数に渡した長さの...
-
複数のレコードを1つのレコード...
-
access2000:フォームで入力し...
-
必須入力項目と入力必須項目
-
Accessで数値型にNULLをInsert...
-
パソコンで画像ファイルを手持...
-
Accessレポートで特定条件で改...
-
空白をそのままインポートする...
-
2行目を表示できますか?
-
ORACLEでLONG項目からCHAR項目...
-
VBAで複数の数式セルを最終行ま...
おすすめ情報