Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65513 / 76734

←次へ　｜　前へ→


	【15796】Re:セル内の１桁目のみでソート

ichinose - 04/7/6(火) 17:36 -


	引用なし

	パスワード

▼学さん：
こんにちは。私の地域は、暑いではなく、熱いです・・・。
皆さんの地域はいかがですか？

>↓のようなデータがあり、それをソートしたいのですが、
>A　　B　 C　　　
>0630 046 901567
>0701 056 815528
>0630 046 915200
>0630 046 163522
>0630 115 152968
>0705 056 162000
>0702 046 520001
>0630 046 920006
>
>１．Ａ列昇順、
>２．Ｂ列昇順、
>３．Ｃ列の上１桁で降順、
>４．Ｃ列昇順
>という条件(特に条件３から４)でソートをするには
>どのようにしたらよいのでしょうか？
>
>※ソート後↓
>A　　B　 C　　　
>0630 046 901567
>0630 046 915200
>0630 046 920006
>0630 046 163522
>0630 115 152968
>0701 056 815528
>0702 046 520001
>0705 056 162000
>
>ご教授よろしくお願いします。
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　学
問題点は、

　1.　>３．Ｃ列の上１桁で降順、
　2.　セルのソートはキーが３つしか指定できない点
ですよね！！

1.は、Ｄ列を作業領域にとりましょう。
ここに「=value(mid(c1,1,1))」なんて入れると上１桁が表示されるので
これをソート対象にします。

2.は、こういうのは、パターンが決まっていて、
　最初にＢ列、Ｄ列、Ｃ列をキーにソート
　次にＡ列でソートします。
これをコードにすると、

'================================================================
Sub main()
　 Dim rng As Range
　 Set rng = Range("a1", Cells(Rows.Count, 1).End(xlUp))
　 With rng
　　　With .Offset(0, 3)
　　　　 .Formula = "=value(mid(c1,1,1))"
　　　　 .Value = .Value
　　　　 End With
　　　With .Resize(, 4)
　　　　 .Sort Key1:=Range("B1"), Order1:=xlAscending, Key2:=Range("D1") _
　　　　　 , Order2:=xlDescending, Key3:=Range("C1"), Order3:=xlAscending, Header _
　　　　　 :=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
　　　　　 , SortMethod:=xlPinYin
　　　　 .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
　　　　　 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
　　　　　 :=xlPinYin
　　　　 End With
　　　.Offset(0, 3).Value = ""
　　　End With
End Sub

アクティブシートに例題のようなデータを配置して確認して下さい。

0 hits

▼

【15780】セル内の１桁目のみでソート 学 04/7/6(火) 15:32