码迷,mamicode.com
首页 > 其他好文 > 详细

Excel 删除行数据的同时删除当前行中的对象

时间:2014-07-25 03:50:35      阅读:237      评论:0      收藏:0      [点我收藏+]

标签:数据   for   re   c   ar   对象   target   x   

Private Sub Worksheet_Change(ByVal Target As Range)
Dim srg As Range, x As Shape
If Target.Count = Target.EntireRow.Cells.Count Then
    For Each x In Shapes
        If x.Top >= Target(1).Top And x.Top < Target(1).Offset(1, 0).Top Then: x.Delete
    Next x
End If
End Sub

这个有个BUG,当删除对象后,无法进行撤销操作。

Excel 删除行数据的同时删除当前行中的对象,布布扣,bubuko.com

Excel 删除行数据的同时删除当前行中的对象

标签:数据   for   re   c   ar   对象   target   x   

原文地址:http://www.cnblogs.com/xyUbuntu/p/3866925.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!