VBA Excel : 显示手机号码左边的零

VBA Excel : Show the zero in left on mobile number

我正在与 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"