
抽出項目が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も見ています
-
【教えて!goo ウォッチ 人気記事】風水師直伝!住まいに幸運を呼び込む三つのポイント
記事を読む>>
-
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
ExcelのVBAを使ってタイトル行が2行ある場合の別シートへの抽出方法
Visual Basic(VBA)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
-
4
エクセルのオートフィルタで最初の数行を残してフィルタをしたい
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
VBAで文字列を数値に変換したい
Excel(エクセル)
-
9
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
VBA 数値を文字列として貼付したい
Excel(エクセル)
-
12
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
13
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
14
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
15
Offsetで可視セルだけを移動したい。
Excel(エクセル)
-
16
VBAでオートフィルを行の途中から使いたい
Excel(エクセル)
-
17
UserForm1.Showでエラーになります。
工学
-
18
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
-
19
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
表の名称について
-
表の名称について
-
APN設定について教えていただけ...
-
Oracle 2つのDate型の値の差を...
-
BIOSでAHCIに設定したいが、項...
-
エクセルVBAで5行目からオート...
-
SELECT文でLEFT関数を使うと未...
-
複数のレコードを1つのレコード...
-
ある講演を聴いての感想レポー...
-
jwwのクロスラインカーソルの角...
-
アンドロイド おサイフケータイ...
-
Accessレポートで特定条件で改...
-
yes/no型の更新ができない
-
網羅性が優れた学術書が欲しい...
-
Joy To Keyのマウスやキーボー...
-
Excelの表、重複データ2行を1...
-
因子分析のフロア効果(床効果)
-
2行目を表示できますか?
-
エクセル2003で四角の中に...
-
必須入力項目と入力必須項目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
OCNのwebメールを開くとき、シ...
-
Access テキスト型に対する指定...
-
アンドロイド おサイフケータイ...
-
ORACLEでLONG項目からCHAR項目...
-
2行目を表示できますか?
-
複数のレコードを1つのレコード...
-
VBAで複数の数式セルを最終行ま...
-
access2000:フォームで入力し...
-
必須入力項目と入力必須項目
-
Accessで数値型にNULLをInsert...
-
BIOSでAHCIに設定したいが、項...
-
エクセルマクロにて最終行まで...
-
Joy To Keyのマウスやキーボー...
-
Accessレポートで特定条件で改...
-
エクセルグラフの凡例スペース
-
他テーブルで一致する列から名...
-
APN設定について教えていただけ...
-
空白をそのままインポートする...
おすすめ情報