条件格式变VBA代码？

fxgg72 · 发表于 2017-12-2 11:23

如题，见附件。
谢谢各位大侠老师的帮助！！！

条件格式变VBA代码？.rar (36.62 KB, 下载次数: 6)

fxgg72 · 发表于 2017-12-3 16:25

继续求助！
各位大侠帮帮我哦！
谢谢！

grf1973 · 发表于 2017-12-4 14:43

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 100 Or Target.Column > 120 Or Target.Column < 18 Then Exit Sub
If Not IsNumeric(Target) Then
Target.Interior.ColorIndex = 14
ElseIf Val(Target) >= Cells(Target.Row, "L") Then
Target.Interior.ColorIndex = 14
Else
Target.Interior.ColorIndex = 3
End If
End Sub

复制代码

fxgg72 · 发表于 2017-12-4 16:09

grf1973 发表于 2017-12-4 14:43

感谢老师的帮助！
就是这个效果的。还有一点：就是当删除单元格数据时，填充的颜色能否去掉，恢复为无色状态？
还有：If Target.Row > 100 Or Target.Column > 120 Or Target.Column < 18 Then Exit Sub
这个代码表示的区域意思还是不是太明白？
谢谢！

fxgg72 · 发表于 2017-12-4 16:15

grf1973 发表于 2017-12-4 14:43

grf1973 · 发表于 2017-12-4 16:28

加一句if target="" then target.interior.colorindex=0

fxgg72 · 发表于 2017-12-4 20:06

grf1973 发表于 2017-12-4 16:28
加一句if target="" then target.interior.colorindex=0

把这句代码放进去，成功了。谢谢老师！您的这句代码我还是不很理解“If Target.Row > 100 Or Target.Column > 120 Or Target.Column < 18 Then Exit Sub”，尤其是>120；
您在能解释下么？谢谢！

fxgg72 · 发表于 2017-12-4 20:09

grf1973 发表于 2017-12-4 16:28
加一句if target="" then target.interior.colorindex=0

现在的最佳答案怎么给呢？

fxgg72 · 发表于 2017-12-4 20:28

grf1973 发表于 2017-12-4 16:28
加一句if target="" then target.interior.colorindex=0

老师您好！
附件中这组代码麻烦您优化下，怎么解决同样的问题？
就是删除数据让单元格中原先填充的颜色恢复成无色。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, n&
Set rng = [r4:bm99]
If Intersect(rng, Target) Is Nothing Then Exit Sub
n = Target.Row
If Target <> "" And Cells(n, 12) <> "" Then
If Target < Cells(n, 12) Then
Target.Interior.ColorIndex = 3
Else
Target.Interior.ColorIndex = 10
End If
End If
End Sub

谢谢！！！

条件格式变VBA代码？.rar (34.15 KB, 下载次数: 2)

fxgg72 · 发表于 2017-12-4 20:38

grf1973 发表于 2017-12-4 16:28
加一句if target="" then target.interior.colorindex=0

高亮显示没有了？
跟高亮显示的代码和辅助的条件格式有冲突？

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

条件格式变VBA代码？

评分

评分