4. 编写和运行第一个VBA脚本

欢迎来到滔滔讲AI。在本章课中,我们学习手动编写一个VBA脚本 。并运行它。

4、AI赋能EXCEL- 编写第一个脚本

然后讲解结构,并掌握。

步骤:

  1. 点击‘开发工具’选项卡中的‘Visual Basic’按钮,或者按‘Alt + F11’。

  2. 在左侧的‘工程资源管理器’中,找到‘模块’,双击‘Module1’。

代码看起来可能有点复杂,但不用担心,我们先来理解一下基本结构。”

Sub HelloWorld()
  ' 在A1单元格中输入Hello World
  Range("A1").Value = "滔滔讲AI"
End Sub

代码解释:这个简单的脚本定义了一个名为‘HelloWorld’的宏,作用是在A1单元格中输入‘滔滔讲AI’。

Sub FormatCells()
    ' 选择单元格A1
    Range("A1").Select
        ' 设置字体加粗
        Selection.Font.Bold = True
        ' 设置背景颜色
        Selection.Interior.Color = RGB(255, 255, 0)
End Sub

“这里有几个部分需要注意:‘Sub’和‘End Sub’定义了一个宏的开始和结束。中间的代码是具体的操作,例如选择单元格、设置字体加粗和更改背景颜色。

运行

现在来运行这个脚本,请大家看看效果。

步骤:

  1. 在VBA编辑器中,点击工具栏上的‘运行’按钮,或者按‘F5’。

  2. 回到Excel工作表,你会看到A1单元格中显示了‘滔滔讲AI’。

理解VBA的代码结构

接下来,理解VBA脚本的基本结构。

‘Sub’和‘End Sub’定义了一个宏的开始和结束

中间的代码是具体的操作,例如选择单元格、设置字体加粗和更改背景颜色。

所有的VBA代码都必须写在Sub和End Sub之间。” VBA语法简单,通常每行代码表示一个操作。注释用单引号'开头,不会被执行,只是对代码的解释。

VBA是什么   直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是"寄生于"VB应用程序的版本.VBAVB的区别包括如下几个方面:   1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化   2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.   3.运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的"父"应用程序,例如EXCEL.   尽管存在这些不同,VBAVB在结构上仍然十分相似.事实上,如果你已经了解了VB,会发现学习VBA非常快.相应的,学完VBA会给学习VB打下坚实的基础.而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用VBA创建解决方案的大部分知识.   * VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化.   * VBA可以称作EXCEL的"遥控器".   VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案.    此外,如果你愿意,还可以将EXCEL用做开发平台实现应用程序. …… …… …… …… …… …… 欢迎使用 VBScript 语言参考 通过对信息进行分组,可以使您方便地研究 Visual Basic 脚本的各个主题。 可以在“字母顺序关键字列表”中找到 VBScript 语言的所有主题。如果只需要查看某个主题(例如对象),则有对该主题进行详细说明的章节可供查阅。 如何操作呢?单击左边任意一个标题,即可显示该标题所包含的项目列表。从该列表中选择要查看的主题。打开所选主题之后,就能够很容易地链接到其他相关章节。 好了,现在就开始行动,赶快进去看一看吧!学习几个语句,研究几种方法,或者熟悉几个函数。您会发现 VBScript 语言的功能是多么强大。
Excel中使用VBA(Visual Basic for Applications)编写脚本来处理这种任务,可以让你更高效地操作数据。以下是编写VBA宏的基本步骤: 1. **启用开发者选项卡**: - 点击文件 > 选项 > 自定义功能区,在功能区标签下勾选"开发工具"。 2. **创建新的VBA模块**: - 在"开发工具"菜单栏,选择"插入" > "模块",这会在新的窗口中创建一个VBA编辑器。 3. **编写代码**: ```vba Sub CopyPaymentsSum() Dim wsData As Worksheet Dim wsSummary As Worksheet Dim rngData As Range Dim rngSummary As Range Dim paymentChar As String ' 设置工作表引用 Set wsData = ThisWorkbook.Sheets("Sheet1") ' 源工作表 Set wsSummary = ThisWorkbook.Sheets.Add(After:=wsData) ' 新工作表 ' 定义支付字符(这里只是一个示例,根据实际需求更改) paymentChar = "*支付*" ' 确定数据范围 Set rngData = wsData.Range("A:A").Find(paymentChar, LookIn:=xlValues) If Not rngData Is Nothing Then Set rngData = wsData.Columns(2).SpecialCells(xlCellTypeVisible, xlDown).Offset(0, -1) ' 假设数据在第二列 rngSummary = wsSummary.Cells(1, 1) ' 新工作表第一行第一列 ' 计算并复制合计 rngSummary.Value = Application.WorksheetFunction.Sum(rngData) End If End Sub ``` 4. **运行宏**: - 关闭VBA编辑器,转回Excel,点击开发者选项卡下的"宏"按钮,选择刚创建的`CopyPaymentsSum`宏,点击"运行"。 5. **注意**: - 编辑完成后记得保存VBA宏,以便再次使用。 - 这个例子假设支付字符只出现在A列,并紧随数据。如果实际情况不同,代码可能需要相应调整。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值