麻辣家族討論版版 » 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: 7 Rank: 7 Rank: 7

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

2^#

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

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

中學生 Rank: 2

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

3^#

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

回復 2# linyancheng
我寫寫看謝謝

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

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