Q&A
コメントありがとうございます。
1を入力した際はCriteria_Monthに21が入っているのですが、これでいいのでしょうか？
こんにちは。
VBAを初心者です。
現在様々な項目の体力テストを実施し、次回計測時期をFSのセルに入力しています。
ここから特定の月があるもの(例えば1月)であるものだけをオートフィルター抽出し、別のシートにコピーしたいと考えています。調べ持って下記のようにコードを記述しました。
VBA
1Sheets("Sheet3").Select 2 3Dim Filter_Month 4Dim Criteria_Month 5Dim Target As Range, LastCell As Range 6 7Set Target = Sheets("基本評価次回計測").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 8 9 10 Filter_Month = InputBox("抽出したい月を入力してください") 11 12 Select Case Filter_Month 13 Case "1" 14 Criteria_Month = xlFilterAllDatesInPeriodJanuary 15 Case "2" 16 Criteria_Month = xlFilterAllDatesInPeriodFebruray 17 Case "3" 18 Criteria_Month = xlFilterAllDatesInPeriodMarch 19 Case "4" 20 Criteria_Month = xlFilterAllDatesInPeriodApril 21 Case "5" 22 Criteria_Month = xlFilterAllDatesInPeriodMay 23 Case 6 24 Criteria_Month = xlFilterAllDatesInPeriodJune 25 Case "7" 26 Criteria_Month = xlFilterAllDatesInPeriodJuly 27 Case "8" 28 Criteria_Month = xlFilterAllDatesInPeriodAugust 29 Case "9" 30 Criteria_Month = xlFilterAllDatesInPeriodSeptember 31 Case "10" 32 Criteria_Month = xlFilterAllDatesInPeriodOctober 33 Case "11" 34 Criteria_Month = xlFilterAllDatesInPeriodNovember 35 Case "12" 36 Criteria_Month = xlFilterAllDatesInPeriodDecember 37 End Select 38 39 Range("A1").AutoFilter field:=175, Criteria1:=Criteria_Month, Operator:=xlFilterDynamic 40 41Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy Target 42ActiveSheet.AutoFilterMode = False 43 44End Sub
実行するとRange メソッドのとこでとまってしまいます。
行き詰まってしまいましたのでご教授お願いできればと思います。
回答2件
0
MacではRange.Autofilterはサポートされていないようです。
Excel for Mac は、このメソッドをサポートしていません。
ただ、
Selection およびListObjectの同様のメソッドはサポートされています。
とあるので、
VBA
1Range("A1").CurrentRegion.Select 2Selection.AutoFilter field:=175, Criteria1:=Criteria_Month, Operator:=xlFilterDynamic
こんな感じで試してみられてはいかがでしょうか。
すぐにテストできる環境がないので間違ってたらごめんなさい。
投稿2020/11/20 00:23
総合スコア1925
0
ベストアンサー
こんにちは。
当方では、１から１２を指定した限りエラーは出ませんね。
１から１２以外を指定した場合は同様のエラーとなりますが。。。
質問者さんのコードとの差異は、FS列(Fields:=175)をA列(Fields:=1)にして、A列に年月日を設定した程度ですね。
ステップ実行で、RangeのところでCriteria_Monthに正しい値が入ってますか？
投稿2020/11/20 00:35
総合スコア1095
補足です。Fields:=175を17など違う値にするといけました。どういうことなのでしょうか？
全く同じ表を作るのが面倒だったのでA列に年月日を入れてコードも合わせて書き換えたということです。
175でできて、17で出来ない理由は何かあるのでしょうか？
Q列には何が入っているのですか？
Criteria_Month = 21については
Debug.Print xlFilterAllDatesInPeriodJanuary
を実行して 21 と表示されれば問題ないですね。
radames1000さんの回答に記載されてますが、Mac版のExcel-VBAなんでしょうか？
今更ですが、質問文に環境情報（OSやExcelのバージョンなど）を書きましょう。
エラーダイアログを見てMacだと思いましたが、
前回質問にMacと記載がありますね。
DreamTheaterさんのご指摘通り、環境情報をお願いします。
途中列に空白があるなどで、FS列がA1からのリストに含まれていない可能性はないでしょうか？
Range("A1:FS1")にして、175を試してみる価値はあるかと思います。
イミディエイトウィンドウに
?range("a1").CurrentRegion.Address
として、対象範囲を確認してみるといいかも。
途中に空欄列があるとすると確かに怪しいですね。
可能であれば、FS列を現A列の手前にコピー挿入して、Fields:=1として実行できるかどうか。
うまくいったとしてどの範囲がコピーされるか？
皆さんありがとうございます！ご指摘通り、途中列に空白があり、FS列が含まれていませんでした！rangeの範囲をRange("A1:FS1")に変更したら無事に作動しました！ちなみに環境はMACのExcel2006でした。皆様の意見とても勉強になりました！
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/11/20 04:07
2020/11/20 05:31