- 帖子
- 77
- 主題
- 19
- 精華
- 0
- 積分
- 115
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-2-19
- 最後登錄
- 2025-5-13
|
按動按鈕後想於指定時間內停止執行以下公式內動作,請老師和同學們幫忙完成我這個小製作吧!謝謝
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 |
|