如何对指定区域输入的符合条件的字符串进行格式化(如发票号码等)?

楼主 kevinchengcw	Q: 如何对指定区域输入的符合条件的字符串进行格式化(如发票号码等)? A: 我们在处理单据的时候有希望对诸如**号码之类的输入数据进行对应的处理，以便打印效果符合要求，下面举个输入后自动格式化字符串的方式，代码如下： Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range On Error GoTo skip '设定出错时跳转位置，避免出错卡住 Application.EnableEvents = False '禁止事件响应，避免产生连锁反应 For Each Rng In Target '列举target中的每个单元格，这样写可以应对复制粘贴和下拉填充的情况 If Not Intersect(Range("d2:h65536"), Rng) Is Nothing Then '判断单元格位置是否在预设区域中 If Rng <> "" Then '判断单元格内容是否为空 Rng = UCase(Trim(Rng.Value)) '不为空时将单元格字母全部大写 If Len(Rng.Value) <> 10 Then '判断文本位数是否正确（本例为10位） Rng.Select '如果不正确则选定该单元格，并装底色置为绿色，并显示提示信息 Rng.Interior.Color = vbGreen MsgBox "位数错误", vbOKOnly, "错误" Else If IsNumeric(Rng.Value) Then Rng = "'" & Rng.Value '如果符合十位要求则判断单元格内容是否是数值，如果是加上单引号前缀转换成文本（因该处理方法仅对文本有效，既使用cstr处理过的数字也不能正确处理） With Rng .Interior.Color = vbYellow '设定单元格底色 .Characters.Font.Name = "宋体" '设置共有的字体及字型 .Characters.Font.FontStyle = "加粗" With .Characters(Start:=1, Length:=2).Font '处理第1，2个字符的字体大小及颜色 .Size = 11 .Color = vbRed End With With .Characters(Start:=3, Length:=2).Font '处理第3，4个字符的字体大小及颜色 .Size = 11.5 .Color = vbRed End With With .Characters(Start:=5, Length:=2).Font '处理第5，6个字符的字体大小及颜色 .Size = 13 .Color = vbBlack End With With .Characters(Start:=7, Length:=1).Font '处理第7个字符的字体大小及颜色 .Size = 12 .Color = vbBlack End With With .Characters(Start:=8, Length:=1).Font '处理第8个字符的字体大小及颜色 .Size = 11.5 .Color = vbBlack End With With .Characters(Start:=9, Length:=1).Font '处理第9个字符的字体大小及颜色 .Size = 11 .Color = vbBlack End With With .Characters(Start:=10, Length:=1).Font '处理第10个字符的字体大小及颜色 .Size = 10 .Color = vbBlack End With End With End If Else Rng.Interior.ColorIndex = xlNone '如果单元格为空则底色为无色 End If End If Next Rng skip: Application.EnableEvents = True '恢复事件响应 End Sub 本例相关设置及参数可以修改成个人所需效果。附示例文件。对指定区域输入的符合条件的字符串进行格式化.rar
2楼 meiok	很实用的例子啊可我没能力套用上，有劳帮看看我这个数字判断问题对数字的判断.rar
3楼 kevinchengcw	这样试下看看对数字的判断.rar
4楼 meiok	感谢，感谢

如何对指定区域输入的符合条件的字符串进行格式化(如发 票号码等)?

如何对指定区域输入的符合条件的字符串进行格式化(如发票号码等)?