vba - 保持/插入前导 0

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 = ("'"& 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 将显示: