工程质量验收检验数值超标自动标示为三角形

hhzjxss

昨天看到一个网友问这个问题：

如何对超标数值自动插入三角符号
意思是黄色单元格内（G：P列）的数值超过这一行最前面的蓝色单元格（F列）时，就在超过的数值所在的单元格标示红色的三角形。

昨天晚上临时写了一段代码，发上面共享一下，看看对大家有用不！




工程检验批质量验收记录表.zip (21.31 KB, 下载次数: 62)

2016-5-17 21:55 上传

点击文件名下载附件

QCLi

谢谢hhzjxss老师分享，可是黄色单元格内（G：P列）的数值要是设置随机数的话，每次数据变动不能自动删除原三角形。

hhzjxss

QCLi 发表于 2016-5-18 09:14
谢谢hhzjxss老师分享，可是黄色单元格内（G：P列）的数值要是设置随机数的话，每次数据变动不能自动删除原三 ...

当然可以，修改成工作表事件就行了！

hhzjxss

现在可以，只要修改数据，三角形自动更新！

附件下载： 工程检验批质量验收记录表(修改标示三角形).zip (21.04 KB, 下载次数: 13)

2016-5-19 20:06 上传

点击文件名下载附件

增加的代码：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim mm%
   
3.     mm = Target.Value
   
4.     If Target.Column >= 7 And Target.Column <= 16 Then
   
5.         If IsNumeric(mm) Then
   
6.             Call 标示超标值
   
7.         End If
   
8.     End If
   
9.     Target.Select
   
10. End Sub

复制代码

02761752696

谢谢  分享