Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何将条件作为字符串传递给Excel vba中的Dmin、Dmax函数?_Excel_Vba - Fatal编程技术网

如何将条件作为字符串传递给Excel vba中的Dmin、Dmax函数?

如何将条件作为字符串传递给Excel vba中的Dmin、Dmax函数?,excel,vba,Excel,Vba,在单元格中写入标准后,Dmin(或Dmax或Dsum)函数可以工作: 数据样本 X Y Z X Y A A 1 A A A A 2 A B 2 A B 3 B A 3 B A 5 B B 7 B B 8 Excel宏: Sub MyMacro() Set MyTable = Worksheets("Sheet1").Range("A:C") Set

在单元格中写入标准后,Dmin(或Dmax或Dsum)函数可以工作: 数据样本

X   Y   Z       X   Y
A   A   1       A   A
A   A   2
A   B   2
A   B   3
B   A   3
B   A   5
B   B   7
B   B   8

Excel宏:

Sub MyMacro()
Set MyTable = Worksheets("Sheet1").Range("A:C")
Set MyCriteria = Worksheets("Sheet1").Range("E1:F2")
VMin = Application.WorksheetFunction.DMin(MyTable, 3, MyCriteria)
MsgBox "Min=" & VMin
End Sub
有没有办法在VBA中创建criteria参数? 比如: MyCriteria=“X=A和Y=B”