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

ykcbf1100

zyhui1961 发表于 2023-4-17 14:53
我改一下就出现下面提示，是什么意思？还要怎么改动？谢谢！

3楼和7楼的代码都可以用的，我的代码更新后你再试一下。

zyhui1961

ykcbf1100 发表于 2023-4-17 15:59
你可以先用3楼和7楼的代码，我的代码还有点小问题。等下再处理一下。

明白了，我简直就是一个大蠢猪，是我把工作表保护了！！！

ykcbf1100

zyhui1961 发表于 2023-4-17 16:02
明白了，我简直就是一个大蠢猪，是我把工作表保护了！！！

原来如此。
常识性错误啊，这种错误我也经常会犯。

zyhui1961

ykcbf1100 发表于 2023-4-17 16:09
原来如此。
常识性错误啊，这种错误我也经常会犯。

我们是同龄人，我是没有文化，说实说上班的时候我们单位像我们这年龄的哪有几个会玩电脑的！确实佩服你！！！

734233228

希望对你有帮助

ykcbf1100

zyhui1961 发表于 2023-4-17 16:22
我们是同龄人，我是没有文化，说实说上班的时候我们单位像我们这年龄的哪有几个会玩电脑的！确实佩服你！ ...

我还有一个月就退休了。
你可以加我QQ，在QQ上聊更容易沟通，能帮我会帮的。

zyhui1961

734233228 发表于 2023-4-17 16:27
希望对你有帮助

都是厉害人！不过我看了你的资料有点吓到我了！

我走我流

跟 老 师  们  学 一个

zyhui1961

我走我流 发表于 2023-4-17 16:53
跟 老 师  们  学 一个

都能当老师，我操个作业都费劲！
可能是代码没抄对，没能达到目的：
Sub tetete()
    Dim rng As Range, x
    For Each rng In Range("b9:b12，b16:b18,c7:c9,c17:c19")
    rng.Characters.Font.Color = 0 '清除红免格式
    For x = Len(rng) To 1 Step -1 '字符的最后1个倒数
    If ((Len(rng) - x) Mod 8) + 1 > 4 Then '取位置减1余数再加1结果为5，6，7，8的变色
    rng.Characters(x1).Font.Color = vbRec
    End If
    Next
    Next
End Sub

734233228

zyhui1961 发表于 2023-4-17 16:47
都是厉害人！不过我看了你的资料有点吓到我了！

什么意思？