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

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

[[20081021092112]]: #score: 4561; @digest: 6d69d11a73be0fe6c923266ca8cf7e65; @id: 40513; @mdate: 2008-10-21T02:24:03Z; @size: 4079; @type: text/plain; #keywords: 地蔵 (36149), 蔵） (9771), （地 (7385), 抹消 (6717), dataoption1 (6452), ordercustom (4758), xlsortnormal (3960), xlpinyin (3653), xlguess (3527), sortmethod (3477), xltoptobottom (3420), 代物 (3122), 出用 (2678), orientation (2657), matchcase (2504), xlascending (2379), header (2200), order1 (2147), b10 (1492), に昇 (1418), 提出 (1385), sort (1298), 規bo (1268), key1 (1241), 用紙 (1127), ソー (1122), べ替 (1079), 並べ (908), の用 (774), 昇順 (725), ー' (715), ・・ (646); 『ソート』（地蔵）
B1:B10全てに入力規則が設定してあり、適当に選択したものを他のセルに昇順に並べ替えしてリンクさせたくマクロの記録にて下記のようなものを作成しました。ところが下記だとなにかしら行動する度にカーソルがB1:B10に戻り、他のセルをいじってても逐一B1:B10に戻る為、大変不便です。ただ単に、B1:B10のみをソートさせるだけにするにはどうしたら宜しいでしょうか? Excel2003 Private Sub Worksheet_Change(ByVal Target As Range) Range("B1:B10").Select Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal End Sub ---- Select をやめれば良いのでは? (ROUGE) ---- こんな事かと思いましたが・・・・。 Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then Range("B1:B10").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal End If End Sub ＞B1:B10全てに入力規則が設定してありでしたら、並べ替えの Headerは「無し」にしておくのが良いと思います。また＞他のセルに昇順に並べ替えしてリンクが、実際にどの様な事を意味しているのか分からないので 並べ替えに関してのみです。あ・・・Select もやめました。お好みで戻して下さい。 (HANA) ---- 素早い対応ありがとうございます! 結果はHANAさんの方法で希望通りになりました。最初はROUGEさんのようにSelectを外して試したのですが、範囲内（B1:B10）なら問題ないのですが、それ以外のセルの時にエラーになったんです。それで処理方法が分からず教えていただきに参りました。＞実際にどの様な事を意味しているのか分からないので提出用の用紙を作成するにあたって、不規則に選択したオプション一覧を提出用の用紙に見栄え良く並べたかっただけなんです・・・単なる自己満足で申し訳ないです。 (>_<) （地蔵） ---- エラーになるとは? (ROUGE) ---- あれっ? 再発しなくなりました?? そのときは「メソッドが・・・」のようなエラーメッセージが出て Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal の部分が黄色くなったような・・・いらないところまで消してたのかな? ただ、Range("B1:B10").Selectを抹消しただけですが（^^;）（地蔵） ---- 何度もすみません。新規BOOKで試したら再現しましたので出現エラーを報告させていただきます。実行時エラー '1004': 並べ替えの参照が正しくありません。参照が 並べ替えるデータ内であることと[最優先されるキー]ボックスが空白でないことを確認してください。（地蔵） ---- > ただ、Range("B1:B10").Selectを抹消しただけですが（^^;）いや、そこは消しちゃだめでしょb HANAさんのコードをよ〜く目を凝らしてみてください。 (ROUGE) ---- ＞Select をやめれば良いのでは? はもしかしてこーゆーことですか?（恥） Private Sub Worksheet_Change(ByVal Target As Range) Range("B1:B10").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal End Sub ↑は問題なく動作しました! （地蔵） ---- ＞実際にどの様な事を意味しているのか分からないのでこれは、このコードが、長いマクロの一部なのかこれだけで完結する物なのか分からないと言う意味だったのですが・・・・ご希望の様に出来たようで良かったです。「Selection.Sort」→選択しているセル範囲をソートするようにエクセルに指示を出したのに 並べ替えが出来るデータが無いセル範囲（或いはセル）が選択されていたら「並べ替え出来ないよ!!」って言われますよね。ですから「Range("B1:B10").Sort」この範囲をソートしてねってお願いしてあげて下さい。 (HANA) ---- ご説明、痛み入ります! m(_ _)m 思いっきり、初歩的なミスですね! ちょっと考えればわかりそうなものなのに・・・ありがとうございました。因みにこのマクロはこれだけの代物でした。（地蔵） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200810/20081021092112.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