窗体中的文本框格式 - excel吧

level 6

Ice_冻结楼主

请教大神们，在文本框入了000000000000，怎么可以自动显示为000-000000-000，

2021年11月29日 05点11分 1

level 6

Ice_冻结楼主

但是如果入了000-000000-000还是会显示000-000000-000，怎么可以做到？

2021年11月29日 05点11分 2

level 6

Ice_冻结楼主

有大神吗

2021年11月29日 05点11分 3

level 11

weitao183

文本框和单元格本质上是一个东西，你单元格怎么设置的，文本框就怎么弄

2021年11月29日 06点11分 4

level 13

阿良

写一个文本框事件来判断和修改

2021年11月29日 07点11分 5

Ice_冻结

请问这个是放在窗体里面吗？好像判断不了

2021年11月29日 10点11分

阿良

你是窗体里的文本框控件不是excel直接插入的。就是改urefrom、caption 属性。窗体加载的时候运行 caption =“xxxx-xxxx”。然后再在textbox里写一个失去焦点的事件. 然后也是那段代码 text改成caption 判断对方输

2021年11月29日 13点11分

level 12

夜辰无星

单元格格式改成000-0000-000;;!000-0000-000;@看看

2021年11月29日 08点11分 6

Ice_冻结

我是想窗体中那个文本框做到这个效果，不是单元格 [惊哭]

2021年11月29日 10点11分

夜辰无星

@Ice_冻结那不太清楚format函数？

2021年11月30日 00点11分

level 1

钟野梓

就直接加杠杠呗
Private Sub TextBox1_Change()
Dim str As String
str = Replace(TextBox1, "-", "")
If Len(str) > 9 Then
TextBox1 = Left(str, 3) & "-" & Mid(str, 4, 6) & "-" & Right(str, Len(str) - 9)
ElseIf Len(str) > 3 Then
TextBox1 = Left(str, 3) & "-" & Right(str, Len(str) - 3)
End If
TextBox1 = Left(TextBox1, 14)
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

2021年11月30日 09点11分 7