线表计划大结局-归零心态

前言

通过前面三章的讲解,估计大家已经掌握了图形的基本使用方法,可以灵活的控制图形的显示位置了,以及颜色了,但是当日期发生改变,需要重新运行一下程序时,线条或图形不会自动删除,所以每运行一次,就会增加一次,最后工作表了堆积了大量的无用图形.所以大家一定要记住,在运行程序前一定要将绘图区域归零,删除绘图区所有的图形,,然后再运行宏命令。

归零大法

删掉图形的方法:

1\手动选择,按住CTRL键,一个个点击图形进行选择,这不是我要讲的

2\F5,定位条件,对象,确定后,所有的对象元素均被选中,点击DEL全部删除,有可能把不想删除的删掉。

3\使用鼠标,框选对象,可以将制定某个区域的对象删除,总感觉这个按钮好难找,这个图标的位置在开始\查找与选择下面,如下图所示:

4\最后,还是回到VBA这里,因为上述方法都存在致命缺陷,不够自动化。

如下图所示,我只想删除F2:J4里面的图形,其他的图形不变.

打开vba编辑器,输入系列代码:

Sub 定位删除图形()

For Each p In ActiveSheet.Shapes

If Not Application.Intersect(p.TopLeftCell,Range("F2:J4")) Is Nothing Then

p.Delete

End If

Next

End Sub

这个程序是将活动工作表中的每个图形,逐一判断该图形的左上角与单元格区域Range("F2:J4"))是否有交集,如果有,则删除此图形,如果没有交集则放你一马.

因此可以在画线程序开始时,调用此过程,就不用每次手动删除了.以下是完整程序:包含两个过程“drawlineR1”及“定位删除图形”,运行时把鼠标放在drawlineR1过程中,按下F5,程序首先调用“定位删除图形”子过程,然后再重新绘制图形。

Sub drawlineR1()

定位删除图形

For I = 2 To 4

Start_x = Cells(I,Cells(I, 4)).Left + (Day(Cells(I, 2)) - 1) / Day(WorksheetFunction.EoMonth(Cells(I,2), 0)) * Cells(I, Cells(I, 4)).Width

Start_y = Cells(I,Cells(I, 4)).Top + Rows(I).Height / 2

Finish_x =Cells(I, Cells(I, 5)).Left + Day(Cells(I, 3)) /Day(WorksheetFunction.EoMonth(Cells(I, 3), 0)) * Cells(I, Cells(I, 5)).Width

Finish_y = Start_y

ActiveSheet.Shapes.AddLine(Start_x, Start_y, Finish_x, Finish_y).Select

WithSelection.ShapeRange.Line

.Weight = 3

.ForeColor.RGB = vbRed

End With

Next

End Sub

Sub 定位删除图形()

For Each p In ActiveSheet.Shapes

If Not Application.Intersect(p.TopLeftCell,Range("F2:J4")) Is Nothing Then

p.Delete

End If

Next

End Sub

按钮关联

最后,为了更方便的更新程序,可以在工作表中插入一个按钮,关联到vba即可

在开发工具中找到插入表单控件\按钮

在弹出的对话框中选择要关联的程序名称,确定即可.

放置按钮在合适的位置,右键编辑文字,命名为”更新”

当日期发生变更时,直接点击此按钮就可以啦!

总结

(0)

相关推荐