エクセル,excel VBA。一定時間ごとにアクティブシート(sheet)について、並び替え（昇順）をしたいと思います。

シートに[Start]ボタン、[Stop]ボタンを配置して、

それぞれにクリックイベントを割り当てます。

以下、サンプルです。参考としてください。

Option Explicit

'スリープのAPI

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'停止フラグ

Private STOP_FLAG As Boolean

'Startボタンのクリックイベント

Private Sub btnStart_Click()

　　Dim i As Integer

　　STOP_FLAG = False

　　Do

　　　　'待ちを入れるのと、Stopボタンを受け入れる

　　　　For i = 1 To 300

　　　　　　Sleep (100) '[ms]

　　　　　　DoEvents

　　　　　　If STOP_FLAG Then

　　　　　　　　MsgBox "おしまい"

　　　　　　　　Exit Sub

　　　　　　End If

　　　　Next i

　　　　'A1:B5 は、ソートするセル範囲

　　　　'B1は、ソートする列の先頭

　　　　'Order1:=xlAscending (昇順)　xlDescending（降順）

　　　　' 二番目に優先されるキーがある場合は、Order2

　　　　' 三番目に優先されるキーがある場合は、Order3　とつづくと思います。

　　　　Range("A1:B5").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _

　　　　　　xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

　　　　　　SortMethod:=xlPinYin, DataOption1:=xlSortNormal

　　Loop

End Sub

'Stopボタンのクリックイベント

Private Sub btnStop_Click()

　　STOP_FLAG = True

End Sub