エクセルの学校：全文検索：Hyper Estraier：並べ替え

Results of 1 - 1 of about 2689 for 並べ替え (0.002 sec.)

[[20090123142335]]: #score: 4561; @digest: 48aa237d05f188931b144120995a4e81; @id: 41749; @mdate: 2009-01-28T01:32:52Z; @size: 18155; @type: text/plain; #keywords: 送予 (84588), 搬送 (67647), 料表 (49218), 原材 (34815), 原料 (31645), shb (21620), 形シ (17771), 料a (16001), ド順 (12607), 整形 (11542), 定表 (10342), 数表 (8454), 表a (7609), 材料 (6604), 出先 (6353), ordercustom (5948), 表シ (5163), 数量 (5141), xltoright (4677), xlpinyin (4566), sortmethod (4347), xltoptobottom (4275), sheets (4219), 行数 (3984), 予定 (3737), cells (3715), orientation (3321), matchcase (3130), 降順 (3126), selection (3051), select (2809), 抽出 (2064); 『検索結果を規定の表にコピーする』（たかなし）
この質問はHANA様みやほりん様のご協力によって解決していただきました。大変参考になりました。ありがとうございます。こんにちは。はじめまして。今週エクセルのマクロの便利さに興味を持ち、マクロの記録とこちらの諸先生方のマクロを参考に自分なりにどうにか動くマクロをコピペで作ってみました。結果だけ見れば満足なのですが、もっとスマートになるよう勉強したいと思い、恥ずかしながら投稿させていただきす。【状況説明】 Sheet 行数表 Sheet 整形 Sheet 搬送搬送予定表の3つのシート構成【行数表】 1 2 3 4 56 7 8 9 10 2 原料表 A 原料表 B 3 コード品名行数数量コード品名行数数量 4 450020 ミント 60 500 325241 ボトルA 12 100 5 450040 ナツメグ 12 100 552453 キャップ黒 5 10000 6 450010 アルコール 79 1000 854657 ラベル細 102 3000 〜〜〜〜各表とも100以内の行数で変動あり。数量はHLOOKUPを使って別のブックにある計画表から日付を検索値に参照したもの。並び替えも可能。【整形】行数表のデータを整形するために一時的にコピーするためのシート【搬送予定表】罫線による表で、行数表のデータをR8C2〜R27C4の範囲に貼り付ける【やりたいこと】行数表の表「原料表A」と「原料表B」の数量が入力されているデータを抜き出しコード、品名、数量だけをSheet搬送予定表にコピーし、コード順に並び替えたい。数量が入力されている行は20を超えることはない。【自分のやり方】原料表Aを数量を降順で並べ替え、上から20行コピーし整形表に貼り付ける原料表Bも同上に、整形表に貼り付けた原料表Aのコピーの下の行に貼り付ける整形表を数量で並び替える行数列を削除するもし、数量が0より小さければコード、品名、数量に""を代入するコード順に並び替え、上から20行をコピーする搬送予定表の所定の位置に貼り付ける以上です。下記が標準モジュールに書いてあるプログラムです。 Sub 並び替え整形コピーペースト() Dim shA As String, shB As String, shF As String Dim rwA As Long, rwB As Long, rwC As Long Dim i As Long, rn As String, endR As Long, endD As Long Dim t, cr shA = "行数表" shB = "整形" shF = "搬送予定表" rwC = 1 rn = "D4" t = 3 Sheets(shB).Cells.ClearContents With Sheets(shF) .Range(.Cells(8, 2), .Cells(27, 4)).ClearContents End With For i = 1 To 7 Step 6 rwA = Sheets(shA).Cells(1000, i).End(xlUp).Row + 1 With Sheets(shA) .Range(.Cells(t, i), .Cells(rwA, i + 3)).Copy End With Sheets(shB).Cells(rwC, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False rwC = Sheets(shB).Cells(500, 1).End(xlUp).Row + 1 rn = "J4" t = t + 1 Next i With Sheets(shB) rwC = Sheets(shB).Cells(1000, 1).End(xlUp).Row cr = 5 .Columns("C:C").Delete Shift:=xlToLeft .Cells(1, 5) = "数量" .Cells(2, 5) = "<>0" .Range(.Cells(1, 1), .Cells(rwC, 3)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range(.Cells(1, 5), .Cells(2, 5)), Unique:=False End With With Sheets(shB) .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown).End(xlToRight)).Copy End With With Sheets(shF) .Cells(8, 2).PasteSpecial Paste:=xlValues .Range(.Cells(8, 2), .Cells(27, 4)).Sort Key1:=.Range("B8"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin .Cells(8, 2).Select End With With Sheets(shB) .ShowAllData .Cells.ClearContents End With End Sub 以上を元に、「こっちのほうがいいんじゃない」とか「これは無駄」などありましたら編集してコメント残していただければうれしいです。他の人の間違いを探すことが難しいことは重々承知しておりますが、何卒お力添えいただきたいです。できるだけ細かく書くよう心がけておりますが、必要な情報がありましたら聞いていただけたらと思います。また、レスが遅くなることをご容赦くださいませ。宜しくお願いいたします。 ---- Selectメソッドと、その直後に取得されているSelectionプロパティはおおむね省略することが出来ます。 Sheets(shA).Select Range(Cells(4, i), Cells(rwA, i + 3)).Select Selection.Sort Key1:=Range(rn), Order1:=xlDescending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin 上記は、下記のようにまとめることが出来ます。 With Sheets(shA) .Range(.Cells(4, i), .Cells(rwA, i + 3)).Sort _ Key1:=.Range(rn), Order1:=xlDescending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin End With また、 Application.CutCopyMode = False もコピー・切り取りした範囲のカットコピーモード（コピーした後、セル範囲の周囲の破線が点滅する状態）を解消するだけのものです。この後に何かデータの内容変更を伴うようなメソッドの実行があれば自動的にカットコピーモードは解消されるので、だいたいの場合、省略できます。 (みやほりん)(-_∂)b ---- 原材料A、原材料B それぞれを 20ずつコピーして貼り付けて居られる様ですが全体で数が入っている行が最大40行と決まっているならとにかく、原材料Aの下に原材料Bを貼り付けて数量で大きい順に並べ替えた後上から40行分に付いて数量0の削除とコードでの並べ替えを行いその範囲を搬送予定表に貼り付けでも良いのかな・・・と思いました。現在4回行われている並べ替えが、 2回に成るってだけですけどね。あとは、数量で降順に並べて「0」の物をある程度減らしてから・・・・としなくてもオートフィルタを設定して「0」以外の物を表示させるでも良いのかなと思いました。そうすると、並べ替えは1回で済みます。 (HANA) ---- (みやほりん)(-_∂)b様お返事ありがとうございます。早速変更させていただきました。 Withの使い方がよく分からず、今まで放置してきましたが色々な例を見て勉強していきたいと思います。 Application.CutCopyMode = Falseもマクロの記録で範囲選択をいつもESCキーで消していたためそのままコピーしてしまいました。今後は意味を調べた上で使って行きたいと思います。ありがとうございました。 (HANA)様お返事ありがとうございます。最初は原料表A、Bを一つの表にまとめていたのですが、・HLOOKUPで参照しているセルが違うこと・参照元のBookの名前が月ごとに変わる・数式の変更を容易に行いたい・コードや品名による並び替えでは原料表A、Bを区別できないの4点を検討したところ今の状態に落ち着きました。はじめに説明しなかった非礼をお詫びします。申し訳ございませんでした。オートフィルタの件は非常に参考になりました。別のBookで日付を抜き出すときに作ったコード（別のパソコンのため現時点では書き加えられない）がそのまま転用できそうです。ありがとうございました。（たかなし） ---- ん?読み違えてます? ＞Range(Cells(2, 1), Cells(21, 3)).Select 'コード順に並び替えこの部分で、結局原材料A、Bを区別することなくコード順に並び替えているのでは・・・? ↓の表だったら【行数表】シート [A] [B] [C] [D] [E] [F] [G] [H] [I] [J] [1] 原料表A 原料表B [2] コード品名行数数量コード品名行数数量 [3] 450020 ミント 60 500 854657 ラベル細 102 3000 [4] 450040 ナツメグ 12 100 325241 ボトルA 12 100 [5] 450010 Alc 79 0 552453 Cap 5 0 ↓になるのですよね。【搬送予定表】シート [B] [C] [D] [8] 325241 ボトルA 100 ←B [9] 450020 ミント 500 ←A [10] 450040 ナツメグ 100 ←A [11] 854657 ラベル細 3000 ←B というか、御提示のコードを動かしたら、そうなりますが。何処で「原料表A、Bを区別する」が絡んで来るのですか? また、上の3つについては、問題ないと思っていますが。。。。 (HANA) ---- あ・・・・コードの読み違えではなくてコメントの読み違えですね。・・・たぶん。「最初から一つの表にしておいてはどうか」と言う提案をしたのではなくマクロを実行したら 1.整形シートのデータ削除 2.整形シートに原材料Aのデータを値貼り付け（データのある最終行迄の範囲） 3.2の下に原材料Bのデータを値貼り付け（データのある最終行迄の範囲） 4.不要列（C列）の削除 5.数量を降順で並べ替え 6.上から40行分に付いて0の削除 7.この範囲をコード順に並べ替え 8.その範囲をコピーして、搬送予定表シートに貼り付けと言う流れにするのはどうかでした。現在は2の前に原材料Aのデータの数量を降順で並べ替え の作業が入り、3の前に原材料Bのデータの数量を降順で並べ替え が行われていますが、その2つをしないだけで基本的には同じ考え方をしたつもりです。そして、 5の段階でコード順に並べ替えをして 6.オートフィルタの設定、0以外抽出 7.搬送予定表シートのデータ削除 8.整形シートの表示部分をコピーして搬送予定表シートに貼り付けとすれば、もう一つ並べ替えが減らせます。ちなみに、訂正されたコードの Range(Cells(4, i), Cells(24, i + 3)).Select は、このままでは Sheets(shB) に実行されてしまいますよ。 ↓With のご理解が深まれば・・・。 A1セルの値を書き換えるので、複製ファイルで試してください。 Sub 確認() Dim shA As String, shB As String shA = "行数表" shB = "整形" MsgBox shB & "シートをアクティブにします。" Sheets(shB).Select MsgBox "Range(""A1"")に「整形シート」と書き込みます。" Range("A1").Value = "整形シート" With Sheets(shA) MsgBox ".Range(""A1"")に「行数表シート」と書き込みます。" .Range("A1").Value = "行数表シート" MsgBox "「Range(""A1"")」の値は " & Range("A1") & vbCrLf & _ "「.Range(""A1"")」の値は " & .Range("A1") & vbCrLf & " です。" MsgBox "「.Select」で " & .Name & " シートがアクティブになります。" .Select End With End Sub (HANA) ---- (HANA)様理解が及ばず重ね重ね申し訳ありません。確かに一度全てのデータをコピーしてしまえば並べ替えを二度繰り返す必要がないですね。 Withについてですが、コピーして試したところよりよく理解できました。本当にありがとうございます。まだまだ職場で変えていかなくてはならないものがたくさんあるので、指摘していただいたことを頭に頑張りたいと思います。ありがとうございました。（たかなし） ---- あとは、みやほりんさんが書いて居られますが＞Selectメソッドと、その直後に取得されているSelectionプロパティは＞おおむね省略することが出来ます。これは、↓の様な所にも言えます。 Sheets(shB).Select Cells.Select Selection.ClearContents 単純にSelectを無くして後ろに続けると Sheets(shB).Cells.ClearContents の1行になりますが、これは問題なくワークすると思います。しかも、どのシートが選択されている状態でも shBシートに画面が切り替わることなく、shBシートの内容を削除することが出来ます。マクロの記録からのコードだと、どうしても ○○.Select → Selection.×× と言ったコードになってしまいますが多くの場合、Selectしない方が処理速度が上がります。どのようなSelectなら単純な削除でワークするか同じ事が、他にはどの様に書けるのか。沢山怒られながら、色々な所を消してみて下さい。 (HANA) ---- HANA様早速本日いろいろ消してみたところ、いくつか動かないところがありました。変更箇所が全域に及ぶため、最初の記事を今現在（1/26）に差し替えておきます。いくつか動かなかった箇所は With Sheets(shA) .Range(.Cells(t, i), .Cells(rwA, i + 3)).Copy End With と Sheets(shB).Select Cells(2, 1).Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select と With Sheets(shF) .Cells(8, 2).PasteSpecial Paste:=xlValues .Select Range(.Cells(8, 2), .Cells(27, 4)).Select Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin End With の三箇所です。みやほりん様に教えていただいたことを頼りに、selectionを省略しようと1番目と二番目を Sheets(shA).Range(.Cells(t, i), .Cells(rwA, i + 3)).Copy と With Sheets(shF) .Cells(8, 2).PasteSpecial Paste:=xlValues .Range(.Cells(8, 2), .Cells(27, 4)).Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin End With のように直してみたのですが、コンパイルエラー参照が一致しません。と出たり、オブジェクトがありませんと出てしまいうまく動いてくれませんでした。 Selectを追加したり、値を変数ではなく数値にしたりとしてみましたが自分では気づけないようですので申し訳ないのですが教えていただけないでしょうか。また、二番目は抽出したデータのコピーをするためそのようにしたのですが、うまく同じ結果が得られる式にできなかったのでそのままにしてしまいました。こちらも併せて教えていただけると助かります。図々しいお願いではございますが、今一度宜しくお願いいたします。（たかなし） ---- セル番地を書くときは「どのシートに対する物か」意識するのが良いと思います。最初から2番目のコードですが＞Sheets(shF).Range(Cells(8, 2), Cells(27, 4)).ClearContents ‾‾‾‾‾‾‾‾‾‾‾ ‾‾‾‾‾‾‾‾‾‾‾‾ この二つは、Sheets(shF)のシートのセルですので Sheets(shF).Range(Sheets(shF).Cells(8, 2), Sheets(shF).Cells(27, 4)).ClearContents と書きます。 ‾‾‾‾‾‾‾‾‾‾‾‾ ‾‾‾‾‾‾‾‾‾‾‾‾ shFが選択されている時に実行すれば最初のコードでもエラーは起きませんが別のシートが選択されていると、エラーになります。よく見ると（見なくてもですが・・・）「Sheets(shF)」が3回もでてくるので Withでまとめてしまいます。 With Sheets(shF) .Range(.Cells(8, 2), .Cells(27, 4)).ClearContents End With この形は、現在一番目のご質問として載せて居られる部分と同じ形に成りますね。これを↓の様にしてしまうと（Withから出す）＞Sheets(shA).Range(.Cells(t, i), .Cells(rwA, i + 3)).Copy /‾‾‾‾‾‾‾‾‾‾‾ ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ 「どのシートのセルよ!!」って怒られてしまいますよ。二番目のご質問に関しては・・・・アクティブでないシートのセルをSelectさせようとすると、怒られます。それぞれ「どのシートの!!」ってエクセルに伝えながらセレクトせずに範囲を取得して行きましょう。＞ Sheets(shB).Select ＞ Cells(2, 1).Select ＞ Range(Selection, Selection.End(xlDown)).Select ＞ Range(Selection, Selection.End(xlToRight)).Select ＞ Selection.Copy 範囲の最初は Sheets(shB).Cells(2, 1) のセル最後は Sheets(shB).Cells(2, 1).End(xlDown).End(xlToRight) のセル ‾shBシート‾ ==A2====から‾下端セル‾‾の====右端==== のセルこれを、Rangeの中に入れます。 Sheets(shB).Range(Sheets(shB).Cells(2, 1), Sheets(shB).Cells(2, 1).End(xlDown).End(xlToRight)).Copy ‾‾‾‾‾‾‾‾‾最初‾‾‾‾‾‾‾‾‾‾ ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾最後‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ ここもWith を使ってしまいましょう。 With Sheets(shB) .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown).End(xlToRight)).Copy End With 三番目は惜しいことに Key1:=Range("B8") ‾‾‾‾‾‾‾‾‾‾\ここの前の「.」をお忘れです。もしもその下の「.Cells(8, 2).Select」が必要ならこれが実行されるまでに、Sheets(shF)がアクティブに成っている必要が有ります。こんな感じの変更をしてみるのでどうでしょう。 (HANA) ---- HANA様せっかくわかりやすくWithについて教えていただいたのに、理解が及んでおらず申し訳ありませんでした。私の中では単純に「主語を省略することができる」と解釈していました。改めて「どのシートの!!」などの言い回しはとてもわかりやすかったです。ありがとうございました。感謝の言葉しか返せず申し訳ありません。本当にありがとうございました。（たかなし） ---- AdvancedFilterはあまり使わないので忘れていましたがそう言えば、直接別シートに書き出すことが出来ます。抽出先のシート（搬送予定表）からフィルタオプションの設定をすることで抽出先をそのシートの任意のセルに設定出来ます。見出し行がついてきますので、見出しが違う場合は削除。（或いは揃える）同じ場合は、一行上に抽出しておけば整形シートの抽出データをコピーして、貼り付けや整形シートの非表示行を全て表示なんて事をしなくても良くなりそうです。まだ見て下さると良いのですが・・・。 (HANA) ---- HANA様わざわざありがとうございます。他の記事も自分の勉強のためにと思い、時間に余裕があるときにはこちらにお邪魔させていただいております。抽出先のシートにAdvancedFilterのコードを使うと直接抽出結果を表示させることができるのですか。参考になる記事か、マクロの記録で再現できるのであれば教えていただければと思います。（たかなし） ---- こんにちは。かみちゃんです。横から失礼します。 > 抽出先のシートにAdvancedFilterのコードを使うと直接抽出結果を表示させることができるのですか最近、フィルタオプションの設定でデータを抽出することが多くなり、同様のことをしています。私は、以下を参考にしてみて、勉強しました。 http://www.eurus.dti.ne.jp/‾yoneyama/Excel/filter3.htm#tyusyutu ポイントは、 HANAさんも >> 抽出先のシート（搬送予定表）から >> フィルタオプションの設定をすると書かれていますが、別のシートに抽出する場合には、抽出先をアクティブにした状態で操作します。 (かみちゃん) 2009-01-27 23:06 ---- おっと、かみちゃんさんからコメントがつきましたが書きかけだったのでそのまま載せておきますね。それは良かったです。一つ御願いが有るのですがご自身のスレ内でも、署名を付けて頂けませんか? 署名を忘れて書き込みをして仕舞うことも多々有りますし参加者が増えてくると、どれが誰の発言かわかりにくくなって仕舞いますので。＞マクロの記録で再現できるのであれば教えていただければと思います。と思いまして抽出先のシート（搬送予定表）からフィルタオプションの設定をすることで抽出先をそのシートの任意のセルに設定出来ます。と書いてみました。現在使って居られるコードと、少し変わります。（設定する項目も増えます。抽出先の指定が。） (HANA) ---- かみちゃん様ご提示いただきありがとうございます。現在ゆっくり見ることができませんので、御礼だけお先に失礼いたします。 HANA様署名の件申し訳ありませんでした。先ほど訂正させていただきました。ご指摘いただきありがとうございます。頭が回らなくてすみません。マクロの記録も後ほど試してみます。取り急ぎお礼までに。ありがとうございました。（たかなし） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200901/20090123142335.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