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

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

發表於 2016-5-1 11:56 | 只看該作者

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

7^#

發表於 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)

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 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)"

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 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)

hsu5120

中學生 Rank: 2

帖子: 4
主題: 2
精華: 0
積分: 56
點名: 0
作業系統: XP SP3
軟體版本: office 2003
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2011-4-29
最後登錄: 2021-10-29

4^#

發表於 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)" '這一行一直有問題

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

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2016-5-1 10:46 | 只看該作者

回復 1# hsu5120

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

複製代碼

E1.png (35.54 KB)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2016-5-1 10:20 | 只看該作者

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