Sub データ抽出()
'
' データ抽出 Macro
'
'
Sheets("オリジナルデータ").Select
Range("A1").Select Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$1000").AutoFilter Field:=2, Criteria1:="TR-A"
Columns("A:E").Select
Selection.Copy
Range("B371").Select
Sheets("TR-A").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("オリジナルデータ").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("オリジナルデータ").Select
End Sub
コピーした後にTRーAを抽出した後に、どうやってB371を選択するのでしょうか?それと、こちらで、確認した所、チャプター5のデータのデータ抽出のボタンを押した所、最後に、オリジナルデータのB371がアクティブセルになったのですがどういう事でしょうか?教えていただけると嬉しいです。すみません。教えていただけると嬉しいです。もし、マクロの記録で作った場合です。
以下のURLをダウンロードしていただけないでしょうか?この章のチャプター5です。
https://www.shuwasystem.co.jp/support/7980html/2 …
A 回答 (8件)
- 最新から表示
- 回答順に表示
No.8
- 回答日時:
>まあ、作者の好きな数が、371だったということで納得しても良いのでしょうか?
本当のところは、作者に問い合わせないとわかりません。
その為、問い合わせをしないなら、何かの理由をつけて自分自身を納得させるしかありません。
私にとって、最も納得し易い理由は、「なにかの間違いでRange("B371").Selectを書いてしまった」ということです。
あなたにとって最も納得し易い理由が「作者の好きな数が、371だった」
ということであれば、それで良いと思います。
No.6
- 回答日時:
試しに、
Range("B371").Select
の行を削除して、マクロを実行すると、
TR-Aのシートに出力される結果は、削除しない場合と全く変わりません。
従って、Range("B371").Selectの有無は、出力結果には影響しません。
但し、マクロ実行後にオリジナルデータのA:Eの範囲が選択状態になります。
(Range("B371").Selectがあると選択状態にはなりません)
上記が、Range("B371").Selectの有無による違いですが、
もし、私が、この選択状態のままになるのを回避したいなら、
Range("B371").Selectを削除し
マクロの最後に
Range("A1").Selectを追加します。
従って、Range("B371").Selectの行があることについて、
理解できないということが私の結論です。
(たぶん作者の過ちではないかと推測しますので、どうしても気になるのであれば、作者に問い合わせるのが良いかと思います)
まあ、作者の好きな数が、371だったということで納得しても良いのでしょうか?無茶苦茶な理由ですが。(B371についての371についてです。)教えていただけると嬉しいです。
No.5
- 回答日時:
>オリジナルデータのB371がアクティブセルになったのですがどういう事でしょうか?
マクロの記録で作ったかどうかに関係なく、
Range("B371").Select このコードが実行されたのだから
当然のことながらアクティブになります。
F8実行して、フィルターを解除してみればわかります。
まあ、作者の好きな数が、371だったということで納得しても良いのでしょうか?無茶苦茶な理由ですが。(B371についての371についてです。)教えていただけると嬉しいです。
No.4
- 回答日時:
>A,Bとは、TRーA、TRーBです。
で、TRーA以外は隠れるので、その隠れているものの中で、次に早いTRーBを選ぶという事ではないかという事です。①もしそうであれば、B6を選択するかと思うのですが、何故B371なのでしょうか。
②又、「次に早いTRーBを選ぶ」ことにより、どのような結果になることを期待されるのでしょうか。
上記の①②について私はわかりません。
No.3
- 回答日時:
>Aの次に早いBを選んだのでは。
A、Bとは、TR-A,TR-Bの意味ですか?
それともA列、B列の意味ですか?
いずれにしても、何故、Aの次に早いのがBなのか、よくわかりませんので、
これについては、返答できません。
>要するに、隠れているセルを選択したかったという事だと解釈しました。
Range("B371").Selectを実行すると
結果的に、そうなると思います。
A,Bとは、TRーA、TRーBです。で、TRーA以外は隠れるので、その隠れているものの中で、次に早いTRーBを選ぶという事ではないかという事です。つまり、隠れているもののセルの中で、TRーA以外で次に早いTRーBを単に選んでみたかったという事だと思ったのですが。教えていただけると嬉しいです。
No.1
- 回答日時:
>コピーした後にTRーAを抽出した後に、どうやってB371を選択するのでしょうか?
こちらで、マクロの記録でやってみましたが、B371を選択することはできませんでした。マクロの記録でB371を選択することは不可能です。
Range("B371").Select はマクロの記録でマクロを作成したあと、VBEで追記したように見えます。(なぜ追記したのか理由は不明ですが)
>最後に、オリジナルデータのB371がアクティブセルになったのですがどういう事でしょうか?
Range("B371").Selectの行が実行されたためです。
これでオリジナルデータのB371がアクティブセルになります。
隠れたB371をRangeによって選択し、Aの次に早いBを選んだという解釈であっているのでしょうか?教えていただけると嬉しいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Visual Basic(VBA) excelVBAについて。 1 2022/11/30 06:16
- Visual Basic(VBA) excelVBAについて。 4 2022/11/21 16:15
- Visual Basic(VBA) excelVBAについて。 5 2022/11/27 18:48
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】適切な文字数の数字を...
-
【関数】先頭だけにある、半角...
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
LOOKUP関数を使えばいいのでし...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
-
時間によってファイル名が変わ...
-
Excelのpivotについて質問です
-
excelの不要な行の削除ができな...
-
Excelで、決まった行を繰り返し...
-
WPS OFFICEでの縦書きについて
-
UNIQUE関数が使えないバージョ...
-
エクセルの条件付き書式につい...
-
エクセルで「-0.0」と表示さ...
-
Aというブックの1というシート...
-
VBA Private Sub Worksheet_Cha...
-
【マクロ】ファイル名の変更に...
-
【マクロ】エクセルにかいてあ...
-
excel で二つのどちらかを選ぶ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報