[發問] VBA 中引用 Mach 函數問題

hsu5120

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

准提部林

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

c_c_lai

回復 1# hsu5120

下載 (35.54 KB)

2016-5-1 10:45

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

複製代碼

hsu5120

謝謝各位大大熱心的回覆，其實想要將
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

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

謝謝各位大大熱心的回覆，其實想要將
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)"

准提部林

回復 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

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