VBA Excel：在手机号码左侧显示零

我正在用VBA Excel做一个项目，我的手机号码有问题。 当我插入手机号码时，例如：0762。。。。。。。在excel上，我们只能看到762。。。。。。左边没有零。 我该怎么做

这是我脚本的一部分：

 If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then

    i = WorksheetFunction.CountA(Range("A:A")) + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

    MsgBox i

    Sheets("Reservations").Range("A" & i).Value = UserForm1.TextBox1.Value

    Sheets("Reservations").Range("B" & i).Value = UserForm1.TextBox2.Value

    Sheets("Reservations").Range("C" & i).Value = UserForm1.TextBox3.Value

    Sheets("Reservations").Range("D" & i).Value = UserForm1.TextBox4.Value

    Sheets("Reservations").Range("E" & i).Value = UserForm1.TextBox5.Value

    Sheets("Reservations").Range("H" & i).Value = UserForm1.TextBox8.Value

    Sheets("Reservations").Range("F" & i).Value = UserForm1.ComboBox4.Value

    Sheets("Reservations").Range("G" & i).Value = UserForm1.ComboBox1.Value

    Sheets("Reservations").Range("G" & i).Value = UserForm1.ComboBox2.Value

    Sheets("Reservations").Range("I" & i).Value = UserForm1.TextBox9.Value




End If

---

谢谢。

您需要在单元格上运行如下格式：

Sheets("Reservations").Range("I" & i).NumberFormat = "00 00 00 00 00" 

---

您需要在单元格上运行如下格式：

Sheets("Reservations").Range("I" & i).NumberFormat = "00 00 00 00 00" 

---

在其前面添加“或将单元格格式更改为文本。是否尝试了格式功能？格式化（值，“0000000000”）您可以随意使用格式化，以便它始终显示前导零，但我认为，由于这些是拨号数字，您无论如何都应该将其视为文本，以便保留任何前导零。因此，我同意@cyboashu使用引号或格式作为文本进行前置。我还建议您以某种方式重构代码，使用一些循环和数组。这不仅提高了可读性，还有助于避免错误。请注意，例如，在最后一行之前的一行中，您在

G&i

上覆盖了两次…是的，我知道，我试图在excel的一个单元格中获得两个组合框的结果，但它不起作用。在其前面添加“或将单元格格式更改为文本。您尝试过格式功能吗？格式化（值，“0000000000”）您可以随意使用格式化，以便它始终显示前导零，但我认为，由于这些是拨号数字，您无论如何都应该将其视为文本，以便保留任何前导零。因此，我同意@cyboashu使用引号或格式作为文本进行前置。我还建议您以某种方式重构代码，使用一些循环和数组。这不仅提高了可读性，还有助于避免错误。请注意，例如，在最后一行之前的一行中，您在

G&i

上覆盖了两次……是的，我知道，我试图在excel的一个单元格中获得两个组合框的结果，但它不起作用。