=HYPERLINK("#成绩!D"&MATCH(B5,归一化指令!$A:$A,0),EVALUATEVBA("成绩!D"&MATCH(B5,成绩!$A:$A,0)))
代码如下:
Public Function EVALUATEVBA (ByVal s As String) As Variant
EVALUATEVBA = Application.Evaluate(s)
End Function
自定义函数EVALUATEVBA怎么样使用呢?
=HYPERLINK("#成绩!D"&MATCH(B5,归一化指令!$A:$A,0),EVALUATEVBA("成绩!D"&MATCH(B5,成绩!$A:$A,0)))
代码如下:
Public Function EVALUATEVBA (ByVal s As String) As Variant
EVALUATEVBA = Application.Evaluate(s)
End Function
自定义函数EVALUATEVBA怎么样使用呢?