返回列表下一主題上一主題發帖

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

笨小孩

中學生 Rank: 2

帖子: 77
主題: 19
精華: 0
積分: 115
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2023-7-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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