书写或按制表符时 EXCEL VBA 格式文本框

Question

所以我几乎完成了我的代码，只是缺少一件事，用户将不得不引入 12 个数字，示例"123456789123"，结果是 123-456.789-123，我设法在打印到 Excel 工作表时获取格式，但我想要一些可以立即给我这种格式的东西，因为它更容易发现任何输入错误。例如，用户将123456789123放在文本框上，当 Tab 键转到另一个框时，它会设置格式。可能吗？

Answer 1

Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 3 And TextBox1.Text Like "###" = True Then     
TextBox1.Text = TextBox1.Text & "-"
If Len(TextBox1.Text) = 7 And TextBox1.Text Like "###-###" = True Then 
TextBox1.Text = TextBox1.Text & "."
If Len(TextBox1.Text) = 11 And TextBox1.Text Like "###-###.###" = True Then 
TextBox1.Text = TextBox1.Text & "-"
If Len(TextBox1.Text) > 15 Then TextBox1.Text = Left(TextBox1.Text, 15)
End Sub