将文本框（Excel 2010 中的用户表单 VBA）格式化为荷兰移动 phone 号码

Question

Whosebug 的同胞们，

我带着另一个问题来找你，我想从中学习。我有一个将员工添加到员工数据库的用户窗体。代码如下，完美运行。

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Employee-Data")

iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 4).Value = Me.TextBox1.Value
ws.Cells(iRow, 3).Value = Me.TextBox2.Value
ws.Cells(iRow, 7).Value = Me.TextBox3.Value
ws.Cells(iRow, 6).Value = Me.TextBox4.Value
ws.Cells(iRow, 15).Value = Me.TextBox5.Value
ws.Cells(iRow, 9).Value = Me.TextBox6.Value
ThisWorkbook.Save
Unload Employee
End Sub

我的问题如下，我想将 TextBox6 的格式限制为荷兰电话号码，即 06-########。我希望 TextBox6 显示 06- 并使其只能输入 8 个数字作为值。

我已经尝试了以下以及更多：

Private Sub TextBox6_Change()
TextBox1.Text = Format(ws.Cells(iRow, 9).Value,"##""-"########")

End Sub

我在这里的想法有什么错误，我是不是使用了错误的方法？任何人都可以为这个问题提出一个体面的解决方案吗？如前所述，尝试从我的错误中吸取教训，所以请告诉我我做错了什么，而不仅仅是提供解决方案。

Answer 1

ws.Cells(iRow, 9).Value = "06-" & Me.TextBox6.Value

注意单元格格式，因为您可能会得到一个日期。转换为文本或数字等

将文本框（Excel 2010 中的用户表单 VBA）格式化为荷兰移动 phone 号码

Formatting Textbox (Userform VBA in Excel 2010) to Dutch mobile phone number

vba

userform

excel-2010