Excel2000VBA 選択範囲をソートする実験

Excel2000VBA 選択範囲をソートする実験

 

Sub 選択範囲ソート2()
'あらかじめ範囲を選択する
'参考サイト　ttp://excelvba.pc-users.net/fol7/7_4.html
'昇順で並べ替え「A～Z」、数値の場合は「0～9」
'降順で並べ替え「Z～A」、数値の場合は「9～0」
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'アクティブシートの選択範囲をソート（ソートキーを左上）
      ActiveSheet.Range(Selection.Address).Sort Key1:=ActiveSheet.Cells(Selection.Row, Selection.Column), order1:=xlAscending      'xlAscending （昇順に並び替える）
                                                                                                                                                                                                                      'xlDescending (降順に並び替える)
End Sub

-------------------------------------------------------------------------

 

Sub 選択範囲ソート降順()
'あらかじめ範囲を選択する
'参考サイト　ttp://excelvba.pc-users.net/fol7/7_4.html
'昇順で並べ替え「A～Z」、数値の場合は「0～9」
'降順で並べ替え「Z～A」、数値の場合は「9～0」
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'アクティブシートの選択範囲をソート（ソートキーを左上）

ActiveSheet.Range(Selection.Address).Sort Key1:=ActiveSheet.Cells(Selection.Row, Selection.Column), order1:=xlDescending      'xlAscending （昇順に並び替える）
                                                                                                                                                                                                                      'xlDescending (降順に並び替える)
End Sub
Sub 選択範囲ソート昇順()
'あらかじめ範囲を選択する
'参考サイト　ttp://excelvba.pc-users.net/fol7/7_4.html
'昇順で並べ替え「A～Z」、数値の場合は「0～9」
'降順で並べ替え「Z～A」、数値の場合は「9～0」
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'アクティブシートの選択範囲をソート（ソートキーを左上）

      ActiveSheet.Range(Selection.Address).Sort Key1:=ActiveSheet.Cells(Selection.Row, Selection.Column), order1:=xlAscending      'xlAscending （昇順に並び替える）
                                                                                                                                                                                                                      'xlDescending (降順に並び替える)
End Sub
 

 

タグ：Excel2000 VBA ソート