将一个单元格的前3位字符设为红色

yueyueniao

各位大神，好久没弄电子表格了，本人是单位财务，这个功能对我的工作有很大的提醒帮助，请路过的大神出招，谢谢！

yueyueniao

不好意思，应该是好久没用VBA了，不是电子表格，电子表格天天用，哈哈！

yueyueniao

路过的大神，一定要帮助哈，这个起提醒作用，非常实用！谢了！

高个子

高个子

卡号前3位是628变为红色.zip (15.79 KB, 下载次数: 9)

2023-5-14 09:47 上传

点击文件名下载附件

yueyueniao

高个子 发表于 2023-5-14 09:47

谢谢大侠，辛苦了，我下载看看！

yueyueniao

高个子 发表于 2023-5-14 09:47

大侠，谢谢你的代码，我这里不要循环，是直接对B2格进行判断进行前3字符判断变色，没学过VBA，录的宏不行，麻烦你改一哈，我非专业的，试改几次没改成功，谢谢你了！

高个子

yueyueniao 发表于 2023-5-14 09:57
大侠，谢谢你的代码，我这里不要循环，是直接对B2格进行判断进行前3字符判断变色，没学过VBA，录的宏不行 ...

你只判断一个吗。。。

1. Sub kdy()
   
2.     If Left(Range("b2"), 3) = "628" Then
   
3.         Range("b2").Characters(1, 3).Font.Color = vbRed
   
4.     End If
   
5. End Sub
   

复制代码

gwjkkkkk

yueyueniao 发表于 2023-5-14 09:57
大侠，谢谢你的代码，我这里不要循环，是直接对B2格进行判断进行前3字符判断变色，没学过VBA，录的宏不行 ...

If Left([B2].Value, 3) = "628" Then [B2].Characters(1, 3).Font.Color = vbRed

yueyueniao

高个子 发表于 2023-5-14 10:00
你这个不循环怎么每个都上色？没学过就不要挑方案。。

大侠，我确实是只需要固定单元格判断变色的程序，如果要循环的话，我肯定在附件里设置很多行了并且要说明要求了，谢谢大侠，不好意思，让你笑话。我改试哈。