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

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

[[20110527174041]]: #score: 4561; @digest: 85be466d7ab533c5106de10d8023bef6; @id: 54685; @mdate: 2011-05-28T03:43:26Z; @size: 3765; @type: text/plain; #keywords: xldialogsortspecial (15497), 店・ (11939), 日“ (7159), getcustomlistnum (5599), ン⇒ (4493), タ⇒ (3926), 支店 (3898), 数or (3827), 定リ (3139), ー設 (3090), dialogs (2969), myrow (2224), myc (2140), び替 (2061), 並び (1951), 店名 (1306), ordercustom (1189), 替え (1111), ルエ (1078), ユー (1006), ーザ (981), ザー (957), colorindex (954), パイ (922), ンパ (910), で並 (839), マク (828), entirerow (779), クロ (744), リス (736), 順番 (712), 宣言 (661); 『マクロで並び替え』（りりあん）
Excel2002,WindowsXP 支店名を並び替えるマクロを考えています。マクロでユーザー設定に登録している項目で並び替えをしたいと思います。自分のPCでしたらデータ⇒並び替え⇒オプション⇒で並び替えをしたい項目を設定すればよいのですが、何台かのPCで同じマクロを使っての作業をしたいと思っています。ユーザー設定に登録している順番が違っている為、私が登録したマクロを他のPCでマクロを実行すると並び替えのオーダー番号が違う為並び替えが出来ません。ユーザー設定を使用しないで任意の並び替えが出来る事は出来ますか? ちなみに並び替えをしたい順番ですが・・・札幌支店・青森支店・八戸支店・岩手支店・仙台支店・・・といった感じです。リストはA列〜AC列まであり、B列の支店名を上記の順番で並び替えをしたいのです。 ※作成するたびにリストの件数は増減します。ユーザー設定を使用しないで任意の並び替えは無理と言うようでしたらマクロでデータ⇒並び替え⇒オプション⇒で並び替えをしたい項目を指定するような方法でもいいです。『並び替えの順序を指定してください』みたいなメッセージとかが出るといいのですが・・・よろしくお願いします。 17:41 りりあん ---- ユーザー設定リストの番号を返すものに GetCustomListNum メソッドがあります。取得した番号を引数OrderCustomに指定。詳しくはヘルプを参照のこと。こう言うケースを回避するために、支店番号を割り振ったりもしますね。 (みやほりん)(-_∂)b ---- ユーザー設定リストに並び順のリストを追加しておいてください。並び替えのダイアログを表示させて、オプションでユーザー設定したリストを選択させればよいかと Sub test() Dim las As Long With Sheets("Sheet1") las = .Range("A" & Rows.Count).End(xlUp).Row .Range("A1:AC" & las).Select MsgBox "並べ替えの設定をしてOKボタンを押してください。しない場合はOKボタンを押してください。" Application.Dialogs(xlDialogSortSpecial).Show .Range("A1").Activate End With End Sub ma ---- みやほりんさんご回答ありがとうございます。メゾットもう少し勉強してみます。(@_@。 maさんマクロのコードありがとうございます。この内容だとSheet1でマクロを実行するという内容ですか? すみませんがシート名を固定しないどのシートでもマクロが実行できるようにしたいのですが・・・ 5/28 9:14 りりあん ---- 昨日“みやほりん”さんに教えてもらったマクロのコードとmaさんのマクロのコードを少しいじって見ました。 (マクロ初心者でコードの意味がわからないので多分変なコードがあると思いますが・・・) 途中でコンパイルエラーが出てしまいました。どうしたら良いでしょうか? Dim myRow As Long myRow = Range("A" & Rows.Count).End(xlUp).Row Range("A1:AC" & las).Select MsgBox "並べ替えの設定をしてOKボタンを押してください。" Application.Dialogs(xlDialogSortSpecial).Show Range("A1").Activate Range("AB2").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-15]=""*"",IF(MOD(RC[-19],2)=1,1,2),RC[-15]="""")" Range("ab2").Copy Range("ab3:ab" & Range("g" & Rows.Count).End(xlUp).Row) Application.CutCopyMode = False Columns("AB:AB").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Dim myC As Range Dim myRow As Long ⇒ココでコンパイルエラーが出ました。 myRow = Range("A1").CurrentRegion.Rows.Count Cells.Font.ColorIndex = xlColorIndexAutomatic For Each myC In Range("AD1:AB" & myRow) Select Case myC.Value Case Is = "1" myC.EntireRow.Font.ColorIndex = 11 Case Is = "2" myC.EntireRow.Font.ColorIndex = 41 End Select Next myC ---- 既に一行目で変数 myRow を宣言しています。同一プロシージャ内で二度は宣言できませんので、削除です。 (seiya) ---- seiyaさんありがとうございました。無事出来ました。 12:43 りりあん ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201105/20110527174041.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