返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
1# 跳轉到 »
發表於 2024-2-5 08:34 | 顯示全部帖子
回復 1# 藍天麗池


    謝謝前輩發表此主題與範例
以下鏈結帖或許適合前輩的需求,但是好像要用VBA
https://forum.twbts.com/viewthre ... &from=favorites
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
2#
發表於 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

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題