請問有數筆不同值的考試分數！如何設定函數找出最接近50分的人名呢！
- 帖子
- 54
- 主題
- 1
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2010-6-27
- 最後登錄
- 2016-11-4
|
回復 9# ANGELA
喔..原來如此..
智慧真是無價啊..
又學到一種算法了..
也對LOOKUP多一層了解了..
以前都不知道可以這樣用這個函數..
感恩.. |
|
|
|
|
|
|
|
- 帖子
- 54
- 主題
- 1
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2010-6-27
- 最後登錄
- 2016-11-4
|
12#
發表於 2010-9-30 15:02
| 只看該作者
回復 10# Hsieh
感謝版主的詳細分欄圖解
在解說與圖解兩相對照下
終於弄明白了
以後也可以採用這種方式去理解公式
感恩.. |
|
|
|
|
|
|
|
- 帖子
- 47
- 主題
- 23
- 精華
- 0
- 積分
- 133
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- sp2
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-6-25
- 最後登錄
- 2024-10-22
|
13#
發表於 2010-9-30 21:39
| 只看該作者
|
不同人有不同的方法！但都是好方法！感謝各位大大解決小弟的問題！謝謝 |
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
14#
發表於 2010-10-1 21:56
| 只看該作者
早先對lookup的認識，只能作些單純的運算，功能甚至比不上vlookup。
大約5、6年前，新加坡的Bosco_yip掀起了一陣lookup的探討旋風，使lookup用在更高階的功能上。
可惜當時醉心於auto cad,對excel冷了下來，無心關注，現在大家會的我都不會了！
此例為何要^2？沒有^2就不能得到正確答案，有朋友撥冗為我說明一下嗎？ |
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
16#
發表於 2010-10-1 23:36
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 54
- 主題
- 1
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 註冊時間
- 2010-6-27
- 最後登錄
- 2016-11-4
|
17#
發表於 2010-10-2 00:05
| 只看該作者
回復 16# oobird
ABS也行，只須輸入為陣列公式.. |
|
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13
|
19#
發表於 2010-10-2 07:37
| 只看該作者
本帖最後由 oobird 於 2010-10-2 07:38 編輯
但…正如樓上名字很難唸的仁兄所言，要用陣列輸入才能成功呀！
如果用陣列公式，這裡lookup就失去優勢了。 |
|
|
|
|
|
|
|
- 帖子
- 1447
- 主題
- 40
- 精華
- 0
- 積分
- 1471
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-3-24
|
20#
發表於 2023-5-11 15:32
| 只看該作者
謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA陣列與字典,學習方案如下,請各位前輩指教
執行結果:
Option Explicit
Sub TEST()
Dim Brr, Y, i&, b#
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是 字典
Brr = Range([B1], Cells(Rows.Count, 1).End(3))
'↑令Brr變數是 二維陣列,以儲存格值帶入
For i = 1 To UBound(Brr)
'↑設順迴圈!
b = Abs(50 - Brr(i, 2))
'↑令b變數是 50減 Brr第2欄陣列值後,Abs()轉為正值
Y(b) = Trim(Y(b) & " " & Brr(i, 1) & "(" & Brr(i, 2) & ")")
'↑令以b變數當key,item是自身連接Brr陣列第1.2欄陣列值
Next
MsgBox Y(Application.Min(Y.KEYS))
'↑令跳出提示窗 顯示: 以Y字典裡最小的key值回傳的item值
Set Y = Nothing: Erase Brr
'↑令釋放變數
End Sub |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
