Excel 2010 VBA 入门 113 用自定义函数返回满足条件的所有记录

目录

以数组作为返回值的自定义函数

 Application. Caller属性


    在使用公式进行按条件查找时,经常需要返回满足条件的所有记录。然而Excel的大部分查找函数只能返回满足条件的第一个记录。可以自定义一个函数进行条件查找,并返回满足条件的所有记录。例如编写一个结构类似于SUMIF函数的自定义查找函数,使其第1参数为条件区域,第2参数为条件,第3参数为数据区域。使该函数返回参数1中满足参数2作为条件的数据在参数3中对应的区域值。

序号姓名性别出生年月年龄参工时间工作年限入司时间
1张2011011954-01-0459258124225750
2王2011021954-10-0658282163628216
3李2011031956-08-1356281573628307
4赵2011041956-04-0957263594131413
5周小军1958-10-2254289153432843
6吴2011061959-06-1654285813531048
7梁2011071960-01-2053343041934304
8闫2011081961-10-0351328432332509
9王2011091961-11-2251290373437622
10李2011101962-01-0751363421436892
11赵2011111962-03-2751299213129921
12周2011121962-10-2450308642931413
13吴2011131964-08-0248299213138991
14梁2011141964-08-1548347451834731
15闫2011151965-02-184840171340171
16王不小1965-10-054738718738718
17李2011171966-12-1046313212732021
18赵2011181967-09-2845323562432325
19周2011191967-11-2645318092632568

    模拟SUMIF函数编写一个自定义函数MyList。在该函数中,第1个参数和第3个参数作为条件区域和数据区域,采用变体型参数,并使用循环找出符合条件的元素值组成数组,最后作为函数的结果返回。
 

Option Explicit
'数据源,条件,结果
Function MyList(Criteria_Range As Variant, Criteria As String, Data_Range As Variant) As Variant
    Dim Rng As Variant
    Dim arrCri()
    Dim arrData()
    Dim arrResult()
    Dim dataCount As Long
    Dim i As Long
    
    '赋值数据源
    dataCount = 0
    ReDim arrCri(1 To 1)
    For Each Rng In Criteria_Range
        dataCount = dataCount + 1
        ReDim Preserve arrCri(1 To dataCount)
        arrCri(dataCount) = Rng
    Next Rng
    
    '赋值数据数组
    dataCount = 0
    For Each Rng In Data_Range
        dataCount = dataCount + 1
        ReDim Preserve arrData(1 To dataCount)
        arrData(dataCount) = Rng
    Next Rng
    
    '结果数组
    dataCount = 0
    ReDim arrResult(1 To 1)
    For i = 1 To WorksheetFunction.Min(UBound(arrCri), UBound(arrData))
        If arrCri(i) = Criteria Then
            dataCount = dataCount + 1
            ReDim Preserve arrResult(1 To dataCount)
            arrResult(dataCount) = arrData(i)
        End If
    Next i
    
    '获取调用本函数的单元格对象
    Set Rng = Application.Caller
    If Rng.Rows.Count = 1 Then
        MyList = arrResult
    Else
        MyList = WorksheetFunction.Transpose(arrResult)
    End If
End Function

   在工作表界面。选中J2:J20,输入以下公式,并按组合键【Ctrl+Shift+Enter】完成输入,即可获得所有男员工的名单。

=MyList(C2:C20, "男",B2:B20)

以数组作为返回值的自定义函数

    自定义函数的返回值可以是任何类型的数据,同样也可以是数组数据。当以数组作为返回值时,无须对自定义函数做任何特别的声明,只需在该函数内部的函数返回值赋值语句中,以数组作为返回值对该函数进行赋值。
    当在工作表中使用该函数时,同样需要以区域数组公式的形式调用该函数进行计算。实际使用中,用户可能需要将结果以一行输出,也可能将结果以一列输出。因而作为函数返回值的
数组时,需要根据实际情况进行调整以确定结果为一行或者是一列,此时需要使用Application. Caller属性对调用函数的区域进行判断。

 Application. Caller属性

    Application. Caller属性用在自定义函数或者自定义过程中,能够返回该函数或过程的调用者的信息,即返回哪个对象或进程调用了自定义函数或过程。该属性可以根据不同的调用者返回不同的信息。

    调用进程

    返回值

在单个单元格中输入的自定义函数

指定该单元格的区域对象

在单元格区域中作为数组公式的一部分自定义函数

指定该单元格区域的区域对象

Auto_Open、Auto_Close、Auto_ Activate或 Auto_Deactivate宏

以文本形式返回的文档名

由OnDoubleClick或OnEntry属性所设置的宏

该宏所引用的图表对象标识符或单元格引用?(若适用)的名称

“工具”菜单中的“宏”对话框,或除上述外的其他调用进程

错误值#REF!

    当Caller使用在自定义函数中时,其实质就是表示公式所在的单元格或单元格区域。当单个单元格调用函数时,则Caller在每个单元格中返回该单元格对象。当采用单元格区域数组公式时,则Caller返回一个单元格区域。

    本例中,在单元格区域中输入自定义函数,因而调用该自定义函数的进程为单元格区域对象,则其返回值为该单元格区域对象。因而,可以根据该单元格区域对象的行数和列数来判断其为一行还是一列,从而对结果数组的定义采用相应的形式。

热门文章

暂无图片
编程学习 ·

exe4j详细使用教程(附下载安装链接)

一、exe4j介绍 ​ exe4j是一个帮助你集成Java应用程序到Windows操作环境的java可执行文件生成工具,无论这些应用是用于服务器,还是图形用户界面(GUI)或命令行的应用程序。如果你想在任务管理器中及Windows XP分组的用户友好任务栏…
暂无图片
编程学习 ·

