zoukankan      html  css  js  c++  java
  • 【VBA】自动填充序号

    使用Excle自带的工具栏图标填充

    填充效果图如下:

    image

    代码如下:

    Sub 自动填充序号()
        Dim A As CommandBar '代表容器应用程序中的一个命令栏
        Dim B 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.CommandBar("FaceID").Delete
        On Error GoTo 0
        '创建以个自定义的工具栏FaceID
        Set A = Application.CommandBars.Add(Name:="FaceID")
        Set B = A.Controls.Add(Type:=1)
        For i = 1 To 30
        B.FaceId = i
        B.CopyFace '复制命令按钮的Icon
        Cells(1, 1).Select
        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
        A.Delete '删除临时的自定义工具栏FaceID
        Set B = Nothing
    End Sub

    注意事项:在本代码中出现的“myButton”指的是Excle中的按钮,修改按钮名称如下图:

    image

    附件下载

  • 相关阅读:
    Python老男孩 day09
    mount 挂载usb
    解压以及压缩命令
    flask 安装
    寻找文件 的小栗子
    Linux 环境变量与文件查找
    vim 查找和替换
    vim 基本功能 删除 移动 复制 粘贴
    selenium python 处理alter
    selenium python 显式和隐式等待方法
  • 原文地址:https://www.cnblogs.com/OliverQin/p/7326580.html
Copyright © 2011-2022 走看看