[發問] 想請問能不能保留5分鐘內的資料

gery

各位前輩好
我用了網路上大大的資料
可以得出一欄生產量 跟一欄 時間
不知道我能不能控制顯示出五分鐘內的資料
現在我是用巨集 讓他五分鐘從新開始填寫
但這結果比較不符合我想要的
麻煩各位大大了 謝謝

1. Private Sub Worksheet_Calculate()
   
2. Dim xR As Range
   
3. If [b2] <> [b3] Then
   
4.   Set xR = [c65536].End(xlUp)(2)
   
5.   xR = [b2]
   
6.   xR(1, 2) = Time
   
7.   [b3] = [b2]
   
8. End If
   
9. End Sub

複製代碼

下載 (51.51 KB)

2017-7-14 09:21

GBKEE

回復 1# gery
試試看

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Dim xR As Range
   
4.     If [B2] <> [B3] Then
   
5.         [C2:D2].Insert
   
6.         [C2] = [B2]
   
7.         [d2] = Time
   
8.     End If
   
9.     If IsNumeric([d2]) And [d2] > 0 Then
   
10.         Do While [D65536].End(xlUp) + #12:05:00 AM# < [d2]
    
11.             [D65536].End(xlUp).Offset(, -1).Resize(, 2) = ""
    
12.         Loop
    
13.     End If
    
14. End Sub

複製代碼

gery

回復 2# GBKEE


   

下載 (68.89 KB)

2017-7-14 22:24

  不知道哪裡有了問題

gery

回復 2# GBKEE
171.zip (122.68 KB)

下載次數: 2

2017-7-17 21:14

G大 讓您見笑了 我這是公司軟體會輸出DDE資料,在總合分頁的A1格
現在是用時間巨集 定時刪除 但得不出我要的紀錄阿
麻煩G大幫我看看了

GBKEE

回復 4# gery

試試看
    保留x分鐘內的資料.zip (46.47 KB)

下載次數: 5

2017-7-18 20:12

gery

回復 5# GBKEE


   十分感謝G大 完美的回答了我的問題~ 學習了 謝謝