使用子/函數修改變量

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。