エクセルのオートフィルタ機能について、フィルタの要素を配列を用いて指定、適用させようとしているのですが、うまく適用されません。
古いバージョンだとこれでいけたのですが、現在の環境(表題のとおりExcel2016)だと配列の最終要素のみでフィルタリングされたような状態になってしまいます。私の記述に誤りがあるのか、Excelのバージョンアップに伴って不可になったかが分からず質問する次第です。
プロシージャは以下の通りです。なお、動作範囲はActivesheet(sheets(1))のみです。
Sub Macro1()
Dim trng As Range, frng As Range, i As Long
ReDim mx(0) As Variant
Set frng = Sheets(1).Range("A1").CurrentRegion '適用範囲
Set trng = frng.Resize(frng.Rows.Count - 1, 1).Offset(1, 0) 'フィルタ対象列
frng.Cells(1, 1).AutoFilter '適用前に一度フィルタ解除
For i = 0 To trng.Rows.Count - 1
ReDim Preserve mx(0 To i)
mx(i) = trng.Cells(i + 1, 1)
'Debug.Print "・", mx(i)
Next i
frng.AutoFilter Field:=1, Criteria1:=mx
End Sub
本来はfor文の後ろで配列の要素を要不要に応じて修正してから適用するつもりだったのですが、テストランで上記を実行すると配列の最終要素(上記の場合A列の行の値)のみのフィルタがかかってしまいます。なお、配列に格納しているtrngの値はすべて数値です。
以上、ご教示いただけると助かります。よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんばんは。
コードをみると2つ問題点がありますね。
格納しているのが数値だそうですが、索は文字列ですから、文字列に変えなくてはいけません。
だから、
>mx(i) = trng.Cells(i + 1, 1)
↓
mx(i) = CStr(trng.Cells(i + 1, 1))
>frng.AutoFilter Field:=1, Criteria1:=mx
↓
rng.AutoFilter Field:=1, Criteria1:=mx, _
Operator:=xlFilterValues ' ←これを加える
これで試してみてください。
ありがとうございます。お陰様で解決できそうです。
なるほど、つまり配列変数(Variant型)であっても要素に格納する時には文字列に変換しておく必要があるのですね。Excelのバージョンのせいと疑った自分が恥ずかしい…
とても助かりました。どうもありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) ExcelVBAで質問です。離れた二次元配列を一つにしたい 4 2022/07/26 19:06
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
Excelのオートフィルタで抽出したものを配列で取得したい
Excel(エクセル)
-
-
4
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
5
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
8
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
11
セルの値をCriteriaに入れる
Excel(エクセル)
-
12
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
13
配列で格納したものをmsgboxで表示する方法について
Access(アクセス)
-
14
IFステートの中にWithステートメントの始まり
Visual Basic(VBA)
-
15
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
16
VBAで配列の計算
Excel(エクセル)
-
17
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
18
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
19
Excel オートフィルタのリストを取得したい
Excel(エクセル)
-
20
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Dim flag(4) as boolean で配列...
-
Excel VBA ユーザーフォームの...
-
Excel(VBA)で配列の要素数を...
-
perlで配列の要素が空なのを知...
-
VBA 多次元配列を用いてグルー...
-
重複しない乱数発生
-
可変長配列を、動的確保した固...
-
リストボックスに縦スクロール...
-
perl このテキストファイルを簡...
-
マクロ Publicでの配列定義
-
Strawberry Perl for Windows ...
-
エクセルVBAでTransposeの不思議
-
perl 配列の要素数について
-
VBA 二次元配列 ループの書き方
-
jcode->jfold で禁則処理
-
perlで2次元配列をサブルーチ...
-
Powershell $変数 = @()の空配...
-
アクティブセルから、A列最終行...
-
画面を強制的に再描画させる方法
-
どなたかこのプログラミングを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
二次元配列のインデックスについて
-
VBAのautofilter、criteriaの配...
-
Excel VBA ユーザーフォームの...
-
二次元配列における要素数のは...
-
マクロ Publicでの配列定義
-
Strawberry Perl for Windows ...
-
リストボックスに縦スクロール...
-
クラスに配列を渡す方法
-
Dim flag(4) as boolean で配列...
-
エクセルVBAでTransposeの不思議
-
perlで2次元配列をサブルーチ...
-
perlで配列の要素が空なのを知...
-
perl 配列の要素数について
-
組み合わせについての質問です...
-
隣同士の数字を足し合わせる
-
複数の配列の全ての組み合わせ...
-
perl 初等プログラミングについて
-
jcode->jfold で禁則処理
-
一致する要素が格納されている...
-
チェックボックスのperlでの値...
おすすめ情報