Question

我正在开发一个使用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

谢谢。

Answer 1

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

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

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

1 个答案: