麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] VBA 中引用 Mach 函數問題 [打印本頁]

作者: hsu5120 時間: 2016-5-1 07:33 標題: VBA 中引用 Mach 函數問題

本帖最後由 hsu5120 於 2016-5-1 07:35 編輯

請問各位大大：
這一段程式中，XX 參數要如何改寫，才能正確跑出值？

作者: 准提部林 時間: 2016-5-1 10:20

Range("N2") = "=MATCH(""" & arr_str_check(i) & """," & xx & ",0)"

作者: c_c_lai 時間: 2016-5-1 10:46

回復 1# hsu5120
[attach]24126[/attach]

i = 5
ii = Range("U2").End(xlDown).Row
xx = "U3:U19"
s = WorksheetFunction.Match(arr_str_check(i), [A10:I10], 0)
[A12] = Cells(10, s)
s = WorksheetFunction.Match(arr_str_check(i), arr_str_check, 0) - 1
MsgBox "arr_str_check(i) = " & arr_str_check(i) & vbCrLf & "arr_str_check(s) = " & arr_str_check(s)
End Sub

複製代碼

作者: hsu5120 時間: 2016-5-1 11:12

謝謝各位大大熱心的回覆，其實想要將
1.這一行 xx="U3:U19" ，改成 xx="U3:U" & ii (ii 為變數)。
2.然後將這二行程式：
xx="U3:U" & ii
Range("N4") = "=MATCH(""" & arr_str_check(i) & """, " & xx & ",0)"

3.合併成一行程式(如下)：
Range("N6") = "=MATCH(""" & arr_str_check(i) & """, ""U3:U""" & ii & """,0)" '這一行一直有問題

請問大大這一行如何修改，先謝謝大大熱心的回覆。

作者: c_c_lai 時間: 2016-5-1 11:17

Range("N2") = "=MATCH(""" & arr_str_check(i) & """," & xx & ",0)"
准提部林發表於 2016-5-1 10:20

這兒帶入的 xx 是字串型態，函式的 MATCH() 竟然能接受，
反之如果帶入 WorksheetFunction.Match() 便不行了，

WorksheetFunction.Match(arr_str_check(i), xx, 0)

執行階段錯誤 '1004'
無法取得類別 WorksheetFunction 的 Match 屬性
而必須宣告成 Range/Object 才可以。

Set xx = [U3:U19]
WorksheetFunction.Match(arr_str_check(i), xx, 0)

作者: c_c_lai 時間: 2016-5-1 11:29

本帖最後由 c_c_lai 於 2016-5-1 11:40 編輯

謝謝各位大大熱心的回覆，其實想要將
1.這一行 xx="U3:U19" ，改成 xx="U3:U" & ii (ii 為變數)。
2 ...
hsu5120 發表於 2016-5-1 11:12

xx = "U3:U"
ii = 19
Range("A8") = "=MATCH(""" & arr_str_check(i) & """," & xx & ii & ",0)"
上下兩行均為正確語法。
Range("A8") = "=MATCH(""" & arr_str_check(i) & """,U3:U" & ii & ",0)"

作者: 准提部林 時間: 2016-5-1 11:42

回復 5# c_c_lai

WorksheetFunction.Match(arr_str_check(i), xx, 0)
改用：
M = WorksheetFunction.Match(arr_str_check(i), Range(xx), 0)
M = Application.Match(arr_str_check(i), Range(xx), 0)

作者: c_c_lai 時間: 2016-5-1 11:56

回復 7# 准提部林
Tks a lot!

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)