帖子: 47
主題: 23
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2010-6-25
最後登錄: 2024-10-22

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-9-27 23:27 | 只看該作者

請問有數筆不同值的考試分數！如何設定函數找出最接近50分的人名呢！

Book1.rar (1.49 KB) 請問有數筆不同值的考試分數！如何設定函數找出最接近50分的人名呢！請各位大大幫忙！謝謝

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

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

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

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 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就失去優勢了。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 276
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

18^#

發表於 2010-10-2 00:15 | 只看該作者

ABS仍可達到相同效果啊!
=LOOKUP(2,1/((MIN(ABS(50-B1:B11)))=ABS(50-B1:B11)),A1:A11)
1/((MIN(ABS(50-B1:B11)))=ABS(50-B1:B11))
傳回是1/FALSE或1/TRUE的陣列
就傳回#DIV/0!或1的陣列
只要第1個參數大於1就能找到最後一個1的對應值

學海無涯_不恥下問

TOP

toomellowhaw

中學生 Rank: 2

帖子: 54
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-6-27
最後登錄: 2016-11-4

17^#

發表於 2010-10-2 00:05 | 只看該作者

回復 16# oobird

ABS也行，只須輸入為陣列公式..

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

16^#

發表於 2010-10-1 23:36 | 只看該作者

謝謝，用ABS郤不能得到相同效果，原因安在？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 276
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2010-10-1 22:48 | 只看該作者

正正得正
負負得正

學海無涯_不恥下問

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 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就不能得到正確答案，有朋友撥冗為我說明一下嗎？

TOP

阿宇哥