Excel（エクセル）活用コミュのVBA 並べ替えが上手くできない

こんにちは。

VBAから並べ替えを行なっているのですが、どうも並び替えるリストが日本語の所為か並び替えを実行しても上手く行きません。
なにかいい方法はないでしょうか？

コードは以下の通り
-----------------------------------------
Dim MyRange2 As Range
Dim fukusyoku2 As String
Dim 最終行2 As Integer
Dim k As Long
For k = 1 To 9
If k <> 5 Then
最終行2 = Cells(Rows.Count, 12).End(xlUp).Row
fukusyoku2 = Me.Controls("ComboBox" & CStr(k + 6)).Value
Set MyRange2 = Columns("L").Find(What:=fukusyoku2)
If MyRange2 Is Nothing Then
Cells(最終行2 + 1, 12).Value = Me.Controls("ComboBox" & CStr(k + 6)).Value
最終行4 = Cells(Rows.Count, 12).End(xlUp).Row

　 Range(Cells(4, 12), Cells(最終行4, 12)).Sort , _’ココからが並び替えの記述です
Key1:=Range("L4"), _
Order1:=xlAscending, _
Header:=xlYes, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin　　　　　　　　　　　　　　　　'ここまで

　 End If
副他 = Cells(6, 15).Value
Me.Controls("ComboBox" & CStr(k + 6)).List = Range(Cells(4, 12), Cells(4 + 副他, 12)).Value
End If
Next k

----------------------------------------------------

因みにリストには食事メニューが入っています。
例）
牛肉煮物
空也蒸し
高野五目煮
高野卵とじ
切り昆布と大豆煮
豆腐中華風和え
里芋えびあんかけ
粒々スープ

など

エクセル2003　XPです。

コメント(5)

最初
全て
最新の40件

[2] mixiユーザー 04月20日 18:29

コード自体は(Sortメソッドを呼んでいるだけなので)おかしくは無いと思います。
この場合、文字コードで評価した大小関係でソートされてしまうので、
人間の読みとは異なる結果になってしまう場合がある事が問題なんですよね？？
そうであれば、別途項目に対応付けてふりがなのセルを用意し、
そちらをキーにしてソートをかければ良いのでは？

以下、余談(愚痴)です。
「上手く行きません」と書かれても、何をしたいのか、
何が問題なのかがはっきりしません。
「現状XXXな動作をしてしまうけれども、やりたい処理はYYYです。」
という感じに具体的に記述した方が、ご自身のためにも後から読む人の
ためにもなると思います。

[3] mixiユーザー 04月30日 12:39

返事が遅くなり申し訳ありません。

そうですね。やりたいことが書かれてませんでした。。。反省
--------------
牛肉と大根煮物
牛肉煮物
空也蒸し
高野五目煮
高野卵とじ
炊き合わせ
切り昆布と大豆煮
豆腐中華風和え
南瓜オープンオムレツ
八杯汁
麻婆じゃが芋
里芋えびあんかけ
粒々スープ
---------------
現状は上のように並んでいるものをあいうえお順に並び替えたいです。

---------------
南瓜オーブンオムレツ
牛肉と大根煮物
牛肉煮物
切昆布と大豆煮
空也蒸し
高野五目煮
高野卵とじ
里芋えびあんかけ
炊き合わせ
粒々スープ
豆腐中華風和え
八杯汁
麻婆じゃが芋
---------------

となるように並べ替えたいのです。

[4] mixiユーザー 04月30日 12:44

このばあい、漢字に対する読み仮名を準備してそのカラムにてソートしないと無理ですね。
漢字の場合、基本的に音読みで並んでいますので読んだとおりには並びません。

[5] mixiユーザー 04月30日 14:29

＞みゃさん
そうですか。ふりがなを取得する記述を加えてソートします。

ログインすると、みんなのコメントがもっと見れるよ