Excel VBA質問箱 IV

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

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


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

11758 / 76807

←次へ　｜　前へ→


	【70581】Re:並べ替えについて

ここ - 11/12/4(日) 12:40 -


	引用なし

	パスワード

▼kanabun さん：

早速のご回答ありがとうございます！
やりたかったことがばっちりできました。

どうもありがとうございました。

>▼ここさん：
>
>>マクロの記録から並べ替えを行いましたが、
>>セル指定の記述となるため次回以降行数が増加していた場合は、
>>記述範囲内での並べ替えしかできず困っています。
>
>Excel2010 ですか？
>
>変数を使うといいですよ。
>（ためしてないので動く保証はないですが、こんな感じで）
>
>Sub test()
>　Dim r As Range
>　
>　With ActiveWorkbook.Worksheets(1)
>　　　Set r = .Range("A4").CurrentRegion
>　　　With .Sort.SortFields
>　　　　　.Clear
>　　　　　.Add Key:=r.Columns("B"), SortOn:=xlSortOnValues, _
>　　　　　　　Order:=xlAscending, DataOption:=xlSortNormal
>　　　　　.Add Key:=r.Columns("F"), SortOn:=xlSortOnValues, _
>　　　　　　　Order:=xlAscending, DataOption:=xlSortNormal
>　　　　　.Add Key:=r.Columns("C"), SortOn:=xlSortOnValues, _
>　　　　　　　Order:=xlAscending, DataOption:=xlSortNormal
>　　　End With
>　　　With .Sort
>　　　　　.SetRange r
>　　　　　.Header = xlYes
>　　　　　.MatchCase = False
>　　　　　.Orientation = xlTopToBottom
>　　　　　.SortMethod = xlPinYin
>　　　　　.Apply
>　　　End With
>　End With
>End Sub
>
>> .Range("A4").CurrentRegion
>
>これが列見出しを含めたソート範囲となります。
>3行目は空白行であることが必要です。

2 hits

▼

【70578】並べ替えについて ここ 11/12/4(日) 0:14