数字自动设置大小、颜色

qwe123123qwe

在工作表中，要求在任意单元格中输入含有阿拉伯数字时，数字能自动变为16号、加粗、蓝色。致谢  
如附件 book.rar (2 KB, 下载次数: 20)

2011-4-21 12:31 上传

点击文件名下载附件

wudixin96

只能用用VBA了

qwe123123qwe

不错是要用VBA,只要求能达到效果，请帮忙

[ 本帖最后由 qwe123123qwe 于 2011-4-21 13:18 编辑 ]

wudixin96

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.ScreenUpdating = False
   
3. Set regEx = CreateObject("vbscript.regexp")
   
4. regEx.Pattern = "\d+\.{0,1}\d*"
   
5. regEx.Global = True
   
6. For Each mt In regEx.Execute(Target)
   
7.    With Target.Characters(mt.firstIndex + 1, mt.Length).Font
   
8.      .Bold = True
   
9.      .ColorIndex = 5
   
10.      .Size = 16
    
11.     End With
    
12. Next
    
13. Set regEx = Nothing
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

qwe123123qwe

十分感谢，能达到要求

xjm1285

留记号

qwe123123qwe

wudixin96:
      删除一个单元格内的数据没问题，但同时选中二个以上单元格删除数据时VBA出错，请教怎样解决？谢谢

doitbest

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Set regEx = CreateObject("vbscript.regexp")
regEx.Pattern = "\d+\.{0,1}\d*"
regEx.Global = True
For Each mt In regEx.Execute(Target)
   With Target.Characters(mt.firstIndex + 1, mt.Length).Font
     .Bold = True
     .ColorIndex = 5
     .Size = 16
    End With
Next
Set regEx = Nothing
Application.ScreenUpdating = True
End Sub

qwe123123qwe

谢谢,已解决