- 帖子
- 36
- 主題
- 11
- 精華
- 0
- 積分
- 86
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-5-4
- 最後登錄
- 2020-3-26
|
請教各位前輩,目前為一分鐘,請問如何更改為15秒
Sub 自動記錄()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
Sht1.[O8] = "已過收盤"
uMode = 0
Exit Sub
End If
Sht1.Range("B1") = Time '當前時間（時間碼表）
'----------------------------------------------------------
'每１分鐘記錄，５分鐘則改為 Mod 5
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
xRow = Sht1.Range("A65536").End(xlUp).Row + 1
If xRow < 9 Then xRow = 9
Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A1:N1").Value
'------------------------------------------------
If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
ActiveWindow.ScrollRow = xRow - 18 '讓最新資料保持在可見視窗中
End If
ThisWorkbook.Save ' 存檔
Beep
End If
Application.OnTime Now + TimeValue("00:00:01"), "自動記錄" '每一秒遞迴一次
End Sub |
|
發表於 2016-5-19 14:39
| 
發表於 2016-5-19 14:47
| 