单元格从右到左每间隔4位数变红色，谢谢！！！

zyhui1961 · 发表于 2023-4-11 12:48

准提部林 · 发表于 2023-4-11 14:44

Sub TEST_A1()
Dim A As Range, j%, c%, v%
[c7:c20].Font.ColorIndex = 0
For Each A In [c7:c20]
c = (Len(A) - 1) Mod 8 - 3
For j = Len(A) To -3 Step -8
v = IIf((j <= 0) * (c > 0), c, 4)
A.Characters(j + 1, v).Font.ColorIndex = 3
Next j
Next
End Sub

zyhui1961 · 发表于 2023-4-11 17:27

准提部林发表于 2023-4-11 14:44
Sub TEST_A1()
Dim A As Range, j%, c%, v%
[c7:c20].Font.ColorIndex = 0

谢谢老师！谢谢！！！

gwjkkkkk · 发表于 2023-4-11 19:31

参与一下。。。

zyhui1961 · 发表于 2023-4-16 08:02

本帖最后由 zyhui1961 于 2023-4-16 08:04 编辑

gwjkkkkk 发表于 2023-4-11 19:31
参与一下。。。

再增加点难度，能实现吗？谢谢！！！

		自动登录	找回密码
密码			免费注册

[求助] 单元格从右到左每间隔4位数变红色，谢谢！！！

评分

评分