標題: [發問] 跳動紀錄 [打印本頁]

---

作者: gery    時間: 2017-10-13 21:01     標題: 跳動紀錄

想請問大大
下面這個紀錄表的最新資料會一直在最下方
不知道能不能把最新資料留在最上方呢
謝謝了

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

複製代碼

---

作者: linyancheng    時間: 2017-10-14 13:53

先插入儲存格
再Set xR = 新的儲存格

---

作者: gery    時間: 2017-10-17 22:22

回復 2# linyancheng
我寫寫看 謝謝

---

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