エクセルのオートフィルタ機能について、フィルタの要素を配列を用いて指定、適用させようとしているのですが、うまく適用されません。
古いバージョンだとこれでいけたのですが、現在の環境(表題のとおり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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
array関数で格納した配列の型を変更する
Visual Basic(VBA)
-
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
Excelのオートフィルタで抽出したものを配列で取得したい
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
7
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
8
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
9
VBA 1つの列を3つ以上の条件で絞り込みたいです。
Excel(エクセル)
-
10
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
11
表にフィルターをかけ、絞ったデータ(可視化セルのみ)を一次元配列として変数に入れるという動作を書きた
Visual Basic(VBA)
-
12
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
13
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
14
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
15
セルの値をCriteriaに入れる
Excel(エクセル)
-
16
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
17
Excel VBA Collection.add で Range型を格納したい
Visual Basic(VBA)
-
18
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
19
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
20
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
クラスに配列を渡す方法
-
VBAのautofilter、criteriaの配...
-
perl 初等プログラミングについて
-
マクロ Publicでの配列定義
-
VB6で配列の最大値を簡単に求め...
-
一致する要素が格納されている...
-
VBA 二次元配列の1つ目を増...
-
Strawberry Perl for Windows ...
-
DBIを使ってSelect文 複数のカ...
-
perl 配列の要素数について
-
newで個別に生成した配列にNULL...
-
ファイル名に日付・時刻を付与...
-
エクセルVBAでTransposeの不思議
-
Python IndexError:list index ...
-
Excel VBA ユーザーフォームの...
-
perlfaq4 で紹介されている Fis...
-
VBでカンマで区切られた、要素...
-
不特定数存在する特定文字直後...
-
ランダムな8桁の文字作成
-
ファイルからデータを読み込ん...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAのautofilter、criteriaの配...
-
Strawberry Perl for Windows ...
-
リストボックスに縦スクロール...
-
二次元配列のインデックスについて
-
文字の整列(printf)
-
エクセルVBAでTransposeの不思議
-
クラスに配列を渡す方法
-
二次元配列における要素数のは...
-
Excel VBA ユーザーフォームの...
-
perlで配列の要素が空なのを知...
-
perlで2次元配列をサブルーチ...
-
マクロ Publicでの配列定義
-
Dim flag(4) as boolean で配列...
-
参照配列の要素数の求め方は?
-
チェックボックスのperlでの値...
-
VB6で配列の最大値を簡単に求め...
-
jcode->jfold で禁則処理
-
DataGridViewに配列の値を表示...
-
VBScript 配列
-
配列を使わずに、数字(連番)...
おすすめ情報