返回列表 上一主題 發帖

[發問] 求教Excel 自動記錄

solitary16

帖子
2 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2017-7-28 
最後登錄
2017-8-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-7-28 14:37 | 只看該作者

[發問] 求教Excel 自動記錄

各位大大， 有方法可以用Excel 自動記錄A1的每分鐘數值并按時間記錄結果嘛？
收藏 分享

JasonChen576

帖子
14 
主題
4 
精華
0 
積分
16 
點名
0  
作業系統
win 10 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2018-1-29 
最後登錄
2018-2-14 
3#
發表於 2018-1-29 07:57 | 只看該作者
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

TOP

carloslin0316

帖子
12 
主題
1 
精華
0 
積分
50 
點名
0  
作業系統
Windows 
軟體版本
Xp 
閱讀權限
20 
註冊時間
2017-12-26 
最後登錄
2019-5-21 
2#
發表於 2018-1-2 18:25 | 只看該作者
回復 1# solitary16


    Sub test()

If (Cells(1, 3) = "") Then
    Cells(1, 3) = Cells(1, 1)
ElseIf (Cells(2, 3) = "") Then
    Cells(2, 3) = Cells(1, 1)
Else
    startrow = Range("c1").End(xlDown).Row + 1
    Cells(startrow, 3) = Cells(1, 1)
End If

Application.OnTime Now + TimeValue("00:01:00"), "test"

End Sub

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題