将两个工作表函数组合到一个代码中

Question

我在工作表中编写代码（使用私有子代码），我想分割两个数字。有没有办法使用这个代码？

Can.Range("AB4") = Application.WorksheetFunction.Quotient(.Max(Price, POS))

谢谢，

格里芬

Answer 1

如果您想将price除以pos，请使用：

Can.Range("AB4") = Application.WorksheetFunction.Quotient(Price, pos)

你可能知道

，商数＆＃34;返回分区的整数部分。＆＃34;

如果您想要返回分部的结果，请使用：

Can.Range("AB4") = Price/pos

Answer 2

将最高价格除以pos，

with Application.WorksheetFunction
    Can.Range("AB4") = .Quotient(.Max(Price), POS)
end with