返回列表 上一主題 發帖

如何抓取對應資料

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-8-6 10:42 | 顯示全部帖子
回復 7# kimbal
板主的公式=INDEX(Sheet1!$C$2:$G$8,MATCH(B2,Sheet1!$B$1:$B$8,1),MATCH(Sheet2!A2,Sheet1!C$1:G$1,0))會有差異
當B欄是80, 100,120,140,160,180 傳回的是下一列的值
當B欄是200時 則會超出範圍 =#REF!
回復 1# baomin
依1樓 SHEET2.JPG 圖表 所寫的自訂函數   請將程式碼複製到 一般模組中(Module)使用
  1. '傳回 模數所對應到秒數的數據  範圍必需包含模數列  秒數列
  2. Function Ex(範圍 As Range, 模數 As String, 秒數 As Integer) As Integer
  3.     Dim C As Range, Row%, Col%
  4.     If Not 範圍.Rows(1).Find(模數, LookIn:=xlValues, LOOKAT:=xlWhole) Is Nothing Then
  5.         Col = 範圍.Rows(1).Find(模數, LookIn:=xlValues, LOOKAT:=xlWhole).Column
  6.     End If
  7.     For Each C In 範圍.Columns(1).Cells
  8.          If C.Row > 1 Then
  9.             If Val(Split(C, "~")(0)) <= 秒數 And Val(Split(C, "~")(1)) >= 秒數 Then
  10.                 Row = C.Row
  11.                 Exit For
  12.             End If
  13.         End If
  14.     Next
  15.     If Row > 0 And Col > 0 Then Ex = Sheets(範圍.Parent.Name).Cells(Row, Col)
  16. End Function
複製代碼

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題