[已解决]谁能编个程序数值超出一定值后能加上三角符号

770665667

附件.zip (8.49 KB, 下载次数: 8)

2014-6-20 16:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-6-20 22:45

………………

跳转到最佳答案楼层

baksy

设置格式颜色突出不可以吗？
必须插入三角？

刘苏

条件格式 满足条件则颜色突出显示 就可以了。   个人认为 这个是一个不合理的需求，会给你后期处理带来更多的麻烦，而不是便利

770665667

baksy 发表于 2014-6-20 16:56
设置格式颜色突出不可以吗？
必须插入三角？

对必须加三角

dsmch

1. Sub Macro1()
   
2. For Each c In ActiveSheet.Shapes
   
3.     If c.Type <> 8 Then c.Delete
   
4. Next
   
5. For i = 17 To Range("g65536").End(xlUp).Row
   
6.     n = Val(Replace(Cells(i, "g"), "±", ""))
   
7.     For j = 8 To 17
   
8.         If Abs(Cells(i, j)) > n Then
   
9.             Set rng = Cells(i, j)
   
10.             x = rng.Left + rng.Width * 0.1
    
11.             y = rng.Top + rng.Height * 0.1
    
12.             w = rng.Width * 0.8
    
13.             h = rng.Height * 0.8
    
14.             ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, x, y, w, h).Select
    
15.             Selection.ShapeRange.Fill.Transparency = 0.7
    
16.         End If
    
17.     Next
    
18. Next
    
19. End Sub
    

复制代码

dsmch

………………

770665667

dsmch 发表于 2014-6-20 22:45
………………

高人!可以讲解分析代码是什么意思吗