六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

VBA批量清除名称、超级链接、图形、条件格式等源代码示例

Admin | 2009-6-9 19:37:44 | ReadNums | 8233 | 标签 六合开奖结果现场直播 | 打印本页
     

  ①批量删除批注

  Sub 批量删除批注()

  Dim cm As Comment
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
   For Each cm In ws.Comments
    cm.Delete
   Next cm
  Next ws
  End Sub

  ②批量删除名称

  sub 批量删除名称()

  Dim nm As Name
  For Each nm In ThisWorkbook.Names
      nm.Delete
  Next nm
  end sub

  ③批量超链接

  Sub 批量删除超链接() 

  Dim hl As Hyperlink
     Dim ws As Worksheet
     For Each ws In ThisWorkbook.Worksheets
          For Each hl In ws.Hyperlinks
              hl.Delete
          Next hl
     Next ws
  End Sub

  ④批量删除自定义图形图像

  Sub 批量删除图形图像()

  Dim sp As Shape
     Dim ws As Worksheet
     For Each ws In ThisWorkbook.Worksheets
          For Each sp In ws.Shapes
              sp.Delete
          Next sp
     Next ws
  End Sub

  ⑤清除条件格式

  Sub 批量清除条件格式()
     Cells.FormatConditions.Delete
  End Sub

  以上代码的实现原理:使用vba中的一些对象集合,然后通过遍历所有的对象将之删除。上面的宏会删掉所有当前工作表的所有工作表中的相应对象。当然也可以用activesheet对象来实现活动工作表中的对象。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日