[已解决]vba中Evaluate方法有变量时时的用法

雄鹰2013

求两个变量的时间间隔：
       Sub test3()
         Dim time1, time2
         time1 = "2005-9-8"
         time2 = "2007-4-7"
        MsgBox "间隔" & Application.Evaluate("=Datedif(""" & time1 & """,""" & time2 & """,""y"")") & "年"
End Sub
    上面代码中MsgBox "间隔" & Application.Evaluate("=Datedif(""" & time1 & """,""" & time2 & """,""y"")") & "年"中的引号不太明白是否可以解释一下

最佳答案

月排行榜 / 总排行榜

爱疯

2014-5-21 09:09

在字符串中，用连续两个引号表示一个引号。

Sub Click()
    MsgBox """"
    MsgBox """a"""
End Sub

跳转到最佳答案楼层

爱疯

在字符串中，用连续两个引号表示一个引号。

Sub Click()
    MsgBox """"
    MsgBox """a"""
End Sub

开心妙妙

这里用利用单元格公式返回值
遇到要带“号的地方，就要双倍的”号表示
例如：
Evaluate("=SUMIF(A2:A6,""b"",B2:B6)")
在单元格中使用 ”b",这样就可以了，但VBA公式中就需要”“b""

无聊的疯子

其实你用变量来取值在组合就明白了

Application.Evaluate("=Datedif(""" & time1 & """,""" & time2 & """,""y"")") & "年"

1. 
   
2. n=Application.Evaluate("=Datedif(""" & time1 & """,""" & time2 & """,""y"")")
   
3. n=n & "年"
   

复制代码

这样看是不是就清楚多了呢？