
VBAで並べ替え(ソート)するコードを使用しています。
ソートする対象の文字列が非常に長いので、
変数に格納しようと考え、コードを書き換えしましたが、
「型が一致しません」というエラーになります。原因が自分ではわからないのですが、どなたか教えていただけませんでしょうか?
<変更前>
Sub hm()
Dim wb As Workbook
Dim bk As Workbook
Dim ws As Worksheet
Dim n As Long
Set ws = ActiveSheet
Dim メニュー一覧 As String
メニュー一覧 = "朝食プランA,朝食プランB,朝食プランB,朝和定食,朝洋定食,コーヒーセット"
ws.Range("G12:W21").Select
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=Range("V12:V21"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"朝食プランA,朝食プランB,朝食プランB,朝和定食,朝洋定食,コーヒーセット", DataOption:=xlSortNormal
ws.Sort.SortFields.Add Key:=Range("W12:W21"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ws.Sort
.SetRange Range("G12:W21")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End sub
<変更後>
Sub hm()
Dim wb As Workbook
Dim bk As Workbook
Dim ws As Worksheet
Dim n As Long
Set ws = ActiveSheet
Dim メニュー一覧 As String
メニュー一覧 = "朝食プランA,朝食プランB,朝食プランB,朝和定食,朝洋定食,コーヒーセット"
ws.Range("G12:W21").Select
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=Range("V12:V21"), _
SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
メニュー一覧, DataOption:=xlSortNormal
ws.Sort.SortFields.Add Key:=Range("W12:W21"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ws.Sort
.SetRange Range("G12:W21")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
17時頃夕飯食べる家はあります...
-
朝食を4時半に食べたら太る?
-
お腹が空いてないときでも,食...
-
平日の朝、食欲がわかず毎日カ...
-
朝食をがっつり食べると、毎日...
-
キッチンのない会社の寮 食生...
-
いつも朝昼ほぼ食べない(飲み物...
-
大阪万博内で9時前に食べられる...
-
朝ジュースダイエット
-
ロングブレスダイエットについて
-
朝起きられません。
-
食事の時間間隔
-
夕食はウィダーインゼリーでも...
-
朝練前の食事
-
朝食について
-
ダイエット中の朝ごはんについ...
-
朝食後の眠気
-
11時に朝食(ブランチ)を食べ...
-
80kgからどのようにダイエット...
-
あるあるの豆乳ダイエットのこ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
皆さんの朝食、昼食、夕食を作...
-
朝食は、何を食べますか? どん...
-
朝食を4時半に食べたら太る?
-
朝食の定義って?
-
朝四時ごろのご飯は太る? その...
-
17時頃夕飯食べる家はあります...
-
朝食をがっつり食べると、毎日...
-
11時に朝食(ブランチ)を食べ...
-
朝食について
-
いつも朝昼ほぼ食べない(飲み物...
-
大阪万博内で9時前に食べられる...
-
ダイエット中に果物の缶詰めっ...
-
平日の朝、食欲がわかず毎日カ...
-
夕食はウィダーインゼリーでも...
-
お腹が空いてないときでも,食...
-
朝食後の眠気
-
朝起きてからの行動について 朝...
-
朝食を食べるは二重表現ですか?
-
1日2食でもいいの?
-
最近食欲が異常すぎます
おすすめ情報