[已解决]快速取消选中所有Excel全部 表单控件-选项按钮

acjt7

为了快速取消选中所有Excel全部 表单控件-选项按钮，我i编辑了下面程序。但是发现运行时间太长（5秒），希望高手指点，有没有更快的方法编程。

Sub 清零_Click()
  On Error Resume Next
  For I = 1 To 260
  ActiveSheet.Shapes.Range(Array("Option Button " & I)).Select
  Selection.Value = False
  Next I
  Range("A1").Select
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-10-13 08:57

Sub test()
    Dim shp As Shape
    Application.ScreenUpdating = False
    For Each shp In Sheet3.Shapes
        If shp.Name Like "Option*" Then shp.LinkFormat = False
    Next
End Sub

00 ABON Lean Assessment 2016-Active X-20161011- 删减版 - 增加快速清零按钮2.rar (302.94 KB, 下载次数: 18)

2016-10-13 08:57 上传

点击文件名下载附件

跳转到最佳答案楼层

望帝春心

只要这一句Range("A1").Select，就可以了吧...

acjt7

上传文件，看有没有高手再指导一下

爱疯

Sub test()
    Dim shp As Shape
    Application.ScreenUpdating = False
    For Each shp In Sheet3.Shapes
        If shp.Name Like "Option*" Then shp.LinkFormat = False
    Next
End Sub

00 ABON Lean Assessment 2016-Active X-20161011- 删减版 - 增加快速清零按钮2.rar (302.94 KB, 下载次数: 18)

2016-10-13 08:57 上传

点击文件名下载附件

acjt7

爱疯 发表于 2016-10-13 08:57
Sub test()
    Dim shp As Shape
    Application.ScreenUpdating = False

So good!
Thanks 斑猪