match函数和index函数的VBA写法（函数公式的VBA通用写法）

引子玄

match函数和index函数的VBA写法（函数公式的VBA通用写法）：
Application.Evaluate("=match函数")
Application.Evaluate("=index函数")

自己的练习：

Sub 查找数值的位置和具体位置的内容()

[a1:a5] = Application.Transpose(Split("项目产品,香蕉,柑橘,苹果,梨子", ","))
[b1:b5] = Application.Transpose(Split("项目个数,11,12,14,13", ","))

MsgBox Application.Evaluate("=MATCH(A4,A1:A5,0)")
MsgBox Application.Evaluate("=MATCH(12,B2:B5,0)")
MsgBox Application.Evaluate("=MATCH(14,B2:B5,0)")
MsgBox Application.Evaluate("=MATCH(13,B2:B5,0)")
MsgBox Application.Evaluate("=MATCH(13,B2:B5,1)")
MsgBox Application.Evaluate("=INDEX(a2:a5,3,1)")

End Sub

引子玄

Application.Evaluate("直接放进match函数")————查找“数值的位置”
Application.Evaluate("直接放进 index函数")————查找“数值的内容”

举一反三，其他函数公式，貌似都可以直接放进去，可以搞定函数公式的VBA写法。比如：

Application.Evaluate("=AVERAGE(B2:B5)")

引子玄

原来是这样的，哈哈~~~~{:soso_e195:}
举一反三，其他函数公式，直接放进Application.Evaluate("=函数公式") 内，轻松搞定函数公式的VBA写法
竟然如此简单，没想到。原来一直以为把函数公式写成VBA会很难。

JLF2003

多谢楼主总结!

sc6231565

引子玄 发表于 2012-9-1 15:36
原来是这样的，哈哈~~~~
举一反三，其他函数公式，直接放进Application.Evaluate("=函数公式 ...

我一直都是这么写的

MsgBox [MATCH(A4,A1:A5,0)]
MsgBox [INDEX(a2:a5,3,1)]

引子玄

sc6231565 发表于 2012-9-1 17:24
我一直都是这么写的

MsgBox [MATCH(A4,A1:A5,0)]

一个方括号[]，就搞定了函数公式的VBA写法{:soso_e179:}
多谢，学习受教了。

AVEL

分享贴请将所有要分享的内容合并在一个楼层。
不要多楼层占用（你分享的内容一个楼层足以显示了）。

Silon.Jon

    WorksheetFunction.Match()
    worksheetfunction.Index()

346258674

方括号，真不错，受教

54670345

引子玄 发表于 2012-9-1 17:29
一个方括号[]，就搞定了函数公式的VBA写法{:soso_e179:}
多谢，学习受教了。

我测试了下，[MATCH(A4,A1:A5,0)]， 中的A1:A5 ，无法用Table的结构化引用。 这个有解么