|
12这是我添加的按钮,我删除后就显示第二个图里的内容了。怎么回事,下面是我的代码
Sub 添加分类()
Dim hrr(1 To 4)
With 参数表
'先判断厂家的名称在什么位置,在判断名称对应的创建按钮位置,按钮的名称要改成序号1-200等
For Each x In ActiveSheet.Shapes
If x.Name Like "CommandButton" & "*" Then x.Delete: Exit For '删除名称为CommandButton1的控件按钮,先循环查找(问题就出在这里)
Next x
Set r = .Range("k24:k223").Find("*", .Range("k223"), , 1)
If Not r Is Nothing Then
rrr = r.Row
Else
MsgBox "对应材料位置添加厂家名称"
Exit Sub
End If
For yy = 24 To 1000
m = m + 1
If yy = rrr Then
g = 504 + 17 * m
Exit For
End If
Next
.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=r.Left, Top:=r.Top, Width:=r.Width, Width:=r.Width).Select '添加按钮位置 Top 是上下位置,每次加27
.OLEObjects("CommandButton" & 1).Object.Caption = "序号(" & m & ")决算类" '修改控件按钮名称
End With
End Sub
|
|