Excel VBA質問箱 IV

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

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


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

30025 / 76732

←次へ　｜　前へ→


	【51980】ソートに関して

おタケ - 07/10/14(日) 12:46 -


	引用なし

	パスワード

初めまして。ソートに関して質問します。

Range("A4:G22").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke
Range("A4").Select

このまま使う分には問題ないのですが、
・ソート範囲
・キーセル
の部分を変数に置き換えると動かなくなります。

Sub MainMacro()
Dim sortuser As Range

sortuser = UserSort(Range("A4:G100"), Range("A4"), "sheet1")

End Sub

Function UserSort(sellRange As Range, celKye1 As Range, sheetname As String)

Workcheets(sheetname).Activate
Range(sellRange).Select
Selection.Sort Key1:=Range(celKye1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke
Range("A4").Select
End Function

指定の仕方が間違っているのでしょうか。
アドバイスお願いいたします。

0 hits

▼

【51980】ソートに関して おタケ 07/10/14(日) 12:46

≪