返回列表 上一主題 發帖

[發問] 請教停止執行公式

[發問] 請教停止執行公式

按動按鈕後想於指定時間內停止執行以下公式內動作,請老師和同學們幫忙完成我這個小製作吧!謝謝

Sub 按鈕1_Click()

    Application.OnTime Now + TimeValue("00:01:00"), "按鈕1_Click"
   
    Range("A1:D10").Value = Range("I1:L10").Value
   
    Range("A1:D10").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlStroke, DataOption1:=xlSortNormal
    Range("G1").Select
   
End Sub

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題