よねさんのWordとExcelの小部屋　なんでも掲示板 [One Tree All Message]

よねさんのWordとExcelの小部屋　なんでも掲示板

ツリー一括表示
エラー　400 /たけこ (20/12/14(Mon) 13:45) #13486
`└` Re[1]: エラー　400 /よねさん (20/12/14(Mon) 15:21) #13487
`└` Re[2]: エラー　400 /たけこ (20/12/14(Mon) 15:43) #13488
`└` Re[3]: エラー　400 /よねさん (20/12/14(Mon) 16:13) #13491
`└` Re[4]: エラー　400 /たけこ (20/12/14(Mon) 17:03) #13492

親記事　/ ▼[ 13487 ]

■13486 / 親階層)

　エラー　400

□投稿者/ たけこ -(2020/12/14(Mon) 13:45:49)

よねさん様

すみません。

またお世話になります。

下記のコードを実行すると、×400のエラーが出ます。

Sheets("抽出").Select

Range("A1").Select

の個所が間違っているのかと思いますが、間違いに気付けないでいます。

教えていただけると助かります。

よろしくお願いいたします。

Sub 抽出()

Dim S As Long, E As Long

S = Range("Q1").Value2

E = Range("S1").Value2

With ActiveSheet.Range("A1").CurrentRegion.Range("A:N")

.AutoFilter Field:=12, Criteria1:=">" & S, Operator:=xlAnd, Criteria2:="<=" & E

.Copy Worksheets("抽出").Range("G2")

End With

If ActiveSheet.FilterMode = True Then

ActiveSheet.ShowAllData

End If

Sheets("抽出").Select

Range("A1").Select

End Sub

[ □ Tree ] 返信/引用返信 削除キー/

▲[ 13486 ] / ▼[ 13488 ]

■13487 / 1階層)

　Re[1]: エラー　400

□投稿者/ よねさん -(2020/12/14(Mon) 15:21:45)

こちらで書いてあるコードを実行しましたが、エラーは出ませんでした。
オートフィルターで抽出したデータがシート名「抽出」に書き出されました。
こちらの環境は Windows10 Excel for Microsoft365 です。

> Sheets("抽出").Select
> Range("A1").Select
> の個所が間違っているのかと思いますが、間違いに気付けないでいます。
怪しいとすれば、 Sheets("抽出").Select　を Sheets("抽出").Activate　にしておけばいかがでしょう?
あと、エラーとは関係ないとは思いますが、気になったのは、
> With ActiveSheet.Range("A1").CurrentRegion.Range("A:N")
と A:N 列のすべてをフィルターの対象にしてありますが、
With ActiveSheet.Range("A1").CurrentRegion
で良いのではと思ったりしました。

こちらの環境ではエラーが出ないので、何らかの操作の手順や環境が影響しているのかもしれません。
↓のような情報がヒットしましたので、お知らせしておきます。
https://plaza.rakuten.co.jp/mscrtf/diary/201303120000/

[ 親 13486 / □ Tree ] 返信/引用返信 削除キー/

▲[ 13487 ] / ▼[ 13491 ]

■13488 / 2階層)

　Re[2]: エラー　400

□投稿者/ たけこ -(2020/12/14(Mon) 15:43:29)

お忙しい中検証いただきありがとうございます。

また参考URLもありがとうございます。

全て有効にしてみましたが、エラーはまだ出ます。

それでも、コード自体が問題ではないことが判明して
とても助かりました。

ありがとうございました。

[ 親 13486 / □ Tree ] 返信/引用返信 削除キー/

▲[ 13488 ] / ▼[ 13492 ]

■13491 / 3階層)

　Re[3]: エラー　400

□投稿者/ よねさん -(2020/12/14(Mon) 16:13:36)

コードに問題はないのかもしれませんが、気になるところを書き換えてみました。
Sub 抽出_改()
Dim S As Long, E As Long
S = Range("Q1").Value2
E = Range("S1").Value2
'----抽出先をあらかじめクリアしておきます
Sheets("抽出").Range("G:T").ClearContents
'----アクティブシートではなく、シート名を明示します。
With Worksheets("Sheet1").Range("A1").CurrentRegion
    .AutoFilter Field:=12, Criteria1:=">" & S, Operator:=xlAnd, Criteria2:="<=" & E
    .Copy Worksheets("抽出").Range("G2")
     '---オートフィルターを解除します
    .AutoFilter
End With

Sheets("抽出").Activate
Range("A1").Select

End Sub

[ 親 13486 / □ Tree ] 返信/引用返信 削除キー/

▲[ 13491 ] / 返信無し

■13492 / 4階層)

　Re[4]: エラー　400

□投稿者/ たけこ -(2020/12/14(Mon) 17:03:13)

何度もありがとうございます。

結果は正しく現れましたが、やはり×400は表示されます。
(ちなみにExcel2016　Win10です）

ただ、よねさん様のコードに書き換えました。
今後も活用させていただきます。

よろしくお願いいたします。

[ 親 13486 / □ Tree ] 返信/引用返信 削除キー/

HOME HELP 新規作成新着記事ツリー表示トピック表示検索過去ログ

- Child Tree -