![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
変更して使用したく以下の内容を知りたいのですが
SortFields.Add Key:=rng.Cells(1, 2), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Cells(1, 1), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Cells(1, 3), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOpti
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
=rng.Cells(1, 2)
ここの後ろのパラメータが上から順に2,1,3と並んでますよね。
それを1,2,3とすればいいのでは?
>2列目、1列目、3列目の順に基準を考えています。
って書いてるのに多少の類推はお願いします。
No.1
- 回答日時:
その前に
with ほにゃらか.Sort
があると思います。
(最初のSortFieldsが先頭のピリオドないのは?)
並べ替えはどこを基準に並べ替えるかを(それをキーと呼びます)
何段階かで指定できます。
このケースでいうと3段階に指定していて、mgがどこを指しているか
判りませんけど、多分ソートしたい範囲かな?
2列目、1列目、3列目の順に基準を考えています。
並べ替えの結果がそうなっていませんか?
有難うございます。
Option Explicit
Sub test2()
mySort Worksheets("Sheet1 ").Range("D365:F445")
mySort Worksheets("Sheet1 ").Range("D448:F528")
mySort Worksheets("Sheet1 ").Range("D531:F611")
End Sub
Function mySort(rng As Range)
Dim ws As Worksheet
Set ws = rng.Parent
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=rng.Cells(1, 2), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Cells(1, 1), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=rng.Cells(1, 3), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.SetRange rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Function
DEFにしたい場合はどこを変更すればよいのでしょうか。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) findメソッドの変数について 6 2023/06/23 08:01
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL
-
ウォータースライダーなどの身...
-
エクセルで時間を計算する場合...
-
EDATE関数で末日を正確に表示さ...
-
「普通に~」という言葉について。
-
積立型の投資信託…利益の計算方法
-
毎月決算型の投資信託で基準価...
-
2年前に買った投信が下がり続け...
-
「リーダーシャッツ」について
-
日本が株式投資をせずに銀行預...
-
来年からの新nisaでの運用について
-
UFJ自動積立の預金を引き出した...
-
投資信託の基準価格が上下する...
-
投資信託で月に1万円程度稼ぐに...
-
分配金受取型ってダメ?
-
日本の住宅が高騰してるのにJ-R...
-
全世界株式を買うならどれがお...
-
投資信託で、年4%の利廻りがあ...
-
ローリスク ローリターンで貯...
-
投資信託毎月配当型について 分...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
オルカンを8月1日付けで購入...
-
100×1.2と100÷0.8 どちらも20%...
-
ウォータースライダーなどの身...
-
EXCEL
-
「普通に~」という言葉について。
-
絶対値と相対値の違い
-
EDATE関数で末日を正確に表示さ...
-
低身長イケメン、中身長フツメ...
-
ハイスペ男子ですか?それとも...
-
数学 二次関数の場合分けのパタ...
-
友達ってどういう基準で選んで...
-
エクセルで時間を計算する場合...
-
フランス語の大過去の用法
-
投資信託の基準価額と買い方
-
ボッタクリ 基準なんだろ
-
Webカメラの選び方
-
世界一頭がいい人って誰ですか?
-
家系図って母方より父方を基準...
-
基準価格について
-
曖昧な基準を満たすとは何ですか?
おすすめ情報