精华内容
下载资源
问答
  • VBA自动填充序号

    2019-10-01 15:42:15
    Sub 自动填充序号() Dim A As CommandBar '代表容器应用程序中的一个命令栏 Dim B As CommandBarControl '代表一个命令栏控件 Dim i As Long Cells.Clear '清除所有单元格 For Eac...

    使用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

     

    附件下载

    转载于:https://www.cnblogs.com/OliverQin/p/7326580.html

    展开全文
  • 此时,需要单独安装VBA的插件,才可以使用Excel中的宏功能。VBA插件下载地址在文末尾。这里,先说一下安装步骤:先对下载的文件进行解压,然后运行其中的vba6chs显示如图:安装结束出现”install has complete...

    de657b90aca80060e43170171c4b5aab.gif

    正常在安装使用WPS的时候,一般情况下不带宏,本人使用的excel为WPS中的Excel,如下图,在开发工具中,宏,以及VB编辑器等均为灰色,不可使用的状态。

    eaf8eb3d0bb836a3acb3dca771016e77.png

    此时,需要单独安装VBA的插件,才可以使用Excel中的宏功能。

    VBA插件下载地址在文末尾。

    这里,先说一下安装步骤:

    先对下载的文件进行解压,然后运行其中的vba6chs

    显示如图:

    a64228a38e579dff4749f824e1ab8346.png

    安装结束出现”install has completed successfully“表示已经安装成功了,点击”OK“就可以了,如图:

    3f6942fcdf670a03f96da54a0bb8644a.png

    安装成功后,我们关闭Excel,再打开之后,点击开发工具菜单,可以看到宏的相关功能已可正常使用。

    c92eb71f8d95118af52d50330013813e.png

    之后,我们打开含有宏的文件,会有这样类似的提示:

    5c0135db3a67d41729481abd6512ad0f.png

    确认是朋友,同事安全的人员发送的文件后,是可以点击启用宏的。

    用Excel的VBA来录入Excel内容,生成序号,清空内容等

    上面的链接中,是直接生成了序号,下面上的演示,可以根据输入的列号,开始的行,以及结束的行来直接生成序号:

    62f902055951903dea1fcf25df84b78c.gif

    VBA代码内容如下:

    Sub 自动序号_序号和数()Dim a, b As Integer, c  As Integer, d, ea = InputBox("如:A、B、C", "输入序号开始的列")b = InputBox("如:1、2、3", "输入序号开始的行号")c = InputBox("如:20、45、100", "输入结束的行")d = a & b + 1e = a & cRange(a & b) = "序号"Range(d & ":" & e) = "=row()- " & b + 1 & " +1"End Sub

    WPS的VBA插件下载地址:(百度云盘)

    https://pan.baidu.com/s/1bnvoigJ

    WPS的VBA插件下载地址:(蓝奏云)

    https://www.lanzous.com/i5bhuqj

    80f995dca5497a3150b07d145504d486.png

    点个“在看”表示已经查阅

    展开全文
  • Word中的表格序号可以通过添加“题注”的方式进行自动管理,但是有些特殊情况下采用了人工编号的方式。 随着表格的增加,表格序号的更新成为繁重的工作,使用下面的VBA脚本可以快速的更新。 使用要求: 1.表格...

    Word中的表格序号可以通过添加“题注”的方式进行自动管理,但是有些特殊情况下采用了人工编号的方式。

    随着表格的增加,表格序号的更新成为繁重的工作,使用下面的VBA脚本可以快速的更新。

    使用要求

    1.表格标题必须位于表格上方一行

    2.表格标题必须以“表”字开头

    3.表格标题中必须出现数字

    建议使用的时候在Selection.Text = str(i)这一行下断点,观察修改过程,避免错误修改

    Option Explicit
    
    '更新表格序号
    Public Sub 更新表格序号()
        
        Application.ScreenUpdating = False
    
        Dim oDoc As Document
        Dim oTable As Table
        Dim i As Long
        Dim sLine As String
        Dim sNumber As String
        
        Set oDoc = Application.ActiveDocument
        For i = 1 To oDoc.Tables.Count - 1
            Set oTable = oDoc.Tables(i)
            '选择表格
            oTable.Select
            '光标上移一行
            Selection.MoveUp Unit:=wdLine, Count:=1
            '选择到行尾
            Selection.EndKey Unit:=wdLine, Extend:=wdExtend
            
            sLine = Selection.Text
            If Left(sLine, 1) = "" Then
                sNumber = getFirstNumber(sLine, 2)
                '搜索数字
                findAndSelect sNumber
                '选中数字是在表格标题中
                If Len(sNumber) > 0 And Selection.Text = sNumber And InStr(1, sLine, sNumber) Then
                    '请在此处下断点
                    '修改表格序号
                    Selection.Text = str(i)
                End If
            End If
        Next
        
        Application.ScreenUpdating = True
    End Sub
    
    '获取字符串中首次出现的数字
    Private Function getFirstNumber(ByVal str As String, ByVal start As Long) As String
        Dim i As Long
        Dim ret As String
        Dim ch As String
        For i = start To Len(str) - 1
            ch = Mid(str, i, 1)
            If IsNumeric(ch) Then
                ret = ret & ch
            ElseIf ch = " " Then
            Else
                Exit For
            End If
        Next
        getFirstNumber = ret
    End Function
    
    '查找并选择
    Private Sub findAndSelect(ByRef sToken As String)
        With Selection.Find
            .Text = sToken
            .Replacement.Text = ""
            .Forward = False
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute
    End Sub

     

    posted on 2013-04-14 21:07 kmlxk 阅读(...) 评论(...) 编辑 收藏

    转载于:https://www.cnblogs.com/snippet/archive/2013/04/14/vba-word-update-table-seq.html

    展开全文
  • Excel自动更新序号...❤Excel的VBA编程实现自动更新序号(1)当有新行插入操作,按顺序自动更新序号(2)当有行被删除操作,按顺序自动更新序号实现步骤1、打开VB编辑器,启动VBA编辑功能2、选择要更新的sheet,...

    67c225988ac0e5e7f33f306337868927.png

    Excel自动更新序号

    Excel and Python 实用办公编程技能

    b3f9623629f1980b817e78a518c36161.png

    3d4f212c1a4307458e62ac290575cba6.gif

    有人说Excel的VBA编程太难,学会了有什么用呢!

    今天,梅朵给大家演示自动更新表格序号例子来轻松玩转Excel的VBA编程。

    ❤Excel的VBA编程实现自动更新序号

    (1)当有新行插入操作,按顺序自动更新序号

    (2)当有行被删除操作,按顺序自动更新序号

    370acc4708850d3b7e083f4b70947b33.gif

    实现步骤

    1、打开VB编辑器,启动VBA编辑功能

    2、选择要更新的sheet,进入VBA编写

    3、完成自动更新序号功能VBA代码编写

    一、启动VBA

    8eafe220b5f1a64ade7f803eba5de543.png

    二、进入VB

    fc3ebec8c9bef826b64dfb2e0b546c56.png

    三、编写VBA

    db2ffe3d98c069c57184efc4fd5634ce.png

    关注我们

    3d118b0caf9ccbcd859c29e8dc7bf95b.gif

    欢迎关注,让我们的工作和生活变更更轻松。

    公众号:实用办公编程技能

    微信号:Excel-Python

    欢迎留言!

    公众号:实用办公编程技能

    扫码关注,更多精彩

    6596c7267311f86852299ae70513d0e7.png

    261ad92fcb17487ea35850c7211a16ab.gif

    1.Excel自动记录数据登记时间和修改时间

    2.Excel自动读取文件下的所有xls文件

    3.Excel制作竞答倒计时器

    4.用Excel倒计时还有多少天过年

    5.用Excel做一个自动抽奖器

    6.如何自己编写Excel函数并调用?

    7.Excel玩转动态查找信息表

    8.轻松搞定Excel的VBA编程

    9.用Excel实现批量发送个性化邮件

    10.玩转Excel的几个高频使用函数(七)

    11.玩转Excel的几个高频使用函数(六)

    12.玩转Excel的几个高频使用函数(五)

    13.玩转Excel的几个高频使用函数(四)

    14.玩转Excel的几个高频使用函数(三)

    15.玩转Excel的几个高频使用函数(二)

    16.玩转Excel的几个高频使用函数(一)

    17.Excel一键定位空值与自动填充

    18.Excel一秒拆分数据

    19.Excel一键美化报表

    20.Excel一键生成图表

    展开全文
  • 笔者的使用环境是SQL-SERVER...序号 列名1 列名2 001 aa bb 002 bb cc 003 cc aa 以下是word中的VBA代码: '——————————————————————————————声明公共变量 Public rs As New AD...
  • 前言:群里有个需求,蛮...思路就是把格式转变为下表并算重复次数,把大于1的记录找出来再把序号剔重即可 Sub get_duplicates_row() 'Part1:改变原表形式 maxrow = Sheets("Sheet1").UsedRange.Rows.Count 'M...
  • Excel之家ExcelHome以下文章来源于数据分析就用Excel ,作者EH看见星光数据分析就用ExcelExcelHome下属有关数据分析的Excel技巧帐号,分享excel操作技巧、函数、公式、透视表、图表、VBA及Power BI教程,助您轻松提高...
  • 根据之前写的将excel表格自动筛选为一系列表格的原理,这里进行了vba自动代码的编写,下面粘贴如下: '用来对EXCEL进行自动分表,分成原表+序号,第一行表头全部复制,其他数据按需要分到相应的表中 Sub ...
  • Vba第三十六课利用数组提取不重复值如图,要求将B3:B17单元格区域提取不重复值,并在J列自动填充序号和K列填入货物名称:代码:Sub 提取不重复值()Dim arr, brr, a, barr = Sheets(1).Range("b3:g17")ReDim brr(1 To...
  • 《AutoCAD VBA二次开发教程》,是2006年出版的图书,作者是张帆。本书以AutoCAD 2005中文版为开发平台,通过73个精彩的编程实例,向读者展示了AutoCAD VBA开发的高级技术。 1图书信息 中文名:AutoCAD VBA二次开发...
  • 前几天有个在校学生给了我如下一张图,希望我能帮忙编写一个小程序来完成地铁票价的自动计算——即选择好起点站和终点站后自动计算地铁票的价格。我也不好意思拒绝一个这么有想法的还上进好学生,所以我就帮他用...
  • AutoCad vba二次开发(图框,明细表)

    热门讨论 2008-11-01 10:09:32
    功能:(1)实现符合国家标准的图框,标题栏,明细表的定制,用户也可以自定义图框尺寸和标题栏明细表等样式。...(3)标题栏、明细表的修改,明细表数据的自动导出,装配图零件序号的绘制及序号的修改。
  • excel自动插入目录下的图片

    千次阅读 2013-09-22 20:35:52
    A列是姓名,B列是序号,想将头像插入到C列。则: 1、打开excel文档,ALT+F11,打开vba编辑模式。 2、将如下信息拷贝到里面,保存,并关闭。 Sub insertPic() ' Dir函数批量获取指定目录下所有文件名和内容 On...
  • 救助

    2021-03-11 17:04:57
    vba代码如下:错误提示:-2147467259(80004005)自动化错误 Sub test2() Dim i As Long, pah$, exl As Workbook, pak As String, myfilename As String Dim f As Workbook Cells(1, 1) = “序号” Cells(1, 2) = ...
  • 赤平投影王-excel

    热门讨论 2010-06-17 17:07:01
    若结构面编号为空,则取结构面名称,若结构面名称也为空,则自动以数字序号对其命名。 7. 本软件成果可直接拷贝于WORD文档,但以图件格式为宜。 8. 本软件供所有勘测同行免费使用。非经作者同意,不得将其用于任何...
  • 两个参数,一为区域一为序号。 函数名称:颜色求和 函数功能与参数:按背景颜色对区域值求和。第一参数为参照值,第二参数为求和区域。 函数名称:颜色计数 函数功能与参数:按背景颜色计算区域中同背景之数据个...
  • autocad命令全集

    2008-10-24 21:46:23
    序号 CAD命令 简写 用途 1 3D   创建三维实体 2 3DARRAY 3A 三维阵列 3 3DCLIP   设置剪切平面位置 4 3DCORBLT   继续执行3DORBIT命令 5 3DDISTANCE   距离调整 6 3DFACE 3F 绘制三维曲面 7 3DMESH   绘制三维...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【合并区域自动换行】:可以让具有合并单元格的区域在自动换行与不换行之间自由切换 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入...
  • Excel集成工具箱7.0是利用VBA(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右自定义函数,集160个工具于一身,但体积小于15MB。当安装集成工具箱后,如果您使用Excel ...
  • 自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上一不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee原始数据。...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    Excel集成工具箱6.0是利用VBA(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右 自定义函数,集160个工具于一身,但体积小于15MB。当安装集成工具箱后,如果您使用Excel ...
  • 财 务 工 具 【自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上一不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee...
  • 自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上一不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee原始数据。...
  • 【建立分页小计】将每页数据建立小计和累计,且自动分页,小计和累计在每页最末处 【删除分页小计】删除小计与累计,恢复明细表 【合并到选区】将一个单元格的值合到一个区域中去,可以插入到原字符之前也可以插入到...
  • Axx:ARJ压缩文件的分包序号文件,用于将一个大文件压至几个小的压缩包中(xx取01-99的数字) A3L:Authorware 3.x库文件 A4L:Authorware 4.x库文件 A5L:Authorware 5.x库文件 A3M,A4M:Authorware Macintosh...

空空如也

空空如也

1 2
收藏数 27
精华内容 10
关键字:

vba自动序号