
抽出項目が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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
ExcelのVBAを使ってタイトル行が2行ある場合の別シートへの抽出方法
Visual Basic(VBA)
-
エクセルのオートフィルタで最初の数行を残してフィルタをしたい
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
8
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
9
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
10
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
11
VBAで文字列を数値に変換したい
Excel(エクセル)
-
12
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
13
Excel VBA マクロ 先頭行の固定とオートフィルター設定を全てのシートに適用したいです
Visual Basic(VBA)
-
14
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
15
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
-
16
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
17
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
18
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
19
Excelのフィルター後の一番上のセルをコピーする(マクロ教えて。) Excelで5行目にフィルター
Excel(エクセル)
-
20
VBAを何回も作り直して、容量が増えた
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Access テキスト型に対する指定...
-
エクセルグラフの凡例スペース
-
Oracle 2つのDate型の値の差を...
-
SUBSTRING 関数に渡した長さの...
-
datファイルからaccessにインポ...
-
ORACLEでLONG項目からCHAR項目...
-
Accessで数値型にNULLをInsert...
-
他テーブルで一致する列から名...
-
Accessレポートで特定条件で改...
-
VBAで複数の数式セルを最終行ま...
-
必須入力項目と入力必須項目
-
SELECT文でLEFT関数を使うと未...
-
Accessのハイパーリンク...
-
ピボットテーブルでフィルター...
-
アリエクで買った商品が破損し...
-
指定した項目の列削除
-
Wordで見出しが連番にならない
-
エクセル2003で四角の中に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
エクセルグラフの凡例スペース
-
Access テキスト型に対する指定...
-
セルの右クリックで出る項目を...
-
SUBSTRING 関数に渡した長さの...
-
必須入力項目と入力必須項目
-
BIOSでAHCIに設定したいが、項...
-
Accessレポートで特定条件で改...
-
他テーブルで一致する列から名...
-
Accessで数値型にNULLをInsert...
-
ORACLEでLONG項目からCHAR項目...
-
datファイルからaccessにインポ...
-
access2000:フォームで入力し...
-
指定した項目の列削除
-
APN設定について教えていただけ...
-
VBAで複数の数式セルを最終行ま...
-
条件に一致した列の非表示の仕...
-
複数のレコードを1つのレコード...
おすすめ情報