標題: [發問] 想請問能不能保留5分鐘內的資料 [打印本頁]

---

作者: gery    時間: 2017-7-14 09:23     標題: 想請問能不能保留5分鐘內的資料

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

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

複製代碼

[attach]27473[/attach]

---

作者: GBKEE    時間: 2017-7-14 16:12

回復 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    時間: 2017-7-14 22:27

回復 2# GBKEE


    [attach]27475[/attach]

  不知道哪裡有了問題

---

作者: gery    時間: 2017-7-17 21:18

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

---

作者: GBKEE    時間: 2017-7-18 20:12

回復 4# gery

試試看
    [attach]27493[/attach]

---

作者: gery    時間: 2017-7-19 22:53

回復 5# GBKEE


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)