Results of 1 - 1 of about 2689 for 並べ替え (0.002 sec.)
- [[20050908144923]]
- #score: 4561
- @digest: 7a7a31c1af8d93ac0b121665788ce933
- @id: 16768
- @mdate: 2005-09-08T07:47:28Z
- @size: 1398
- @type: text/plain
- #keywords: 客() (14536), え顧 (7748), 山栄 (7748), 栄工 (7748), i363 (7620), xlstroke (5728), 全シ (3007), 本コ (2763), ク: (2576), xlascending (2379), ordercustom (2379), 業") (2232), ト同 (1868), sortmethod (1738), xltoptobottom (1710), 工業 (1705), order2 (1482), orientation (1328), 録か (1280), matchcase (1252), ドボ (1250), key2 (1102), xlno (994), コマ (916), ト構 (888), 顧客 (818), マン (773), order1 (715), key1 (620), header (550), べ替 (539), ら作 (495)
- 『全シートの並べ替えについて』（さぶ）
WinXP Excel2000 いつもお世話になっております。 現在、マクロの記録から作成したマクロを、コマンドボタンに登録し、全シートに コマンドボタンをコピーして、シートごとに並び替えをしておりますが、シート構成は 全シート同じなので、コマンドボタンひとつで、全シートの並べ替えをしたいと思い、 Worksheets("トラック:山栄工業")などと、付け加えてみましたが、エラーが出てしまいます。 以下のコードは、マクロの記録から作成されたものです。 どこをどうしたらよいのか教えてください。 Sub 並べ替え顧客() Range("A10:I363").Select Selection.Sort Key1:=Range("A10"), Order1:=xlAscending, Key2:=Range("I10") _ , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, SortMethod:=xlStroke End Sub 宜しくお願い致します。 ---- Sub 並べ替え顧客() For Each ws In Worksheets ws.Range("A10:I363").Sort Key1:=ws.Range("A10"), Order1:=xlAscending, Key2:=ws.Range("I10") _ , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, SortMethod:=xlStroke Next End Sub BJ ----- （BJ)さん、ありがとうございます。 本コードにて、無事に並べ替えが出来ました!! 追加していただきました、コードについて、勉強させていただきたいと思います。 またお世話になると思いますが、宜しくお願い致します。 （さぶ）... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200509/20050908144923.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97048 documents and 608239 words.
訪問者：