批量寻找单元格内是否包含英文字母，如果有则英文字母单独标色，这个可以实现吗？求解

hehex

hehex 发表于 2012-12-10 17:03
感谢wudixin96 老师的程序，我又向老师学了一招。
characters 属性的用法。

老师，我的思路有逻辑bug, 当出现60A 这种情况的时候，可能0也变色。
我正在思考怎么做。

hehex

wudixin96 发表于 2012-12-10 16:43

谢谢老师的指导，我写出来了。这次没问题了.

1. Dim i%, j%
   
2.     For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
3.         With Cells(i, 1)
   
4.             
   
5.                 If Not IsNumeric(.Value) Then
   
6.                     For j = 1 To Len(Cells(i, 1).Value)
   
7.                         If Mid(Cells(i, 1).Value, j, 1) > "9" Then
   
8.                             .Characters(j, 1).Font.ColorIndex = 3
   
9.                         End If
   
10.                     Next j
    
11.                 End If
    
12.         End With
    
13.     Next

复制代码

kyyjjj

各位老师，求教，我用的是2003版
如何设置在一个单元格输入数字后（如,123,1为一种颜色，2为另一种颜色，3又为另一种颜色），前面的一排单元格自动标出各数字的颜色没有则不显。(如123.321都有数字则标出颜色。659.621有则标出，985.698没有则不标)
如图：