百度360必应搜狗淘宝本站头条
当前位置:网站首页 > IT知识 > 正文

14、VBA代码+excel内置函数,实现高效数据处理(零基础入门)

liuian 2025-06-13 14:49 14 浏览


1、学习VBA的主要目的是数据处理,VBA在数据处理上展现出强大的计算实力。它不仅完美继承EXCEl内置函数的功能,还能通过编程语法实现更灵活的应用。无论是基础的加减乘除,还是复杂的统计分析、逻辑判断,都能通过worksheetfunction轻松调用。再配合循环、条件语句,可构建自动化计算流程,大幅提升数据处理效率与精确度。

2、VBA的运算符

'1)赋值运算符 :=

'2)数学运算符: &(字符连接符)、+(加)、-(减)、Mod(取余)、\(整除)、*(乘)、/(除)、-(负号)、^(指数)

'3)逻辑运算符:Not(非)、And(与)、Or(或)、Xor(异或)、Eqv(相等)、Imp(隐含)

'4)关系运算符: = (相同)、<>(不等)、>(大于)、<(小于)、>=(不小于)、<=(不大于)


3、郭靖背着中了铁砂掌的黄蓉,闯入黑龙潭,瑛姑脾气古怪,见二人闯入,岂肯轻易放行。她提出若能解开难题便放他们走,还要指引能救黄蓉性命之人。说罢出题:如下图(解题代码如下)

Sub 瑛姑的题()

Dim x, n

n = 1

For x = 1 To 100

If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 2 Then

MsgBox x

End If

Next

End Sub

上面的判断语句就充分使用了逻辑符、关系运算符


4、内置函数语法列举:

求最大值---worksheetfunction.max

求最小值---worksheetfunction.min

求和---worksheetfunction.sum

平均值
---worksheetfunction.average

中位数
---worksheetfunction.median

标准差
---worksheetfunction.stdev_s

随机数
---worksheetfunction.randbetween()

平板除(求余)--mod()

绝对值--ABS()

int\fix 取整

四舍五入运算
---WorksheetFunction.Round(a, 1)


5、写一个抽奖小程序,A列是参与人员序号,B列是人名。人数不限。奖项放在E列,奖品放在G列。启动抽奖按钮获奖人员写到F列对应奖项和奖品。(效果如下,代码怎么写?)


Sub 抽奖程序()

Dim r%, n%, num%, m%, x%

Range("f3:f10").ClearContents

‘清除f列数据

r = Cells(999, 1).End(xlUp).Row

‘查找A列从下往上的非空单元格

For n = 1 To 8

'奖项总数8个,需要循环抽取8次

0

num=WorksheetFunction.RandBetween(1, r)

'记录一个(1 到 r)的随机数

For m = 3 To 10

If Cells(num, 2).Value = Cells(m, 6).Value Then

'说明该人员已中奖,重复再抽一次

GoTo 0 '返回0位置再生产一个随机数

End If

Next

Cells(10 + x, 6) = Cells(num, 2).Value

'将中奖名单记录到表格

x = x - 1

Next

End Sub


(本章完)有任何批评或疑问,可以在评论区讨论,谢谢!!

不论你是求知若渴的在校学生,还是在职场摸爬滚打多年的上班族,只要怀揣着提升自我的决心,别犹豫,快点赞、关注、收藏!我会始终站在零基础小白的视角,循序渐进,带你一步步踏入VBA的奇妙世界。

相关推荐

总结下SpringData JPA 的常用语法

SpringDataJPA常用有两种写法,一个是用Jpa自带方法进行CRUD,适合简单查询场景、例如查询全部数据、根据某个字段查询,根据某字段排序等等。另一种是使用注解方式,@Query、@Modi...

解决JPA在多线程中事务无法生效的问题

在使用SpringBoot2.x和JPA的过程中,如果在多线程环境下发现查询方法(如@Query或findAll)以及事务(如@Transactional)无法生效,通常是由于S...

