[已解决]单元格输入手机号，要求输入三位数字自动空格。

wk0316

要求：对单元格进行设置，输入手机号码，格式为135   1111 2222，就是前三位之后自动有一个空格，中间四位后自动有一个空格。最好是中间四位和后四位字体颜色不同，先谢谢！

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-7-21 13:04

看下哦。附加都跟上了。

跳转到最佳答案楼层

ws278106483

1. 
   
2. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
3. Selection.NumberFormatLocal = "000 0000 0000"
   
4. End Sub
   

复制代码

ws278106483

1. 
   
2. <P>Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
3. Target.Value = Mid(Target, 1, 3) & " " & Mid(Target, 4, 4) & " " & Mid(Target, 8, 4)</P>
   
4. <P>Target.Characters(Start:=5, Length:=4).Font.ColorIndex = 5
   
5. Target.Characters(Start:=10, Length:=4).Font.ColorIndex = 3
   
6. End Sub
   
7. </P>

复制代码

可以了，楼主记得给最佳哦。呵呵