[已解决]求各位老师教教按钮重复创建，如何修改？

Quincy_xiao

last.zip (233.4 KB, 下载次数: 7)

2022-8-17 11:22 上传

点击文件名下载附件

各位老师好，在我从网上查看修改的这段代码中，明明应该有重复的按钮时会先清除一个再创建，但是现在会重复创建，我要让他如果有这个按钮 了就不重复创建了，应该怎么办？

1. Sub Mybutton()
   
2. Dim sht As Worksheet, btn As Button
   
3. On Error Resume Next
   
4.     For Each sht In Worksheets
   
5.         With sht
   
6.             If .Name <> strShtName Then
   
7.                 .Shapes(strShtName).Delete
   
8.                     Set btn = .Buttons.Add(0, 0, 60, 30)
   
9.                     
   
10.                     With btn
    
11.                         .Name = strShtName
    
12.                         
    
13.                         .Characters.Text = "返回目录"
    
14.                         
    
15.                         .OnAction = "LinkTable"
    
16.                         
    
17.                     End With
    
18.             End If
    
19.         End With
    
20.     Next
    
21. Set btn = Nothing
    
22. <div>End Sub</div><div>
    
23. </div>Sub LinkTable()
    
24.     strShtName = "sheetsList"
    
25.     Worksheets(strShtName).Activate
    
26.     [a1].Select
    
27. <div>End Sub</div><div>
    
28. </div><div>
    
29. </div><div>
    
30. </div><div>
    
31. </div><div><img alt="" src="http://www.excelpx.com/forum.php?mod=image&aid=454823&size=300x300&key=91de2f0c441a8c8d&nocache=yes&type=fixnone&ramdom=G2yy8" border="0" aid="attachimg_454823">
    
32. 
    
33. <img alt="" src="http://www.excelpx.com/forum.php?mod=image&aid=454822&size=300x300&key=57e0ecc3c2611319&nocache=yes&type=fixnone&ramdom=HsqWa" border="0" aid="attachimg_454822">
    
34. 
    
35. 
    
36. 
    
37. <b></b><i></i><u></u><strike></strike>
    
38. </div>

复制代码

最佳答案

月排行榜 / 总排行榜

zjdh

2022-8-17 11:04

这个宏这样修改
Sub Mybutton()
    Dim sht As Worksheet, btn As Button, An As Shape
    For Each sht In Worksheets
        With sht
            For Each An In .Shapes    '删除原有的按钮，避免重复创建
                If An.Type = msoFormControl Then
                If An.AlternativeText = "返回目录" Then An.Delete
                End If
            Next
            Set btn = .Buttons.Add(0, 0, 60, 30)
            With btn
                .Name = strShtName
                .Characters.Text = "返回目录"
                .OnAction = "LinkTable"
            End With
        End With
    Next
    Set btn = Nothing
End Sub

跳转到最佳答案楼层

zjdh

这个宏这样修改
Sub Mybutton()
    Dim sht As Worksheet, btn As Button, An As Shape
    For Each sht In Worksheets
        With sht
            For Each An In .Shapes    '删除原有的按钮，避免重复创建
                If An.Type = msoFormControl Then
                If An.AlternativeText = "返回目录" Then An.Delete
                End If
            Next
            Set btn = .Buttons.Add(0, 0, 60, 30)
            With btn
                .Name = strShtName
                .Characters.Text = "返回目录"
                .OnAction = "LinkTable"
            End With
        End With
    Next
    Set btn = Nothing
End Sub