PostgreSQL系列(一):数据类型和基本类型转换

自从厂子里出来后,数据库的主力就从Oracle变成MySQL了。有一说一哈,贵确实是有贵的道理,不是开源能比的。后面的工作里面基本上就是主MySQL,辅MongoDB、ES等NoSQL。最近想写一点跟...

基于MCP实现text2sql

目的:基于MCP实现text2sql能力参考:https://blog.csdn.net/hacker_Lees/article/details/146426392服务端#选用开源的MySQLMCP...

ORACLE 错误代码及解决办法

ORA-00001:违反唯一约束条件(.)错误说明:当在唯一索引所对应的列上键入重复值时,会触发此异常。ORA-00017:请求会话以设置跟踪事件ORA-00018:超出最大会话数ORA-00...

从 SQLite 到 DuckDB:查询快 5 倍,存储减少 80%

作者丨Trace译者丨明知山策划丨李冬梅Trace从一开始就使用SQLite将所有数据存储在用户设备上。这是一个非常不错的选择——SQLite高度可靠,并且多种编程语言都提供了广泛支持...

010:通过 MCP PostgreSQL 安全访问数据

项目简介提供对PostgreSQL数据库的只读访问功能。该服务器允许大型语言模型(LLMs)检查数据库的模式结构,并执行只读查询操作。核心功能提供对PostgreSQL数据库的只读访问允许L...

发现了一个好用且免费的SQL数据库工具(DBeaver)

缘起最近Ai不是大火么,想着自己也弄一些开源的框架来捣腾一下。手上用着Mac,但Mac都没有显卡的,对于学习Ai训练模型不方便,所以最近新购入了一台4090的拯救者,打算用来好好学习一下Ai(呸,以上...

微软发布.NET 10首个预览版:JIT编译器再进化、跨平台开发更流畅

IT之家2月26日消息,微软.NET团队昨日(2月25日)发布博文,宣布推出.NET10首个预览版更新,重点改进.NETRuntime、SDK、libraries、C#、AS...

数据库管理工具Navicat Premium最新版发布啦

管理多个数据库要么需要使用多个客户端应用程序,要么找到一个可以容纳你使用的所有数据库的应用程序。其中一个工具是NavicatPremium。它不仅支持大多数主要的数据库管理系统(DBMS),而且它...

50+AI新品齐发,微软Build放大招:拥抱Agent胜算几何?

北京时间5月20日凌晨,如果你打开微软Build2025开发者大会的直播,最先吸引你的可能不是一场原本属于AI和开发者的技术盛会,而是开场不久后的尴尬一幕:一边是几位微软员工在台下大...

揭秘:一条SQL语句的执行过程是怎么样的?

数据库系统能够接受SQL语句,并返回数据查询的结果,或者对数据库中的数据进行修改,可以说几乎每个程序员都使用过它。而MySQL又是目前使用最广泛的数据库。所以,解析一下MySQL编译并执行...

各家sql工具,都闹过哪些乐子?

相信这些sql工具,大家都不陌生吧,它们在业内绝对算得上第一梯队的产品了,但是你知道,他们都闹过什么乐子吗?首先登场的是Navicat,这款强大的数据库管理工具,曾经让一位程序员朋友“火”了一把。Na...

详解PG数据库管理工具--pgadmin工具、安装部署及相关功能

概述今天主要介绍一下PG数据库管理工具--pgadmin,一起来看看吧~一、介绍pgAdmin4是一款为PostgreSQL设计的可靠和全面的数据库设计和管理软件,它允许连接到特定的数据库,创建表和...

Enpass for Mac(跨平台密码管理软件)

还在寻找密码管理软件吗?密码管理软件有很多,但是综合素质相当优秀且完全免费的密码管理软件却并不常见,EnpassMac版是一款免费跨平台密码管理软件,可以通过这款软件高效安全的保护密码文件,而且可以...