- 帖子
- 14
- 主題
- 4
- 精華
- 0
- 積分
- 16
- 點名
- 0
- 作業系統
- win 10
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2018-1-29
- 最後登錄
- 2026-9-11
|
Sub Sb每分鐘紀錄更新()
Dim mySht來源 As Worksheet
Set mySht來源 = Worksheets("資料來源")
Dim myRng來源 As Range
Set myRng來源 = mySht來源.Range("A1")
Dim mySht紀錄 As Worksheet
Set mySht紀錄 = Worksheets("每分鐘紀錄資料")
Dim myRng紀錄時間 As Range
Set myRng紀錄時間 = mySht紀錄.Range("A1")
Dim myRng紀錄資料 As Range
Set myRng紀錄資料 = mySht紀錄.Range("B1")
Dim myMinute As Integer
myMinute = Minute(Time)
myRng紀錄時間 = Time
myRng紀錄資料 = myRng來源
i = 0
Do
DoEvents
If myMinute <> Minute(Time) Then
i = i + 1
myRng紀錄時間.Offset(i, 0) = Time
myRng紀錄資料.Offset(i, 0) = myRng來源
myMinute = Minute(Time)
End If
Loop
End Sub |
|
發表於 2018-1-29 07:57
| 