EXCEL如何自动加入三角形

tttomya

dsmch 发表于 2011-4-1 16:27
打开文件，按alt+f8,点执行

三角形随着单元格的变化自动相应变化。

楼主的解决方案简洁明了有效！

谢谢，我正好派上了用场。

但我还想请教楼主一下，能不能进一步扩展那段代码的功能。
在数据输入时，一旦超出限值，它自动标注三角形。而一旦数值合格，自动删除三角形。不用按alt+f8.
比如可以利用VBA的屏幕刷性事件，或其它一些事件触发。

dsmch

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Not Application.Intersect(Target, [b2:h9]) Is Nothing And Target.Count = 1 Then
   
3.     If Target > 10 Then
   
4.         x1 = Target.Left + Target.Width / 5
   
5.         y1 = Target.Top
   
6.         x2 = Target.Width / 2
   
7.         y2 = Target.Height * 3 / 4
   
8.         ActiveSheet.Shapes.AddShape(msoShapeFlowchartExtract, x1, y1, x2, y2).Select
   
9.         Selection.ShapeRange.Fill.Transparency = 1
   
10.     End If
    
11. End If
    
12. End Sub

复制代码

dsmch

附件…………

煙ヽ淡莣那傷

你好，10楼，你已经操作成功了，请问这个要怎么操作，很急，谢谢了

煙ヽ淡莣那傷

dsmch 发表于 2012-11-10 22:27

可以把不要都设置只显示大于10吗，能弄两个吗，就是A1行大于10的显示三角形，B1行大于20的显示三角形，可以这样吗

LAOTANG1984

我好几年前也提过这个问题
但是一直都没有人解决
这个要好好学习一下

long6ye

程序好难，搞不懂{:soso_e127:}！！

xiaolaoshu1

我还是不会用三角形把不合格项标注出来,谁能帮我详细讲解一下吗

tanghanping2011

学习了，谢谢各位大侠！

Mooge88

还有需要的同学可以看看这个