【办公软件】Excel中插入VBA宏处理

步骤:
1、如下图的操作步骤:
在这里插入图片描述
2、双击按钮,给按钮给定事件(VB语言)

在这里插入图片描述
3、保存表格,单击按钮,弹出提示框:
在这里插入图片描述
4、更复杂的处理,既可以放在这个按钮下面,也可以做成函数,放在模块中。在按钮中调用模块中的函数。
在这里插入图片描述

在这里插入图片描述





2024年11月13日补充:

Excel建立宏按钮步骤:

  1. 新建表格或者原有表格,
  • 菜单栏开发工具选项
  • 按钮控件
  • 表格中某个单元格绘制一个按钮
  • 按钮鼠标右键,命令按钮对象-编辑,可以编辑按钮文本
  • 按钮鼠标右键属性,可以编辑按钮名称
  1. 宏设计模式下,双击按钮进入事件,给按钮单击事件中写入要执行的代码。
  2. 将表格另存为或者在弹窗的提示下另存为.xlsm带有宏的表格类型。

宏修改:

菜单栏开发工具,设计模式,双击设计模式下的按钮,编辑宏代码。

下面是一段按钮中功能的示例代码:

Private Sub ExtractData()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 2).End(xlUp).Row

	Cells(3, 12).Value = "新的列名"

    For i = 4 To lastRow  '根据B列的值,根据计算公式,计算L列的值
        Cells(i, 12).End(xlToLeft).Offset(0, 1).Value = Application.Evaluate("=IFERROR(MID(B" & i & ",FIND(""="",B" & i & ")+1,SEARCH(""+"",B" & i & ",FIND(""="",B" & i & ")) - FIND(""="",B" & i & ") - 1),"""") & MID(B" & i & ",FIND(""-"",B" & i & "),LEN(B" & i & ") - FIND(""-"",B" & i & ")+1)")
    Next i

End Sub

以上开发使用VB语言。

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值