文科生也能学会的Excel VBA 宏编程入门

文科生也能学会的Excel VBA 宏编程入门文章目录VBA宏编程简介准备工作打开宏功能打开“开发工具”选项卡VBA编程示例任务介绍文件宏全局宏VBA宏编程简介VBA编程是Office系列软件自带的编程功能,也就是说不只是Excel,Word和PPT也能进行VBA编程。而“宏”可以理解为一组自动化程序,执行一个宏就能执行其对应的一系列操作。创建宏主要有两种方法,一种是录制宏,也就是将人的一些操作录下来,需要的时候执行宏就可以自动重复这些操…

大家好,又见面了,我是你们的朋友全栈君。

VBA宏编程简介

VBA编程是Office系列软件自带的编程功能,也就是说不只是Excel,Word和PPT也能进行VBA编程。而“”可以理解为一组自动化程序,执行一个宏就能执行其对应的一系列操作。创建宏主要有两种方法,一种是录制宏,也就是将人的一些操作录下来,需要的时候执行宏就可以自动重复这些操作;另一种就是本文要介绍的,通过VBA编程来自己写一个宏。

准备工作

Excel默认是没有打开宏功能和VBA编程功能的,因此需要打开一下。

打开宏功能

依次点击【文件】 → \rightarrow 【选项】 → \rightarrow 【信任中心】 → \rightarrow 【信任中心设置】 → \rightarrow 【宏设置】 → \rightarrow 【启用所有宏】
在这里插入图片描述

打开“开发工具”选项卡

依次点击【文件】 → \rightarrow 【选项】 → \rightarrow 【自定义功能区】找到“开发工具”,并把它添加到右边
在这里插入图片描述

VBA编程

示例任务介绍

该任务分两个sheet,其中Sheet1为学生的分数,Sheet2为对Sheet1的信息进行分类统计,具体如下:
在这里插入图片描述
在这里插入图片描述
第一个表起名为“分数”,第二个表起名为“统计”

文件宏

  1. 依次点击【开发工具】 → \rightarrow 【Visual Basic】
    在这里插入图片描述
    左侧看到如上图所示目录,双击【Sheet1】、【Sheet2】、【ThisWorkbook】都可以打开编程窗口,但程序作用范围不一样,由于我们需要操作两个Sheet,因此双击【ThisWorkbook】打开。这里大家可能能猜到了,Workbook指的就是这个Excel文件。
  2. 编写如下程序
Sub 分类统计()
    
    Dim maleCtr As Integer '男生人数
    Dim femaleCtr As Integer '女生人数
    Dim daCtr As Integer '名字以达结尾人数
    Dim maleSum As Double '男生总分
    Dim femaleSum As Double '女生总分
    
    Dim i As Integer
    
    i = 2
    
    Do While Not IsEmpty(Sheet1.Range("A" & i))
        Dim name, sex As String
        Dim score As Double
        
        name = Sheet1.Range("A" & i)
        sex = Sheet1.Range("B" & i)
        score = Sheet1.Range("C" & i)
        
        If sex = "男" Then
            maleCtr = maleCtr + 1
            maleSum = maleSum + score
        Else
            femaleCtr = femaleCtr + 1
            femaleSum = femaleSum + score
            
        End If
        
        If name Like "*达" Then  'like是相似的意思,*为通配符
            daCtr = daCtr + 1
        End If
        
        i = i + 1 '下一行
    Loop
    
    Sheet2.Range("A2").NumberFormatLocal = "0"    '设置数字格式为没有小数
    Sheet2.Range("B2").NumberFormatLocal = "0.##"    '设置数字格式为小数点后两位,非零才显示
    Sheet2.Range("C2:E2").NumberFormatLocal = "0.00"   '设置数字格式为小数点后两位且补零
            
    
    Sheet2.Range("A2") = maleCtr
    Sheet2.Range("B2") = femaleCtr
    Sheet2.Range("C2") = daCtr
    Sheet2.Range("D2") = maleSum / maleCtr
    Sheet2.Range("E2") = femaleSum / femaleCtr
    
