Excel VBA 不会保留前导零

Question

我似乎找不到在我的 VBA 代码中保存前导零的方法。零是必要的，因为它们对应于唯一的 ID。

我尝试在 excel 中将数字格式更改为文本和 0000.... 并在我的实际代码中使用相同的方法： ActiveSheet.Cells(i, j).NumberFormat = "00000"

还有其他建议吗？ （如果我手动将这些数字输入到 VBE 中，它也会去掉前导零）。 编辑：

Sheets.Add.Name = "Temp"
Sheets("Sheet1").Select
ActiveSheet.Cells(2, 2).NumberFormat = "000"
cid = Cells(2, 2)
MsgBox cid
Sheets("Sheet2").Select
ActiveSheet.Cells(6, 1).NumberFormat = "00000"
sid = Cells(6, 1)
Sheets("Temp").Select
Url = _
"URL;" & _
"http......asp?" & _
"X1=" & cid & "&" & _
"X2=" & sid & "&"

这最终在一个循环中，但我正在作为单独的迭代进行调试。

Answer 1

以下所有讨论都是关于写入到一个单元格，而不是从中读取。更改 Numberformat 不能那样工作。 看看你能不能弄清楚这段代码是如何工作的：

dim v as integer
v = val(Sheets("Sheet1").Cells(2, 2))
dim cid as string
cid = format(v, "000")

你不应该那样使用Select和ActiveSheet，没有必要；并且永远不要在没有它应该引用的工作表的情况下使用Cells。
（如果单元格确实已经是数字而不是文本，则可以省略Val）。

---

较早的答案...：

这段代码对我来说很好用

Worksheets(1).Columns("A").NumberFormat = "@"
Worksheets(1).Cells(1, "A").Value = "00023"

还有

Worksheets(1).Columns("A").NumberFormat = "000000"
Worksheets(1).Cells(1, "A").Value = "0023"

（这里将字符串转换为数字，显示为6位）

编辑：
如果失败 - 尽管我无法解释 - 我仍然打赌 ' 应该真的工作：
（不需要数字格式。）

Dim s As String
s = "0002"
Worksheets(1).Cells(1, "A").Value = "'" & s

Answer 2

将格式设置为文本或“00000”应该可以。下面的小 sn-p 给出了预期的结果。第一个存储值 0001，第二个存储值 1，其格式看起来像 0001。

如果单元格值存储在字符串变量中，这也适用。

Sub set_value()

Range("A1").NumberFormat = "@"
Range("A1").Value2 = "0001"

Range("B1").NumberFormat = "0000"
Range("B1").Value2 = "1"

End Sub