標題: [發問] 請教停止執行公式 [打印本頁]

---

作者: 笨小孩    時間: 2012-12-28 15:59     標題: 請教停止執行公式

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

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

---

作者: oobird    時間: 2012-12-30 09:21

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)