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

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 : 显示手机号码左边的零

VBA Excel : Show the zero in left on mobile number

excel

vba

mobile

numbers

zero