Как отобразить пустую строку, когда переменная не инициализирована?

Question

Im пытается показать пустую строку, которая довольно прямолинейна, как их способ отобразить пустое число для целого числа? У меня есть пример ниже.

Sub() 

Dim s As String 
Dim Number As Integer 

'using a space in double quote 
s = " " 

'this will display an empty string, well not really empty but the space will make it empty 
msgbox(s) 

поэтому в основном им пытаются сделать то же самое число, тогда как при использовании MsgBox для него не отображает ничего.

Answer 1

Вы должны создать функцию для ваших нужд

function ShowNumberNonZero(n) as string 
    if n = 0 then 
     ShowNumberNonZero = "" 
    else 
     ShowNumberNonZero = Trim(n) 
    end if 
end function 

, а затем

msgbox(ShowNumberNonZero(Number)) 

Answer 2

Если вы не установите число вообще, вызов MsgBox присвоит ему 0 и он будет отображать 0 Единственный способ сделать это так, чтобы он отображал ничего, - это использовать оператор if или функцию.

Это может выглядеть примерно так:

Private Sub Run() 
    Dim number As Integer 
    Message(number) 
End Sub 

Private Sub Message(ByVal input As Integer) 
    If input = 0 Then 
     MsgBox("") 
    Else 
     MsgBox(input) 
    End If 
End Sub