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 

谢谢。

Answer 1

你需要像这样在单元格上运行一个格式：

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