麻辣家族討論版版 » Excel程式區 » 跳動紀錄

返回列表下一主題上一主題發帖

[發問] 跳動紀錄

中學生 Rank: 2

帖子: 15
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2015-3-16
最後登錄: 2020-11-2

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2017-10-13 21:01 | 只看該作者

[發問] 跳動紀錄

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

Private Sub Worksheet_Calculate()
Dim xR As Range
If [b2] <> [b3] Then
Set xR = [c65536].End(xlUp)(2)
xR = [b2]
xR(1, 2) = Time
[b3] = [b2]
End If
End Sub

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 15
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2015-3-16
最後登錄: 2020-11-2

3^#

發表於 2017-10-17 22:22 | 只看該作者

回復 2# linyancheng
我寫寫看謝謝

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 228
主題: 73
精華: 2
積分: 333
點名: 0
作業系統: Windows 10
軟體版本: Office 2000, 2019
閱讀權限: 100
性別: 男
來自: 彰化縣
註冊時間: 2013-7-18
最後登錄: 2024-10-13

2^#

發表於 2017-10-14 13:53 | 只看該作者

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

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。

返回列表下一主題上一主題