End Sub
  • 下面对程序进行一些说明,首先Sub 宏名称()...End Sub里“宏名称”改成任意你想要的宏名称即可,但不可以有空格。
  • Dim 变量名 As 数据类型是Visual Basic语言定义变量的方式,其中常用的数据类型有Integer整数、Double小数、String字符串、Date日期。
  • Visual Basic语言中单引号'后面的为注释内容,即程序之外的文本,不参与程序的运行,一般用来写一些解释说明,方便程序的理解。如程序中Dim maleCtr As Integer '男生人数maleCtr这个整数类型的变量用于累加Sheet1中男生的人数。
  • Do While 逻辑条件 ... Loop是Visual Basic中的循环语句之一,当逻辑条件为真时进入循环,当逻辑条件为假时退出循环。本程序中这个循环是为了一行行遍历Sheet1这张表,直到最后一个学生。因此我们需要判断变量i什么时候到最后一行。这里采用的逻辑条件Not IsEmpty(Sheet1.Range("A" & i)),其中IsEmpty()是用于判断是否为空,为空时返回true,否则返回false,但我们希望当不为空时继续循环,因此前面加个Not用于取反
  • Sheet1.Range("A1" )可以用于取出Sheet1中A1格里面的内容,此外还可以用Sheets(1).Range("A1" )Sheets("分数").Range("A1" )
  • "A" & i是将字符串"A"和整数i拼接起来,随着i=i+1的累加,这个程序中会依次遍历"A2""A3"一直到退出循环。
  • Visual Basic常用的逻辑判断语句如下,当逻辑条件1满足时执行程序1,都不满足时执行程序3,其中Elseif 逻辑条件 Then的数量不限。
If 逻辑条件1 Then 
... 程序1
Elseif 逻辑条件2 Then 
... 程序2
Else 
... 程序3
End If
  • name Like "*达"的意思是name这个字符串的内容是否以“达”结尾,其中“*”为通配符,可以表示任意长度的任意内容,如果写成"*达*"意思就是名字中间是否有”达”。
  • Sheet2.Range("A2").NumberFormatLocal = "0"是设置数字单元格的显示格式,例如可以有"0.0""0.##""0.00%"等各种你想要的格式。这里的0和#都是一个代号,0代表即便这一位上没有数字也要显示一个0;#代表这一位如果有数字就显示,没有就不显示;%结尾会自动转成百分比显示,具体可以看Excel的帮助或是这个链接:Excel自定义格式。上述代码中为了展示不同的格式才这么写,实际上整数就用"0",两位小数就用"0.00"即可。
  • Sheet2.Range("A2") = maleCtr大家肯定都能猜到了,这是往Sheet2中对应的单元格里填数。这里Range()其实可以选多个单元格,就如上面设置格式的时候就用过多选:Sheet2.Range("C2:E2").NumberFormatLocal = "0.00"
  1. 点击绿色的小三角在这里插入图片描述就可以运行这个程序了,保存程序的时候可能会提示为无法保存,这时候将Excel文件另存为带宏的格式即可,例如xlsm格式。

  2. 这时,点击【开发工具】 → \rightarrow 【宏】也能找到我们编写的宏,点执行就能运行,但我们可以看到,这里宏的位置为“ThisWorkbook”,也就是我们打开的这个Excel文件,在别的文件里是无法运行这个宏的。
    在这里插入图片描述

  3. 运行结果如下:
    在这里插入图片描述

  4. 如果想调试程序,点击【调试】 → \rightarrow 【逐语句】即可一行一行运行程序,将鼠标放到对应变量上可以看到它们的值,这样程序运行结果不对时就可以用于寻找BUG。

全局宏

上面我们提到,通过【Visual Basic】进入编程界面编写的宏是属于单个文件或Sheet的,如果我们想编写一个可以在所有文件中运行的宏要怎么做呢?下面是具体做法。

  1. 点击【开发工具】 → \rightarrow 【录制宏】
  2. 宏名称随意,保存在必须选择【个人宏工作簿】,这个工作簿就是这台电脑共享的宏保存位置,具体位置为C:\Users\【用户名】\AppData\Roaming\Microsoft\Excel\XLSTART,里面有一个文件叫PERSONAL.XLSB。共用的宏就保存在这里,通过将这个文件发给别人覆盖对应的文件就可以把共用的宏给别人用了。如果是文件自带的宏,只需要把Excel文件发给对方就可以,文件已经自包含了。
    在这里插入图片描述
  3. 点【确定】,这时可能会提示文件必须打开,那我们就把PERSONAL.XLSB这个文件打开后再来一次。
  4. 这次点【确定】可以录制了,事实上什么都无需录,直接点【停止录制】即可,我们只想要个壳而已。
  5. 点击【宏】,找到我们刚才录制的这个宏,点击【编辑】。
    在这里插入图片描述
  6. 我们会看到这个宏保存在【PERSONAL.XLSB】这个分支的【模块】分支下面,如果是第一次录制就是【模块1】,对于我来说是【模块2】。我们将前面的程序复制一下,然后替换掉这个空的宏里的所有代码。
    在这里插入图片描述
  7. 仅仅是将代码复制过来是不够的,因为这个宏是共用的,代码中Sheet1等变量的指代不明,不知道是哪个Excel文件中的Sheet1,因此我们做些小的修改。直接查找替换,将Sheet1都替换成ActiveWorkbook.Sheets(1);将Sheet2都替换成ActiveWorkbook.Sheets(2)即可。这里顾名思义,ActiveWorkbook就是指当前激活的那个Excel文件,因此想在哪个文件运行宏,就从那个文件执行宏即可。记得点保存,最终完整代码如下:
