[發問] excel VBA 函數-垂直搜尋相對應列的值

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

2^#

發表於 2014-12-14 19:26 | 顯示全部帖子

回復 2# GBKEE

GBKEE 版主您好:
不好意思小弟初學VBA
您的code 小弟還是有些應用上的困難..
因此依stillfish00前輩的建議
將我的問題完整呈現
再麻煩版主撥空指導了...
非常感謝...!!

垂直搜尋.png (21.51 KB)

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

3^#

發表於 2014-12-14 19:31 | 顯示全部帖子

回復 3# stillfish00

stillfish00前輩您好:
不好意思小弟的問題敘述似乎真的不太清楚
因為我原本的目的是打算只問那個函數的名稱
再自己去找函數的相關資訊去應用
不料資質駑鈍....0rz
好像問題敘述的不完全,
前輩們所寫的程式也不見得可以完全應用
下次小弟發文時會特別注意的~!
也感謝前輩的不吝指教~~!

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

4^#

發表於 2014-12-16 21:04 | 顯示全部帖子

回復 junkwei
試試看
GBKEE 發表於 2014-12-15 08:12

謝謝GBKEE版主的幫助!!又讓小弟再次見識了一次vba的威力!
不過您原本的code好像欄位有些筆誤
因此小弟有小小修正了一下, 如下所示
供其他有需要的版友參考~~
最後再次感謝您的幫忙~!

Sub CAL2()
Dim Rng, Ar, R As Range, i As Integer, ii As Integer
Ar = Range("A1").CurrentRegion.Value '資料庫
i = [MATCH(J1,A1:D1,0)]
'或直接給 i=1 '數學成績在資料庫的欄位
Set Rng = Range("H1", Range("H1").End(xlDown)).Resize(, 2)
For Each R In Rng.Rows
For ii = 1 To UBound(Ar, 1)
If R.Cells(1, 1) & R.Cells(1, 2) = Ar(ii, 2) & Ar(ii, 3) Then
R.Cells(1, 3) = Ar(ii, 1)
Exit For
End If
Next
Next
End Sub

複製代碼

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

5^#

發表於 2014-12-16 21:19 | 顯示全部帖子

回復 junkwei
依5樓圖的問題，最簡單的方法是
在J2填上 =LOOKUP(2,1/((B$1:B$16=H2)*(C$1:C$16=I2)),A$ ...
stillfish00 發表於 2014-12-15 16:40

感謝stillfish00前輩的方法~
讓我學到不同且實用的方法~謝謝您~~!
不知道前輩是否方便說明一下您的公式中lookup函數的第二欄
以便小弟日後應用

請問
1/(範圍=欲搜尋值) 是一種固定的語法嗎?
以及
當中的 * 符號在這裡代表的意義是"且"的意思嗎?

小弟在網路上好像不容易找到相關的說明...@@
不好意思再麻煩前輩指導了!
謝謝~~!

帖子: 16
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: Win7
軟體版本: office2007
閱讀權限: 10
註冊時間: 2014-11-27
最後登錄: 2015-1-3

6^#

發表於 2014-12-16 23:39 | 顯示全部帖子

非常謝謝stillfish00前輩超級詳細的解釋~這樣小弟就完全了解~~!

也謝謝GBKEE版主的鼓勵, 小弟會繼續加油的~~!!