帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2024-2-4 21:22 | 只看該作者

如何去找離自己最近的值?

求值.rar (7.45 KB)
版上大大，請問如同附件中的檔案標示，如何寫函數去尋找離自己最近的值去做相減呢?

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-5-5

2^#

發表於 2024-2-5 08:34 | 只看該作者

回復 1# 藍天麗池

謝謝前輩發表此主題與範例
以下鏈結帖或許適合前輩的需求,但是好像要用VBA
https://forum.twbts.com/viewthre ... &from=favorites

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

hcm19522

大學生 Rank: 4

帖子: 1410
主題: 4
精華: 0
積分: 1420
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-5-16

熱烈參與勳章

3^#

發表於 2024-2-5 11:15 | 只看該作者

(搜尋編號12384) google網址:https://hcm19522.blogspot.com/

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2024-2-5 11:23 | 只看該作者

回復 3# hcm19522

H大，感謝你的回覆，但我有點看不太懂，能大致說明一下此函數嗎?

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2842
主題: 10
精華: 0
積分: 2898
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-4-28

5^#

發表於 2024-2-5 12:17 | 只看該作者

本帖最後由准提部林於 2024-2-5 12:19 編輯

K2/陣列公式/右拉下拉
=IF(OR($C$1:$F1=C2),G2-MOD(MAX(($C$1:$F1=C2)*(ROW($A$1:$A1)*10^5+$G$1:$J1)),10^5),"")

以"列號"*10^5 + 數字...求出最大值, 再MOD餘數...即是上一個最後出現的數字

TOP

hcm19522

大學生 Rank: 4

帖子: 1410
主題: 4
精華: 0
積分: 1420
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-5-16

熱烈參與勳章

6^#

發表於 2024-2-5 13:33 | 只看該作者

回復 4# 藍天麗池

有另解較簡單

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

7^#

發表於 2024-2-5 14:06 | 只看該作者

本帖最後由藍天麗池於 2024-2-5 14:10 編輯

回復 5# 准提部林

准大，函數內容有需要更改嗎?我複製貼上後出現錯誤值

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-5-5

8^#

發表於 2024-2-5 14:10 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習字典,請各位前輩指教
執行前:

執行結果:

Option Explicit
Sub test()
Dim i&, Z, xA As Range, T$
Set Z = CreateObject("Scripting.Dictionary")
Set xA = [C2:H5]
For i = 1 To xA.Count
T = xA(i): xA(i)(1, 9) = IIf(Z(T) = "", "", xA(i)(1, 5) - Z(T)): Z(T) = xA(i)(1, 5)
Next
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林