エクセルのオートフィルタ機能について、フィルタの要素を配列を用いて指定、適用させようとしているのですが、うまく適用されません。
古いバージョンだとこれでいけたのですが、現在の環境(表題のとおり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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
Excelのオートフィルタで抽出したものを配列で取得したい
Excel(エクセル)
-
-
4
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
8
VBA 1つの列を3つ以上の条件で絞り込みたいです。
Excel(エクセル)
-
9
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
10
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
11
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
12
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
13
セルの値をCriteriaに入れる
Excel(エクセル)
-
14
Excel オートフィルタのリストを取得したい
Excel(エクセル)
-
15
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
16
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
17
VBAで配列の計算
Excel(エクセル)
-
18
Excel VBA Collection.add で Range型を格納したい
Visual Basic(VBA)
-
19
UserForm1.Showでエラーになります。
工学
-
20
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
リストボックスに縦スクロール...
-
マクロ Publicでの配列定義
-
VBA 二次元配列の1つ目を増...
-
組み合わせについての質問です...
-
二次元配列のインデックスについて
-
Perlの数値・文字列操作
-
do-while文での無限ループ?
-
Dim flag(4) as boolean で配列...
-
Excel VBA ユーザーフォームの...
-
エクセルVBAでTransposeの不思議
-
VBAのautofilter、criteriaの配...
-
チェックボックスのperlでの値...
-
クラスに配列を渡す方法
-
jcode->jfold で禁則処理
-
画面を強制的に再描画させる方法
-
ハッシュ検索はなぜ速い
-
VBのReturnの使い方
-
ハッシュのハッシュを実現したい。
-
乱数の桁数指定、または範囲指定。
-
Can't use string ("0") as an ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのautofilter、criteriaの配...
-
二次元配列のインデックスについて
-
リストボックスに縦スクロール...
-
Excel VBA ユーザーフォームの...
-
マクロ Publicでの配列定義
-
エクセルVBAでTransposeの不思議
-
Strawberry Perl for Windows ...
-
二次元配列における要素数のは...
-
perlで2次元配列をサブルーチ...
-
クラスに配列を渡す方法
-
Dim flag(4) as boolean で配列...
-
文字の整列(printf)
-
perlで配列の要素が空なのを知...
-
jcode->jfold で禁則処理
-
VB6で配列の最大値を簡単に求め...
-
perl 配列の要素数について
-
ファイル名に日付・時刻を付与...
-
チェックボックスのperlでの値...
-
組み合わせについての質問です...
-
配列を初期化する時ってどうす...
おすすめ情報