Question

我很难在项目中保持领先0。以下是目前相关的代码：

Dim jobNum As String

 jobNum = Left(r1.Cells(1, 1), 6)

 r2.Cells(1, JOBCOL) = (jobNum)
 r2.Cells(1, JOBCOL).NumberFormat = "@"

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 我试过的东西 -

 r2.Cells(1, JOBCOL) = CStr(jobNum)

- 尝试将其保持在字符串模式中，因为可能它正在粘贴它是问题吗？

 If Len(jobNum) = 4 Then
  jobNum = "'00" & jobNum
  Else
  jobNum = jobNum
  End If

好的，好的，如果我无法正确阅读它，也许我可以手动添加它？（预期长度为6，如果长度注册为4我有问题，我需要添加两个前导0）

最后，我试图让它在第一时间正确阅读：

Dim Jobnum as String
Dim Jobnumfixed as Integer

jobNum = Left(r1.Cells(1, 1), 6)
jobnumfixed = format (jobnum, "000000")

我从Excel VBA Won't Keep Leading Zeroes获取了所有这些内容。然而，他们都没有达到预期的结果，即在我的表格中得到并保留一些前导0。我究竟做错了什么？我应该在哪里解决这个问题？

谢谢

编辑：管理以使其发挥作用。 jobNum = Left（r1.Cells（1,1），6）成为jobNum =（“'”＆amp; Left（r1.Cells（1,1），6）），现在一切正常。乌拉！

Answer 1

以下是将前导零置于数字：

的方法

Sub LeadingZerosNumbers()
    Dim N As Long

    N = 1137

    Range("A1").Value = N
    Range("A1").NumberFormat = "000000"
End Sub

这是一种将前导零置于文本中的方式，它看起来像一个数字：

Sub LeadingZerosText()
    Dim N As Long

    N = 1137

    Range("A1").NumberFormat = "@"
    Range("A1").Value = "00" & N

End Sub

在这两种情况下， A1 都会显示：