excel - 执行存储在宏中的字符串中的excel公式
问题描述
要求:
计算一个日期范围之间的假期星期一的数量,并使用宏执行它们。我可以得出可以给我正确结果的公式
=SumProduct((VIC >= DATEVALUE("1/01/2016")) * (VIC <= DATEVALUE("19/01''/2018")) * (Weekday(VIC, 2) = 1))
你能帮我执行存储在字符串中的公式吗?
Sub TestFunction()
Dim LeaveStartDate, LeaveEndDate As Date
Set srcdoc = Worksheets("Sheet1")
Dim CntSunPH As String
LeaveStartDate = Worksheets("Sheet1").Cells(1, "B").Value
LeaveEndDate = Worksheets("Sheet1").Cells(2, "B").Value
State = "VIC"
CntSunPH = Replace((Replace(Replace(("=SumProduct((State >= DATEVALUE(""LeaveStartDate"")) * (State <= DATEVALUE(""LeaveEndDate"")) * (Weekday(State, 2) = 1))"), "State", State), "LeaveStartDate", LeaveStartDate)), "LeaveEndDate", LeaveEndDate)
n = 0
n = Application.WorksheetFunction.Execute("=SumProduct((VIC >= DATEVALUE(""1/01/2016"")) * (VIC <= DATEVALUE(""19/01/2018"")) * (Weekday(VIC, 2) = 1))")
Debug.Print "Date1 " & LeaveStartDate
Debug.Print "Date2 " & LeaveEndDate
Debug.Print CntSunPH
Debug.Print n
End Sub
解决方案
推荐阅读
- android - 使用 outputStream android 从蓝牙发送多个文本
- c++ - new 运算符分配的大小比声明的多。为什么
- codenameone - IOS 构建失败,构建提示 codename1.arg.ios.xcode_version=7.3
- android - 在 Android 应用程序中实现类似 Google Maps 的搜索栏
- bash - 如何编写调用子shell的zsh别名?
- javascript - 谷歌说代码无效,我的错误在哪里?
- vba - 通过 VBA 编码写出 1 到 100 之间的素数
- c++ - 重载数组分配运算符
- reactjs - 运行 npm install --save gh-pages 时出错
- session - 当我提出请求时,会话不断到期并要求我返回主页