accessvba实例 网盘 accessvba编程教程

Excel:VBA编程入门

• 打开Excel中的VBA编程界面
• 写一个简单的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 保存。

在单元格内双击即可看到代码执行结果。

以上。