Excel VBA入门教程

本文介绍了什么是VBA(Visual Basic for Applications),并引导读者通过编写第一个VBA程序来实现Excel中的自动化计算。在Excel中启用开发工具选项后,通过设置工作表事件,当双击工作表时,VBA代码会自动计算特定行的两列之和,并显示在第三列中。这是一个简单的VBA应用示例,展示了如何扩展Excel的功能。
摘要由CSDN通过智能技术生成

目录

一、什么是VBA

二、编写第一个VBA程序


一、什么是VBA

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。

1993年由微软公司开发的应用程序共享一种通用的自动化语言--------即Visual Basic for Application(VBA),实际上VBA是寄生于VB应用程序的版本。1994年发行的Excel 5.0版本中,即具备了VBA的宏功能。

VBA是一种面向对象的解释性语言,通常使用来实现Excel中没有提供的功能、编写自定义函数、实现自动化功能等。

二、编写第一个VBA程序

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

 打开一个新的Excel工作表,点击文件。

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

 选择更多,点击选项位置。

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

 点击自定义功能区,选中开发工具选项。

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

 这里的开发工具指的就是Visual Basic。

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_18,color_FFFFFF,t_70,g_se,x_16

 在如图所示的位置输入数字。

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

 在下面右击工作表点查看代码选项。

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

 跳出一个窗口,把通用改为Worsheet。

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

选中 BeforeDoubleClick,(BeforeDoubleClick的意思是在本工作表鼠标双击之前发生)

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

 watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

把下面那段代码删除,在剩下的中间输入以下代码,意思是当我们鼠标双击时触发,第二行第三列的单元将显示第二行第一列和第二行第二列的和,第三行第三列的单元将显示第三行第一列和第三行第二列的和,第四行第三列的单元将显示第四行第一列和第四行第二列的和

Sheet1.Cells(2, 3) = Sheet1.Cells(2, 1) + Sheet1.Cells(2, 2)

Sheet1.Cells(3, 3) = Sheet1.Cells(3, 1) + Sheet1.Cells(3, 2)

Sheet1.Cells(4, 3) = Sheet1.Cells(4, 1) + Sheet1.Cells(4, 2)

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

点击确定。 

watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBA5aSP5b-XMTIx,size_20,color_FFFFFF,t_70,g_se,x_16

 然后在表格随便双击一下,就自动计算出数值来了。

 

评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

夏志121

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值