[已解决]$在VBA函数中表示什么

Select

也许不止一种含义。仅以下例来说，加上"$"是何含义呀？

1. 
   
2. Sub a()
   
3. Dim x, y
   
4. x = UCase("a")
   
5. y = UCase$("a")
   
6. End Sub

复制代码

谢谢

最佳答案

月排行榜 / 总排行榜

Zipall

2011-8-15 22:37

据说是为了兼容老版本.而且加了$的运行速度快.

Sub test()
    Dim x As String
    Dim y As String
    x = "abc"
   
    t = Timer
    For i = 1 To 10000000
        y = VBA.Left(x, 2)
    Next
    Debug.Print Timer - t
   
   
    t = Timer
    For i = 1 To 10000000
        y = VBA.Left$(x, 2)
    Next
    Debug.Print Timer - t
End Sub

跳转到最佳答案楼层

Zipall

据说是为了兼容老版本.而且加了$的运行速度快.

Sub test()
    Dim x As String
    Dim y As String
    x = "abc"
   
    t = Timer
    For i = 1 To 10000000
        y = VBA.Left(x, 2)
    Next
    Debug.Print Timer - t
   
   
    t = Timer
    For i = 1 To 10000000
        y = VBA.Left$(x, 2)
    Next
    Debug.Print Timer - t
End Sub

leolee82

字符串类型的缩写
Function s$(i As Integer)
s = i
End Function
Sub t()
Debug.Print s$(5)
End Sub

Select

带$的，不是做字符串处理，就是返回字符串。看了下，好像是这样。

zip的代码确实是有增加：
第1次：1.27899169921875
第2次：.93603515625

是不是遇到处理大量字符串处理，使用字符串函数时，能加$的，尽量加，多多益善？

3楼说的也是！

等明天再继续吧，多谢！

fjmxwrs

3楼说的是变量的数据类型中字符串的简写。用到VBA函数中的$应该是不一样的,个人感觉应该如二楼老师所言。学习。