Excel:VBA编程入门(一)

打开Excel中的VBA编程界面

首先打开Excel,在菜单栏的开发工具中打开Visual Basic,如下图:
在这里插入图片描述
如果在菜单栏上没有找到开发工具,那就应该先从文件处显示隐藏的开发工具。如下图所示:
在这里插入图片描述
在这里插入图片描述
在这里插入图片描述
这样就可以打开了。
打开的VBA界面是这样的:
在这里插入图片描述

写一个简单的VBA程序

首先打开了Visual Basic 的页面,在页面左侧的代码编辑处上方有两个下拉选框,如下图,左侧的下拉框代表工作对象,右边的下拉框代表函数方法。
在这里插入图片描述
在这里插入图片描述
来解释一下这边的下拉选择都代表什么含义

函数说明
Activate激活
BeforeDelete在工作表被删除之前,发生此事件。
BeforeDoubleClick当双击工作表时,发生此事件
BeforeRightClick右键单击工作表时发生此事件
Calculate在对工作表对象重新计算后,发生此事件
Change当用户更改工作表中的单元格,或外部链接引起单元格的更改时,发生此事件
Deactivate图表、工作表或工作簿被停用时发生此事件
FollowHyperLink当选择工作表上的任何超链接时发生此事件
LensGalleryRenderComplete在标注库中的图标(动态和静态)已完成呈现时发生。
PivotTableAfterValueChange在编辑或重新计算(对与包含公式的单元格)数据透视表中的单元格或单元格区域后发生。
PivotTableBeforeAllocateChanges在将更改应用到数据透视表前发生。
PivotTableBeforeCommitChanges在向数据透视表的OLAP数据源提交更改之前发生
PivotTableBrforeDiscardChanges在放弃对数据透视表所做的更改之前发生
PivotTableChangeSync在更改了数据透视表之后发生
PivotTableUpdate工作簿中的数据透视表更新后发生此事件
selectionChange当工作表上的选定区域发生改变时发生此事件。
TableUpdate在工作表上更新了连接到数据模型的查询表之后,发生此事件。

上述函数可以根据自己的现实场景需求去使用。

更具体函数信息可以去官网看,贴地址:https://docs.microsoft.com/zh-cn/office/vba/api/excel.worksheet.activate(even)

那接着来写第一个简单的VBA程序
首先本文新建了一个表,填了一些数据,如下:
在这里插入图片描述
然后再Visual Basia里用代码操作这个表。
打开
在这里插入图片描述
选择双击触发的函数,在里面敲入代码,即下图中黄色圈中的部分。
在这里插入图片描述

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)/
    Sheet1.Cells(3, 5) = Sheet1.Cells(3, 3) * 10
    Sheet1.Cells(4, 5) = Sheet1.Cells(4, 3) * 10
    Sheet1.Cells(5, 5) = Sheet1.Cells(5, 3) * 10
    Sheet1.Cells(6, 5) = Sheet1.Cells(6, 3) * 10
    Sheet1.Cells(7, 5) = Sheet1.Cells(7, 3) * 50
End Sub

End Sub代表函数结束

编辑完后 ctrl+s 保存。

在单元格内双击即可看到代码执行结果。
在这里插入图片描述

以上。

  • 4
    点赞
  • 44
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值