Excel宏实现在某一文本中查找6位数字给予加粗处理
程序员文章站
2022-05-08 23:33:49
主要实现功能:在某一文本中查找6位数字,给予加粗处理。
涉及知识点:基本逻辑语句、字符串处理函数等。
代码:
strG = Cells(i, basicCol...
主要实现功能:在某一文本中查找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