使用子/函数修改变量

Question

我想在某些变量前添加+符号，如果它们是肯定的。 例如：

Sub mySub() 
    Dim cash As Variant 
End Sub 

它运作良好，如果我这样做：

Dim plus As String 
plus = "+" 


If cash > 0 Then 
    cash = plus & cash 
    Else 
    cash= cash 
End If 

但我一直在寻找一个子或函数，将采取所有我的变量，并添加如果他们面前的一个+号是积极的。

sub NewSub(i As Variant) 
    If i > 0 Then 
     i = plus & i 
     Else 
     i = i 
    End If 
End sub 

但它似乎没有工作，因为它不告诉我任何东西（我当时在Excel单元格中显示我的变量）。而且一个功能也不起作用。

任何想法如何创建一个子/功能来做到这一点？我可以以任何方式循环访问变量吗？

Answer 1

首先，开始使用Option Explicit，它强制您显式声明每个变量，并在VBA编辑器中捕获不匹配错误，而不是在运行时捕获。

接下来，如果要通过在左端添加'加号'来将数值变量更改为字符串，那么原始变量必须是变体类型。如果你想传递一个参数到一个子程序中并让子程序改变它，那么参数必须是ByRef。

或者，您可以将该变量推入一个函数并返回新值。

Option Explicit 

Sub main() 
    Dim cash As Variant, cash2 As Variant 

    cash = 10 
    Debug.Print cash '10 (as number) 

    AddPlus cash 
    Debug.Print cash '+10 (as string) 

    cash = 10 
    Debug.Print cash '10 (as number) 

    cash = udfAddPlus(cash) 
    Debug.Print cash '+10 (as string) 

End Sub 

Sub AddPlus(ByRef i As Variant) 
    If i > 0 Then 
     i = "+" & i 
    Else 
     i = i 
    End If 
End Sub 

Function udfAddPlus(i As Variant) 
    If i > 0 Then 
     udfAddPlus = "+" & i 
    Else 
     udfAddPlus = i 
    End If 
End Function 

的Debug.Print命令将输出发送到VBE的Immediate window。