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ランキング
-
エクセルのツールバーから数値...
-
祝日と土曜、日曜の合計をカウ...
-
【マクロ】2回実行したら、エ...
-
特定の文字列を含む、住所を抽...
-
EXCELの散布図で日付が1900年に...
-
マイクロソフトのPADを使ってい...
-
Excel分数の表示について
-
Excelで表を作ったところに文字...
-
マクロエクセルのブロック解除
-
文字2桁、3桁交じりの文字列...
-
絶対参照
-
Excelについての質問です。 B2...
-
在庫管理表に使うエクセルの関...
-
【マクロ】VLOOKUPにて参照元に...
-
【EXCEL】画像の黄色部分の抽出...
-
DATE関数で現在の年齢を出した...
-
ユーザー定義関数をアドイン登...
-
エクセルでの作業計算方法について
-
行数が不規則な一週間ごとの合...
-
Excelピボットテーブルの1行目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報