TOP

资料名称: 【工程应用】工程质量验收检验数值超标自动标示为三角形
提交者: gljwm
提交日期: 2021-02-16 13:27:26
浏览量: 2
总下载量:
本月下载量: 0
本周下载量: 0
今日下载量: 0
最后下载日期:
软件作者:  
软件语言: 简体中文 
软件大小: 58KB 
软件地址: 工程检验批质量验收记录表    
资料介绍:

图片


一、前言

曾经看到一个网友问这个问题:

如何对超标数值自动插入三角符号

意思是黄色单元格内(G:P列)的数值超过这一行最前面的蓝色单元格(F列)时,就在超过的数值所在的单元格标示红色的三角形。

二、功能

代码的功能就是实现对超过超过的数据进行标注,用红色有三角形标注。

在质量评定中,当有数值超过范围时,是用下划线进行标示的,这里是用三角形进行标示的,意思是一样的。

只要修改数据,三角形自动更新!


图片


三、代码

1、晚上临时写了一段代码,发上面共享一下,看看对大家有用不!



























































OptionExplicit
PrivateSub 标示超标值_Click()Dimi%, j%, n%, k%, m%DimKmax%, Kmin%Dimstr$DimPic As ShapeDimrngtop%, rngleft%, rngwid%, rnghig%
OnError Resume Next
''删除原三角形ForEach Pic In ActiveSheet.ShapesIfPic.Name Like "AutoShape*" ThenPic.DeleteEndIfNext
Fori = 17 To 108 ''32''行str = Cells(i, 6).Valuestr = Replace(str, "mm", "")n = InStr(1, str, ",")m = InStr(1, str, "±")Ifn > 0 ThenKmax = Left(str, n - 1)Kmin = Mid(str, n + 1, Len(str))ElseIfn = 0 ThenIfm > 0 Thenstr = Replace(str, "±", "")Kmax = strKmin = -strElseIfm = 0 ThenKmax = Left(str, Len(str))EndIfEndIf
Forj = 7 To 16 ''列IfCells(i, j) <> "" Thenk = Cells(i, j).ValueIfk > Kmax Or k < Kmin Then''画三角形rngtop = Cells(i, j).Toprngwid = Cells(i, j).ColumnWidthrngleft = Cells(i, j).Left + rngwidrnghig = Cells(i, j).RowHeight / 2 - 9.75 / 2

ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle,


rngleft + rngwid, rngtop + rnghig, 11.25, 9.75).Select

Selection.ShapeRange.Line.ForeColor.SchemeColor = 10Selection.ShapeRange.Line.Visible = msoTrueSelection.ShapeRange.Fill.Visible = msoFalseCells(i,j).Select
EndIfEndIfNextjNexti
End Sub


2、增加的代码,只要修改数据,三角形自动更新:











Private Sub Worksheet_Change(ByVal Target As Range)    Dim mm%    mm = Target.Value    If Target.Column >= 7And Target.Column <= 16 Then        If IsNumeric(mm) Then            Call 标示超标值_Click        End If    End If    Target.SelectEnd Sub
下载说明: ☉如果下载设置了收费等权限,则无法使用迅雷,快车下载。
☉推荐使用迅雷下载本站软件,使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请联系我们,谢谢合作!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,请到本站论坛去咨寻,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容:

相关栏目

最新资料

热门资料

推荐资料

相关资料

广告位