Question

我正在创建一个VBA应用程序，当我输入一个数字时，我希望得到一个相同的数字，但在软件包中（例如：输入12000244，我将得到1200 0244），但是我遇到一个问题，我丢失了左零（我有1200 244）。所以请问有什么办法解决的。

这是我的代码：

Dim renvoie As String
renvoie = ""
For i = taille - 1 To 0 Step -1
    If i <> 0 Then
        renvoie = renvoie + CStr(tableau(i)) + " "
    Else
        renvoie = renvoie + Left(attention, 5 - Len(tableau(i))) + CStr(tableau(i)) + " "
        MsgBox tableau(i)
    End If
    taille = taille - 1
Next i
text_resultat.Caption = CStr(renvoie)

结束子

Answer 1

使用Format()函数：

format("12000244", "0000 0000") ' returns string "1200 0244"

Answer 2

该For Next循环看起来有些奇怪，尤其是当您在循环中修改taille时。很难看到所有变量是什么，因为代码中没有给出声明。

如果要在已知长度和已知点的文本中添加空格，则代码基本上就是这样：

Dim sampleNumAsStr As String, result As String
Dim splitPoint As Long

sampleNumAsStr = "12000244"
splitPoint = 4

result = Left(sampleNumAsStr, splitPoint) & " " & _
         Right(sampleNumAsStr, Len(sampleNumAsStr) - splitPoint)

在VBA中保持零

2 个答案: