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

請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改

xu123

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-25
最後登錄: 2022-4-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-5-25 13:19 | 顯示全部帖子

請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改

我對VBA都不懂在網上找好久找到一個比較接近我要的範例
可是他是每分鐘記錄一次
可以請高手幫我改每30秒就記錄一次嗎
也謝謝這位提供範例的網友

Option Explicit
Dim LastMin As Integer

Private Sub Workbook_Open()
Sheets("策略記錄").Cells(4, 2) = 10
LastMin = Minute(Time)
Call Timer
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
End Sub

Public Sub Timer()
Dim Pos As Integer, i As Integer, RangeStr As String

On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer" '每秒顯示
Sheets("策略記錄").Cells(3, 2) = Time '將時間show至策略的b3欄位
Dim HHMM As Integer
HHMM = Hour(Time) * 100 + Minute(Time)
If (HHMM < 845 Or HHMM > 1345) Then Exit Sub '營業時間才執行
If Minute(Time) <> LastMin Then '開始後做
      With Sheets("策略記錄")
         .Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
         Pos = .Cells(4, 2)
         .Cells(Pos, 1) = Time
         .Cells(Pos, 2) = .Cells(2, 2)
         .Cells(Pos, 3) = .Cells(2, 3)
         .Cells(Pos, 4) = .Cells(2, 4)
         .Cells(Pos, 5) = .Cells(2, 5)
         .Cells(Pos, 6) = .Cells(2, 6)
         .Cells(Pos, 7) = .Cells(2, 7)
         .Cells(Pos, 8) = .Cells(2, 8)
         .Cells(Pos, 9) = .Cells(2, 9)
         .Cells(Pos, 10) = .Cells(2, 10)


      End With

      LastMin = Minute(Time)
End If
End Sub