excel的公式+函數負荷重，是否有辦法精簡呢？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » excel的公式+函數負荷重，是否有辦法精簡呢？

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

[發問] excel的公式+函數負荷重，是否有辦法精簡呢？

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2019-5-9 16:36 | 顯示全部帖子

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, t
a = Range("c1:d" & [c1048576].End(3).Row).Value
t = [b2].Value
For i = UBound(a) To 3 Step -1
If t < a(i, 1) Then Exit For
Next
[g2] = [a2] * a(i, 2)
End Sub

複製代碼

zz.zip (13.93 KB)

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

2^#

發表於 2019-5-11 18:40 | 顯示全部帖子

回復 7# cslu37

直接將第4行改為

t = TimeValue(Time)

複製代碼

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

3^#

發表於 2019-5-15 12:54 | 顯示全部帖子

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, t
a = Range("C1:D" & [C1048576].End(3).Row).Value
t = TimeValue(Time)
For i = UBound(a) To 3 Step -1
If t > a(i, 1) Then Exit For
Next
[G2] = [A2] * a(i, 2)
End Sub

複製代碼

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

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