vba - 需要从vba中的函数返回值

Question

我正在尝试从函数返回一个值，但没有发生。

Public sub test()
  x = 2
  msgbox number(x)
Exit Sub

Public Function number(num)
  if len(num) = 1 then
     num = "0" + num
  End if
End Function

该函数返回一个空值。

Answer 1

您需要将结果分配给函数的名称，并将 0 连接起来，如下所示:

Public Function number(num) As String
  if len(num) = 1 then
     number = "0" & num
  Else
     number = num
  End if
End Function

虽然使用 Format(num, "00") 似乎更容易