エクセルマクロのソートについて

質問

こんにちわ！

エクセルマクロのソートについて質問です。

プロシャージャを使ってソート使いまわそうと思うのですが、範囲、並び替えキーを変えたいと思うのですが可能でしょうか？

Sub Sort()
　　 Range("A1:c10000").Sort _
Key1:=Range("a1")
, Order1:=xlAscending _
, Header:=xlGuess _
, MatchCase:=False _
, Orientation:=xlTopToBottom _
, SortMethod:=xlPinYin
End Sub

一応、動作はしませんが下記のようなイメージで動かしたいです。

Sub Sort()
Dim key As String
Dim hanni As String
key = Range("a1")
hanni = Range("A1:c10000")
'セルhanniの範囲のデータをkey列をキーに昇順に並べ替えます
hanni.Sort _
Key1:=key _
, Order1:=xlAscending _
, Header:=xlGuess _
, MatchCase:=False _
, Orientation:=xlTopToBottom _
, SortMethod:=xlPinYin
End Sub

可能でしょうか？
わかる方おりましたらアドバイスの程お願いします。

回答No.1

mt2008 · ベストアンサー

Stringは文字列なのでRangeを使います。

Dim key As String
Dim hanni As String
key = Range("a1")
hanni = Range("A1:c10000")

↓

Dim key As Range
Dim hani As Range
Set key = Range("A1")
Set hani = Range("A1:C10000")

お礼

ありがとうございます＾＾
基本がまだまだわかっていないのでとても助かりました＾＾
ありがとうございます＾＾

回答No.4

layy

高速なSORTコマンドを使うのが普通のようだが、状況変わると使えない、と思ってしまうのかな？。

参考に
ソート自身はアルゴリズム定番でプログラム化していた話です。１番目と２番目比べてどう？、１番目と３番目比べてどう？、という感じで。メインの動きは２０行いかないくらい。
SORTコマンドの使い方覚えるより遥かに役に立つ。
これがあればシートの並べ替えとか順番付けも出来るようになる。

『VBA　並べ替え　アルゴリズム』で検索。

お礼

こんな方法もあったんですね！
とても勉強になります！
ありがとうございます＾＾

回答No.3

imogasi

使いまわす、とはユーザーにその都度指定させるということでしょう。
ずばり僧書いて質問したら。質問のコードなど参考にならない。マクロの記録で出てくる程度のことで、回答するほどの人は
知っていることだろう。
其れで質問表題が不適当。
Acendingを仮定するなら、
列のデータ最終行は
Sub test01()
d = Cells(65536, "A").End(xlUp).Row
MsgBox d
End Sub
で分かるから、列指定をさせれば仕舞いでは。
例えばInputboxで。
または決めたセルに入力させるとか。
ーー
またはApplication.InputBoxで範囲を指定させる方法もあると思う。WEBで照会すること。

回答No.2

しんちゃん（@Cindy0112）

public sub Sort( argKey as string, argScope as string)

ここに　そーとのプログラム

end sub

お礼

なるほど！
こんなやり方があるんですね＾＾
助かりました＾＾