返回列表 上一主題 發帖

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

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

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

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

前面加一行
If Time > TimeValue("10:00") Then Exit Sub

TOP

        靜思自在 : 做好事不能少我一人,做壞事不能多我一人。
返回列表 上一主題