Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6658 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【43966】ソートについて Yoshi 06/10/31(火) 12:14 質問[未読]
【43970】Re:ソートについて ひげくま 06/10/31(火) 12:51 発言[未読]
【43973】Re:ソートについて Jaka 06/10/31(火) 15:04 発言[未読]
【43975】Re:ソートについて Jaka 06/10/31(火) 15:13 発言[未読]
【43976】Re:ソートについて Kein 06/10/31(火) 15:47 回答[未読]
【43966】ソートについて
質問  Yoshi  - 06/10/31(火) 12:14 -
引用なし
パスワード
   ここで質問する内容ではないかもしれません。
本題に入ります。

１０．４．１９
１１．３．２６
１２．３．２０
１４．５．２
５．１０．７
６．４．２２
８．９．１５
９．３．１４

上の数字はそれぞれ年．月．日を表しています。ソートをマクロで組んで古い順番に並べ替えを実行した結果なのですが、本来なら、５．１０．７が一番上に来るはずなのに、期待した結果になりませんでした（マクロではなく、普通にエクセルの機能としてのソートでやっても同じ結果）。そこで、元号が一桁の数字を二桁にして実行してみたら（５を０５、６を０６・・・）うまくいったのですが、なんとしても一桁の数字は一桁のままで古い順番にソートをかけたいのですが、何かいい方法はないでしょうか？
【43970】Re:ソートについて
発言  ひげくま  - 06/10/31(火) 12:51 -
引用なし
パスワード
   ▼Yoshi さん：
こんにちは。

値が、数字扱いではなく、文字列扱いになっている可能性が大きいと思いますが、セルの書式がどうなっているのか、と、実際のマクロを見ないと、何とも言えません。

実際に組んだマクロを載せてみてはいかがですか？
【43973】Re:ソートについて
発言  Jaka  - 06/10/31(火) 15:04 -
引用なし
パスワード
   作業列を使って作業列に
=TEXT(LEFT(A1,FIND("．",A1,1)-1),"00")
この列を第１キーとしてソート。

追加
上記は年用だけですから、月、日の作業列も使えば万全かと...。

月の作業列用
=TEXT(LEFT(MID(A1,FIND("．",A1,1)+1,10),
FIND("．",MID(A1,FIND("．",A1,1)+1,10),1)-1),"00")

日の作業列用
=TEXT(SUBSTITUTE(RIGHT(A1,2),"．",""),"00")
【43975】Re:ソートについて
発言  Jaka  - 06/10/31(火) 15:13 -
引用なし
パスワード
   作業列を使うなら、こっちのほうが簡単でしたね。
この列をキーにしてソートすれば良いです。
（意味不明の場合は、関数を入れたセルの表示形式を日付にすればわかります。）

=--("H" & SUBSTITUTE(A1,"．","/"))
【43976】Re:ソートについて
回答  Kein  - 06/10/31(火) 15:47 -
引用なし
パスワード
   実データは数値もピリオドも半角ですね ? で、日付形式になっているわけ
ではなくて、単に数値とピリオドを打ち込んだだけの値であるとします。
その範囲を選択して、以下のコードを実行してみて下さい。
長くて分かりにくいコードですが、いちおうこちらのテストは成功しています。

Sub MySort()
　 Dim C As Range
　 Dim Ary As Variant
　
　 If TypeName(Selection) <> "Range" Then Exit Sub
　 With Selection
　　　If .Columns.Count > 1 Then Exit Sub
　　　If .Areas.Count > 1 Then Exit Sub
　　　If InStr(1, .Cells(1).Value, ".") = 0 Then Exit Sub
　　　Application.ScreenUpdating = False
　　　.Offset(, 1).EntireColumn.Resize(, 2).Insert xlShiftToRight
　　　.TextToColumns DataType:=xlDelimited, Other:=True, _
　　　OtherChar:="."
　　　.Resize(, 3).Sort Key1:=.Columns(1), Order1:=xlAscending, _
　　　Key2:=.Columns(2), Order2:=xlAscending, Key3:=.Columns(3), _
　　　Order3:=xlAscending, Header:=xlGuess, _
　　　Orientation:=xlSortColumns
　 End With
　 For Each C In Selection
　　　With WorksheetFunction
　　　　 Ary = .Transpose(.Transpose(C.Resize(, 3).Value))
　　　End With
　　　C.Value = Join(Ary, ".")
　 Next
　 Selection.Offset(, 1).EntireColumn.Resize(, 2).Delete xlShiftToLeft
　 Application.ScreenUpdating = True
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6658 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free