当前位置： 移动技术网 > Office>Excel>Excel > Excel宏实现在某一文本中查找6位数字给予加粗处理

Excel宏实现在某一文本中查找6位数字给予加粗处理

2018年04月24日  | 移动技术网Office  | 我要评论

iedw.exe,河南联通信息在沃,怕热的美女攻略

主要实现功能：在某一文本中查找6位数字，给予加粗处理。

涉及知识点：基本逻辑语句、字符串处理函数等。

代码：

strG = Cells(i, basicCol)    ‘获取某单元格字符串内容

strLen = Len(strG)    ‘获取字符长度

For j = 1 To strLen     ‘从字符串头循环到末尾

     c = VBA.IsNumeric(Mid(strG, j, 1))    ‘获取第j个字符是否是数字

     If VBA.IsNumeric(Mid(strG, j, 1)) Then    ‘判断第j个字符是否是数字

        countNum = countNum + 1    ‘如果是，则计数器+1

        If countNum = 6 Then    ‘判断计数器是否=6

            pos = j - 5        ‘如果是，位置=j-5

            Cells(i, basicCol).Characters(pos, 6).Font.Bold = True    ‘pos之后的六个字符加粗

        End If

     Else

        countNum = 0    ‘如果计数器未能到6即遇到非数字字符，则计数器归0

     End If

Next j

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网