查找单元格字符串中数字部分，并标注红色 （原创）

Sub ChangeColor()'======================================='查找单元格字符串中数字部分，并标注颜色'型号中一般缸径、行程均为数字表示，有助于观看。'作者：xiaohe'========================================    Dim strNum() As String    Dim i As Integer    Dim strContent As String        strContent = ActiveCell        i = Len(strContent)        ReDim strNum(i)        For ii = 0 To i            strNum(ii) = Right(Left(strContent, ii), 1)            Next ii             For j = LBound(strNum) To UBound(strNum) - 1               If Asc(strNum(j + 1)) >= 48 And Asc(strNum(j + 1)) <= 57 Then                        With ActiveCell.Characters(Start:=j + 1, Length:=1).Font                            .ColorIndex = 3                                End With                    End If            Next j    End Sub


	
				
	
					   
查找单元格字符串中数字部分，并标注红色 （原创）
	  	   
[原创]对字符串中包含数字的部分进行数值运算
	  	   
截取字符串中数字部分函数
	  	   
ORACLE获取字符串中数字部分
	  	   
C++实现查找字符串中的数字，并输出
	  	   
查找字符串中的每个数字与字母并输出
	  	   
Android把字符串中的数字变为红色
	  	   
JS----table 简单的查找并标注
	  	   
查找数字字符串中每个数字出现的次数
	  	   
查找字符串中的数字
	  	   
Python 字符串查找数字
	  	   
PHP在字符串中查找指定字符串并删除
	  	   
如何从指定字符串中查找并替换字符串？
	  	   
C++字符串中查找子字符串并替换
	  	   
原创 全城公交标注系统 （2）
	  	   
（原创）检测字符串是否包含有数字
	  	   
从字符串字段中，查找全是数字的记录
	  	   
查找字符串中最长的连续数字子串
	     		  
	  	   
XFire实现身份验证(基于Xfire SOAP Header的WebService安全验证)
	  	   
我眼中的敏捷实践
	  	   
3,2011.9.1,物料主界面
	  	   
早期作的一款测试板，主要是为了测试二手信利的12864液晶（ks0108）
	  	   
robocopy返回值
	  	   
查找单元格字符串中数字部分，并标注红色 （原创）
	  	   
设置Eclipse的workspace路径
	  	   
Application, Session, Cookie, Viewstate, Cache对象用法、作用域和区别
	  	   
用Objective-C 实现的简单连连看
	  	   
Linux及ARM Linux程序开发笔记（零基础入门篇）2
	  	   
一个通过VBA建立某文件快捷方式的例子 （备注）
	  	   
不知婆婆是什么意思？
	  	   
apache2.2服务无法启动 发生服务特定错误:1 的解决办法
	  	   
查看SQL字段是否允许为空