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

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

[[20120827112058]]: #score: 4561; @digest: e16aacdd999e0d82d1e2d5e32f83f73c; @id: 60018; @mdate: 2012-08-30T02:58:27Z; @size: 5844; @type: text/plain; #keywords: ルmo (7481), xlpinyin (5479), sortmethod (5216), xltoptobottom (5130), xldescending (4268), orientation (3986), matchcase (3756), xlyes (3346), order1 (2863), 留意 (2713), 意点 (2399), ル領 (2396), header (2200), key1 (1861), xlascending (1784), び替 (1767), sort (1731), 合セ (1514), 並び (1463), て並 (1427), 行全 (1389), 結合 (1299), シジ (1120), 替え (1111), 領域 (1047), 準モ (1019), モジ (948), ジュ (906), シェ (903), ボタ (889), トシ (871), ェイ (850); 『データの並び替え』（みな）
Excel2003を使用してます。 D列のデータによって並び替えをしたいと思っています。下記のようなコードを書きデータの並べ替えはできるのですが新しい行を書き込む度にマクロの実行を押して並べ替えをするという感じになります。 Sub prcSort() Range("A5:L17").Sort _ Key1:=Range("D1") _ , Order1:=xlAscending _ , Header:=xlYes _ , MatchCase:=False _ , Orientation:=xlTopToBottom _ , SortMethod:=xlPinYin End Sub これを新しい行を追加で記入する度に勝手に並び替えするようにはできませんでしょうか? よろしくお願いします。 ---- D列のデータ行（6行目以降)に値が入力されればいかが自動的に動く。 (追加のみならず、既存のD列のどこかが変更されても動く) このシートのシートモジュール（シートタブを右クリックしてコードの表示を選ぶと出てくるところ）に以下をコピペ。 Private Sub Worksheet_Change(ByVal Target As Range) Dim z As Long If Target.Row > 5 Then If Not Intersect(Target, Columns("D")) Is Nothing Then Application.EnableEvents = False z = Me.UsedRange.Cells(Me.UsedRange.Cells.Count).Row '最大行番号 Range("A5:L" & z).Sort _ Key1:=Columns("D") _ , Order1:=xlAscending _ , Header:=xlYes _ , MatchCase:=False _ , Orientation:=xlTopToBottom _ , SortMethod:=xlPinYin Application.EnableEvents = True End If End If End Sub (ぶらっと) ---- ↑ 留意点要求されたテーマのコードとしては上記のとおりだけど、使いづらいかもね。たとえば今、10行目に追加しているとする。A10->B10->C10 といれて、D10 に入れた瞬間に並び替えが発生する。で、今、入力していた行は、D列の値に応じて、しかるべきところに移動する。でも、入力としては、そのあと E列にもF列にも入れるんだよね? 何もしなければ、D10列の入力の後、カーソルは E10 にあり、そこに値を入力するわけだけど入れようとしている行は、どこかに移動して、カーソルは【新しい10行目】のE列にある。どこかの領域から、行全体をコピペして追加すれば、操作上問題ないだろうけど。それから、たとえば、最終行への入力を、別のマクロでやったとする。そのマクロは最終行が10行目ということを認識して、A10,B10,C10,D10,E10,F10・・・に値を入れるとする。そうすると、D10 まではいいんだけど、E10以降、【別の行】に転記されることになる。なので、【勝手に】というのは、どうなんだろうね? 行に値を入れ終わったら、さぁ、並び替えというように、マクロを走らせたほうがよくない? もちろん、コードは、【いつ、行に値が入れ終わるか】は判断できないので、入れ終わった時点でそちらからのアップ済みのようなコード（最終行は動的に与える必要はあるけど）をボタンなんかに登録して、それをクリックしたほうが無難だと思うよ。 (ぶらっと) ---- ぶらっとさん、ありがとうございます。教えていただいたコードでできた〜と思ったのですが留意点を読ませていただいて私一人が使うのではなくみんなで共有なので D列以後の行が飛んでしまうのでは使いにくいと思い教えていただいたとおり 1行全部入力後ボタンにて並び替えが出来るように作成し完成しました。本当にありがとうございました。 ---- 再度質問させてください。先日教えていただいたとおりボタンを作成し並べ替えができるようになったのですが、 1シートではうまく動いたのですが 2シート別々の並び替えがしたく同じようにボタンを作成しマクロを登録すると「実行時エラー "1004" この操作には同じサイズの結合セルが必要です」となり Range("A26:R37").Sort _ Key1:=Range("M1") _ , Order1:=xlDescending _ , Header:=xlYes _ , MatchCase:=False _ , Orientation:=xlTopToBottom _ , SortMethod:=xlPinYin または Range("A26:R37").Sort _ Key1:=Range("M1") _ , Order1:=xlDescending _ , Header:=xlYes _ , MatchCase:=False _ , Orientation:=xlTopToBottom _ , SortMethod:=xlPinYin がすべてエラーになってしまいます。シート1でボタンのマクロを標準モジュール Module1に Sub オートシェイプ5_Click() Range("A5:L17").Sort _ Key1:=Range("D1") _ , Order1:=xlAscending _ , Header:=xlYes _ , MatchCase:=False _ , Orientation:=xlTopToBottom _ , SortMethod:=xlPinYin End Sub シート2でボタンのマクロを標準モジュール Module2に Sub オートシェイプ3_Click() Range("A26:R37").Sort _ Key1:=Range("M1") _ , Order1:=xlDescending _ , Header:=xlYes _ , MatchCase:=False _ , Orientation:=xlTopToBottom _ , SortMethod:=xlPinYin End Sub と登録しました。結合セルが必要とはどのようにすればいいのでしょうか? シート3、シート4でも並び替えが必要なデータがあり同じようにボタンにて並び替えをさせたいと思ってます。お手数おかけしますがなにとぞよろしくお願いします。 ---- 老眼が進んだのか Range("A26:R37").Sort _ ' ' または Range("A26:R37").Sort _ ' ' とあるところ、どうみても「または」ではなく、おなじに見えるけど。まぁ、それはさておき、この操作には同じサイズの結合セルが必要ですこれを検索ワードにしてネット検索するとどっさりとでてくるのでいくつか目を通しておいてほしい。マクロではなく、エラーのあったシートで、操作で、マクロが並び替えようとしているセル領域を選択して手作業で並び替えを実行してみるとどうなるかな? もし、こうした場合にはエラーなく並び替えが実行できるなら、あれこれ悩んで調べてみるけど操作でやっても同じエラーになるはず。 並べ替えをしようとしているセル領域の行は、すべてが結合されていないセルか、あるいは結合されているセルを結合状態の1列だけで並び替えることはできるけど、それ以外はだめ。ところで、シートごとの実行プロシジャを標準モジュールをわけて記述しても、もちろんいいけど 1つの標準モジュールにすべて書いてもいいんだよ。プロシジャ名は、もちろん、変えなきゃいけないけど。 (ぶらっと) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201208/20120827112058.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