AUTOSAR从入门到精通100讲(126)-浅谈车载充电系统通信方案

01 引言 本文深入研究车载充电系统策略,设计出一套基于电动汽车电池管理系统与车载充电机的CAN通信协议,可供电动汽车设计人员参考借鉴。 02 电动汽车充电系统通讯网络 电动汽车整车控制系统中采用的是CAN总线通信方式,由一个整车内部高速CAN网络、内部低速CAN网络和一个充电…
暂无图片
编程学习 ·

CMake(九):生成器表达式

当运行CMake时,开发人员倾向于认为它是一个简单的步骤,需要读取项目的CMakeLists.txt文件,并生成相关的特定于生成器的项目文件集(例如Visual Studio解决方案和项目文件,Xcode项目,Unix Makefiles或Ninja输入文件)。然…
暂无图片
编程学习 ·

47.第十章 网络协议和管理配置 -- 网络配置(八)

4.3.3 route 命令 路由表管理命令 路由表主要构成: Destination: 目标网络ID,表示可以到达的目标网络ID,0.0.0.0/0 表示所有未知网络,又称为默认路由,优先级最低Genmask:目标网络对应的netmaskIface: 到达对应网络,应该从当前主机哪个网卡发送出来Gateway: 到达非直连的网络,…
暂无图片
编程学习 ·

元宇宙技术基础

请看图: 1、通过AR、VR等交互技术提升游戏的沉浸感 回顾游戏的发展历程,沉浸感的提升一直是技术突破的主要方向。从《愤怒的小鸟》到CSGO,游戏建模方式从2D到3D的提升使游戏中的物体呈现立体感。玩家在游戏中可以只有切换视角,进而提升沉浸…
暂无图片
编程学习 ·

flink的伪分布式搭建

一 flink的伪分布式搭建 1.1 执行架构图 1.Flink程序需要提交给 Job Client2.Job Client将作业提交给 Job Manager3.Job Manager负责协调资源分配和作业执行。 资源分配完成后,任务将提交给相应的 Task Manage。4.Task Manager启动一个线程以开始执行。Task Manage…
暂无图片
编程学习 ·

十进制正整数与二进制字符串的转换(C++)

Function one: //十进制数字转成二进制字符串 string Binary(int x) {string s "";while(x){if(x % 2 0) s 0 s;else s 1 s;x / 2;}return s; } Function two: //二进制字符串变为十进制数字 int Decimal(string s) {int num 0, …
暂无图片
编程学习 ·

[含lw+源码等]微信小程序校园辩论管理平台+后台管理系统[包运行成功]Java毕业设计计算机毕设

项目功能简介: 《微信小程序校园辩论管理平台后台管理系统》该项目含有源码、论文等资料、配套开发软件、软件安装教程、项目发布教程等 本系统包含微信小程序做的辩论管理前台和Java做的后台管理系统: 微信小程序——辩论管理前台涉及技术:WXML 和 WXS…
暂无图片
编程学习 ·

树莓派驱动DHT11温湿度传感器

1,直接使用python库 代码如下 import RPi.GPIO as GPIO import dht11 import time import datetimeGPIO.setwarnings(True) GPIO.setmode(GPIO.BCM)instance dht11.DHT11(pin14)try:while True:result instance.read()if result.is_valid():print(ok)print(&quo…
暂无图片
编程学习 ·

ELK简介

ELK简介 ELK是三个开源软件的缩写,Elasticsearch、Logstash、Kibana。它们都是开源软件。不过现在还新增了一个 Beats,它是一个轻量级的日志收集处理工具(Agent),Beats 占用资源少,适合于在各个服务器上搜集日志后传输给 Logstas…
暂无图片
编程学习 ·

Linux 基础

通常大数据框架都部署在 Linux 服务器上,所以需要具备一定的 Linux 知识。Linux 书籍当中比较著名的是 《鸟哥私房菜》系列,这个系列很全面也很经典。但如果你希望能够快速地入门,这里推荐《Linux 就该这么学》,其网站上有免费的电…
暂无图片
编程学习 ·

Windows2022 无线网卡装不上驱动

想来 Windows2022 和 windows10/11 的驱动应该差不多通用的,但是死活装不上呢? 搜一下,有人提到 “默认安装时‘无线LAN服务’是关闭的,如果需要开启,只需要在“添加角色和功能”中,选择开启“无线LAN服务…
暂无图片
编程学习 ·

【嵌入式面试宝典】版本控制工具Git常用命令总结

目录 创建仓库 查看信息 版本回退 版本检出 远程库 Git 创建仓库 git initgit add <file> 可反复多次使用&#xff0c;添加多个文件git commit -m <message> 查看信息 git status 仓库当前的状态git diff 差异对比git log 历史记录&#xff0c;提交日志--pret…
暂无图片
编程学习 ·

用Postman生成测试报告

newman newman是一款基于nodejs开发的可以运行postman脚本的工具&#xff0c;使用Newman&#xff0c;可以直接从命令运行和测试postman集合。 安装nodejs 下载地址&#xff1a;https://nodejs.org/en/download/ 选择自己系统相对应的版本内容进行下载&#xff0c;然后傻瓜式安…
暂无图片
编程学习 ·

Java面向对象之多态、向上转型和向下转型

文章目录前言一、多态二、引用类型之间的转换Ⅰ.向上转型Ⅱ.向下转型总结前言 今天继续Java面向对象的学习&#xff0c;学习面向对象的第三大特征&#xff1a;多态&#xff0c;了解多态的意义&#xff0c;以及两种引用类型之间的转换&#xff1a;向上转型、向下转型。  希望能…