TOP
|
资料名称: |
【工程应用】工程质量验收检验数值超标自动标示为三角形 |
提交者: |
gljwm |
|
提交日期: |
2021-02-16 13:27:26 |
浏览量: |
1031 |
总下载量: |
次 |
本月下载量: |
0 次 |
本周下载量: |
0 次 |
今日下载量: |
0 次 |
最后下载日期: |
|
软件作者: | | 软件语言: | 简体中文 | 授权形式: | 免费版 | 软件大小: | 58KB | 软件地址: | 工程检验批质量验收记录表 迅雷高速下载
|
资料介绍: |
一、前言 曾经看到一个网友问这个问题: 如何对超标数值自动插入三角符号 意思是黄色单元格内(G:P列)的数值超过这一行最前面的蓝色单元格(F列)时,就在超过的数值所在的单元格标示红色的三角形。
二、功能 代码的功能就是实现对超过超过的数据进行标注,用红色有三角形标注。 在质量评定中,当有数值超过范围时,是用下划线进行标示的,这里是用三角形进行标示的,意思是一样的。 只要修改数据,三角形自动更新!
三、代码 1、晚上临时写了一段代码,发上面共享一下,看看对大家有用不! OptionExplicit
PrivateSub 标示超标值_Click() Dimi%, j%, n%, k%, m% DimKmax%, Kmin% Dimstr$ DimPic As Shape Dimrngtop%, rngleft%, rngwid%, rnghig%
OnError Resume Next
''删除原三角形 ForEach Pic In ActiveSheet.Shapes IfPic.Name Like "AutoShape*" Then Pic.Delete EndIf Next
Fori = 17 To 108 ''32''行 str = Cells(i, 6).Value str = Replace(str, "mm", "") n = InStr(1, str, ",") m = InStr(1, str, "±") Ifn > 0 Then Kmax = Left(str, n - 1) Kmin = Mid(str, n + 1, Len(str)) ElseIfn = 0 Then Ifm > 0 Then str = Replace(str, "±", "") Kmax = str Kmin = -str ElseIfm = 0 Then Kmax = Left(str, Len(str)) EndIf EndIf
Forj = 7 To 16 ''列 IfCells(i, j) <> "" Then k = Cells(i, j).Value Ifk > Kmax Or k < Kmin Then ''画三角形 rngtop = Cells(i, j).Top rngwid = Cells(i, j).ColumnWidth rngleft = Cells(i, j).Left + rngwid rnghig = 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 = 10 Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Fill.Visible = msoFalse Cells(i,j).Select
EndIf EndIf Nextj Nexti
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.Select End Sub
|
下载说明: |
☉如果下载设置了收费等权限,则无法使用迅雷,快车下载。
☉推荐使用迅雷下载本站软件,使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请联系我们,谢谢合作!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,请到本站论坛去咨寻,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。 |
|
|
|