返回列表 上一主題 發帖

[發問] 搜尋符合條件的最小值及最大值

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-11-17 10:13 | 只看該作者

[發問] 搜尋符合條件的最小值及最大值

請教各位大大,
以下資料為sheet 1,若我在sheet 2以INV為主作搜尋對照,如何抓取BCM的最小值?(它有數字及文字)
例如:sheet 2的A欄位是INV,B欄位是BCM最小值,C欄位是BCM最大值
CI12-002  最小值我希望找到的是B2= 120001,最大值是C2=120362-2

INV                         BCM
CI12-002        120351
CI12-008        120352
CI12-003        120353
CI12-004        120354
CI12-005        120355
CI12-002        120358-3
CI12-001        120362-1
CI12-002        120362-2
CI12-002        120001
CI12-002        120014-1A
收藏 分享

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-11-18 11:30 | 只看該作者
回復 1# PJChen

文字與數字比較大小，內建函數無法達成
最大最小.rar (8.47 KB)
學海無涯_不恥下問

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-11-18 17:42 | 只看該作者
回復 2# Hsieh
回復 1# PJChen
不好意思，借用 Hsieh 版大的語法稍加修飾：
  1. Sub Test()
  2.     Dim ans As Variant
  3.    
  4.     ans = RankData(Range("B2:B11"), True)
  5.     MsgBox "最大值為 " & ans
  6.     ans = RankData(Range("B2:B11"), False)
  7.     MsgBox "最小值為 " & ans
  8. End Sub

  10. Function RankData(Rng As Range, asc As Boolean) As Variant
  11.     Dim rn As Variant
  12.    
  13.     For Each rn In Rng
  14.         If asc = True Then
  15.             RankData = IIf(RankData = "", rn, IIf(rn > RankData, rn, RankData))
  16.         Else
  17.             RankData = IIf(RankData = "", rn, IIf(rn < RankData, rn, RankData))
  18.         End If
  19.     Next
  20. End Function
複製代碼

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題