VBA案例精选 快速填充编号

代码运行结果：

代码截图：

代码文本：

Public Sub 快速填充编号()

Dim myCommandBar As CommandBar

Dim myCommandBarCnt As CommandBarControl

Dim i As Long

Cells.Clear    '清除所有单元格

For Each myShape In Worksheets(1).Shapes

If myShape.Name <> "myButton" Then

myShape.Delete    '删除名字不为myButton的图形对象

End If

Next

On Error Resume Next

Application.CommandBars("FaceID").Delete

On Error GoTo 0

'创建一个临时的自定义工具栏FaceID

Set myCommandBar = Application.CommandBars.Add(Name:="FaceID")

Set myCommandBarCnt = myCommandBar.Controls.Add(Type:=1)

For i = 1 To 300

myCommandBarCnt.FaceId = i

myCommandBarCnt.CopyFace    '复制命令按钮的Icon

With Worksheets(1)

.Paste    '将复制的命令按钮Icon粘贴到工作表中

.Shapes(.Shapes.Count).Top = .Cells(i, 2).Top

.Shapes(.Shapes.Count).Left = .Cells(i, 2).Left

.Cells(i, 1).Value = i

End With

Next i

myCommandBar.Delete    '删除临时的自定义工具栏FaceID

Set myCommandBarCnt = Nothing

End Sub

【你们百度三天  不过我随口一句】
郑广学老师独家逐行手写沉浸式案例教学法 知其然更知其所以然
全套教程包含 VBA175例+函数操作408例+代码助手VIP
+100期直播回放
【268元进1000人高手VBA永久答疑群+880网站VIP】
买课咨询请加微信EXCEL880B

点击进入 郑广学老师Excel教程免费学7天 !

---

扫描二维码