Sub 分类统计()

    
    Dim maleCtr As Integer '男生人数
    Dim femaleCtr As Integer '女生人数
    Dim daCtr As Integer '名字以达结尾人数
    Dim maleSum As Double '男生总分
    Dim femaleSum As Double '女生总分
    
    Dim i As Integer
    
    i = 2
    
    Do While Not IsEmpty(ActiveWorkbook.Sheets(1).Range("A" & i))
        Dim name, sex As String
        Dim score As Double
        
        name = ActiveWorkbook.Sheets(1).Range("A" & i)
        sex = ActiveWorkbook.Sheets(1).Range("B" & i)
        score = ActiveWorkbook.Sheets(1).Range("C" & i)
        
        If sex = "男" Then
            maleCtr = maleCtr + 1
            maleSum = maleSum + score
        
        Else
            femaleCtr = femaleCtr + 1
            femaleSum = femaleSum + score
            
        End If
        
        If name Like "*达" Then  'like是相似的意思,*为通配符
            daCtr = daCtr + 1
        End If
        
        i = i + 1 '下一行
    Loop
    
    ActiveWorkbook.Sheets(2).Range("A2").NumberFormatLocal = "0"    '设置数字格式为没有小数
    ActiveWorkbook.Sheets(2).Range("B2").NumberFormatLocal = "0.##"    '设置数字格式为小数点后两位,非零才显示
    ActiveWorkbook.Sheets(2).Range("C2:E2").NumberFormatLocal = "0.00"   '设置数字格式为小数点后两位且补零
            
    
    ActiveWorkbook.Sheets(2).Range("A2") = maleCtr
    ActiveWorkbook.Sheets(2).Range("B2") = femaleCtr
    ActiveWorkbook.Sheets(2).Range("C2") = daCtr
    ActiveWorkbook.Sheets(2).Range("D2") = maleSum / maleCtr
    ActiveWorkbook.Sheets(2).Range("E2") = femaleSum / femaleCtr
    
End Sub
  1. 在想要执行宏的Excel文件中点击【宏】,这时就可以看到我们刚才写的宏了,点击【执行】就可以运行。
    在这里插入图片描述
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/132583.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • Binary Exponential Backoff

    Binary Exponential Backoff一、CSMA/CD过程      CSMA/CD就像在没有主持人的座谈会中,所有的参加者都通过一个共同的媒介(空气)来相互交谈。每个参加者在讲话前,都礼貌地等待别人把话讲完。如果两个客人同时开始讲话,那么他们都停下来,分别随机等待一段时间再开始讲话。这时,如果两个参加者等待的时间不同,冲突就不会出现。如果传输失败超过一次,将采用退避指数增长时间的方法(退避的时间通过截断二进制

  • Java 里的异常(Exception)详解

    Java 里的异常(Exception)详解作为一位初学者,本屌也没有能力对异常谈得很深入.只不过Java里关于Exception的东西实在是很多.所以这篇文章很长就是了..一,什么是java里的异常由于java是c\c++发展而

  • linux共享文件夹权限设置_修改权限linux

    linux共享文件夹权限设置_修改权限linuxLinux共享文件夹方法1:赋权限chmod777(共享文件夹路径)结果:赋权失败方法2:添加到组分析:给用户权限可以看两个地方,首先第一列是权限情况,分别为超级管理员root用户,组用户,普通用户。经查看我们发现share文件夹,root用户和组用户都有权限,然后我们查看第四列组用户的组名为vboxsf解决思路:把普通用户添加到vboxsf组里面,然后重启。#登陆到普通用户,输入如下命令sudousermod-a-Gvboxsf$(whoami)#

    2022年10月28日
  • 编程怎么入门_损失函数的基本概念和原理

    编程怎么入门_损失函数的基本概念和原理介绍了Socket编程的基本概念,并以UDP编程为例,给出示例。

    2022年10月18日
  • 动态库编程详解_c语言gui库

    动态库编程详解_c语言gui库目录概述一、动态库概念与分类1、什么是动态库2、动态库分类4、动态库解决的问题二、动态库的创建1、规则动态库2、声明导出函数的两种方式2.1__declspec(dllexport)导出2.2.def文件导出3、导出导入类三、隐式、显示调用动态库1、动态库隐式调用2、动态库显示调用3.显示、隐

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号