当前位置：首页 > 科技 > 正文

Function自定义函数_模拟2016版本新函数 TextJoin

今天翻了一下之前老师布置的练习题，题目是这样的：用VBA编写一个自定义函数，以实现按照任意指定字符连接所选单元格区域的各单元格的值

如：其中A3：A9是所选区域，星号是指定连接符号，能够实现C2单元格的效果即可。


这个题目有点2016版本TextJoin函数功能的意思,VBA实现起来也比较简单，所以今天我们就来看看这个问题的代码应该怎么来写吧。

看代码：

效果图：

代码解释：

1、自定义函数的代码结构

Function 函数名(参数)返回值

代码段

End Function

MyTextJoin为函数名：函数写好之后，在表格中就调用该函数

rng、str 是给定的两个参数，range即表示该函数需要给定一个单元格的区域，str则表示用来连接给定单元格值之间的“字符串”。

最后函数需要返回一个字符串类型的结果，所以在括号后面跟了一个返回值的类型。

2、代码的含义

2.1：由于函数的用意是用某个字符串对单元格区域进行两两连接，所以我们知道参数中的单元格区域中单元格的个数是在两个及以上的，所以定义了一个数组arr用来接收将来给定的单元格区域，用来后续循环得到数组中的每个独立值（之所以用数组，是因为数组的速度快）

arr = rng.Value

2.2：定义两个循环变量i和j，因为将单元格区域的值赋值给变量我们会得到一个二维的数组，所以我们需要获得二维数组的每一个维度的最大下标，以便我们能够通过数组的角标获取到对应各单元格的单个值。

For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)

Next j
Next i

2.3：判断给定区域的值是否为空，只对不为空的单元格的值进行连接，忽略空值，并定义一个变量strResult用来存储每次更新的连接结果

If Len(arr(i, j)) <> 0 Then
strResult = strResult & arr(i, j) & str
End If

3、返回值

函数名=返回的结果，由于strResult每次连接的时候都将连接符连接在最后，所以以上循环连接结果最后还多出了一个连接符，所以我们需要将该连接符去除得到我们最终想要的完全正确的结果

MyTextJoin = Left(strResult, Len(strResult) - Len(str))

至此，这段代码就结束了，大家如果写好了代码，可以到单元格中试一下自己写的自定义函数哦。

你可能想看：

Text函数：一个能被称为万能函数的存在

Text函数对于小白来说使用频率不高或都没听说过，Text函数将数值转换为按指定数字格式表示的函数。1.显示数字格式常规、数值、小数位补齐等等，可以做到round函数和Int函数的一些功能，有时候我们...

大神级函数TEXT，只需会得这个方法，你也能秒懂！

这种其实可以借助自定义单元格格式完全实现。再看看自定义格式怎么表示，在[]里面输入具体颜色就行。自定义完就看到正数的变成红色。自定义完发现三角形没有对齐。设置单元格为会计专用格式，再查看自定义代码，将...

EXCEL | 使用特殊符号自定义单元格格式，要什么格式你做主

单元格格式中常使用特殊符号来定义特殊格式。如果单元格的内容大于指定占位符；则显示实际数字，代表设置单元格格式为四位整数，A3单元格中数字，数字占位符“在小数点两边为无意义的零添加空格?自定义添加千分位...

自定义格式，Excel的最强“化妆术”，居然可以让数字显示为汉字

2.删除E+显示当在Excel中输入的数据超过11位的时候，数据就会被自动的设置为E+显示，然后点击确定即可不过我们需要注意的是Excel的精度只有15位，只有将格式设置为0后再输入数据才可以，3.负...

Excel VBA解读（53）：高级筛选——AdvancedFilter方法

我们先使用Excel的录制宏工具录制一段进行高级筛选操作的代码，先在单元格G1中输入标题，选择单元格区域A1”则可以选择整个数据区域“就用不着每次都要选择不同的列表区域了”表明将数据复制到由参数Cop...

Excel函数之——SUMPRODUCT函数太强大了

先介绍下SUMPRODUCT函数的基本用法,[array3]，该函数可以有多个参数。每个参数都必须是有相同维度的数组：以下是单条件计数:在使用N()函数“将N()返回的数组中的所有元素，所以就不在需要...

学习制作PAL的launcher.ini文件（四）

在启动程序的配置文件launcher.ini中，[Activate]Registry=true[RegistryKeys]区段处理使用便携软件时产生的注册表键，1、使用便携软件后删除所产生的注册表键，...

微信8.0.8重磅更新！自定义铃声不是最大看点，这几个功能才吸引人！

让大家开心的微信终于支持自定义提示音和来电铃声了！而且还可以针对某个微信好友单独设定铃声！万年不变的铃声终于可以更改了？如果你还没有收到更新提醒，那么打开微信的「设置」-「关于微信」-「版本更新」，除...

2个新函数，秒变“大神”

现在只需要一个公式就来完成。（FILTER函数是按照指定的一组或者多组条件，公式可以修改为:没有满足条件的数据。就会显示出第三参数的内容，公式会返回一个空数组的错误值【#CALC：再也不需要为各种筛选...

新函数XMATCH、XLOOKUP的经典用法，越学习，写的公式越短

按重量查找对应区间的金额，比如重量8.9是查找10的对应值，也就是查找比他大的最小值的对应值。不管是VLOOKUP、LOOKUP函数都是查找比他小的最大值。需要嵌套INDEX才能返回对应值:$E$2:...

VBA遍历所有文件夹的两种方法（filesearch和FileSystemObject）

另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。

Be Careful! 股权融资协议里的18个致命陷阱（上）

T3年度补偿款金额=(投资方投资总额-投资方T1年度和T2年度已实际获得的补偿款金额合计数)×〔1-公司T3年实际净利润/公司T2年实际净利润×(1+公司承诺T3年度同比增长率)〕，不少PE、VC与公...

“See the joke”的意思可不是“ 看笑话”！理解错就尴尬了

有些看似很简单的英语句子，可能会导致偏差甚至闹出笑话”几个不能直译的英语句子吧：的意思是”You should speak to him like that.You're going too far....

指点江山、坚毅果断的“指挥官”性格ENTJ类型解析

比石头更坚硬的应该是ENTJ的意志“外向（E）——他们的目光常常关注着外部世界，直觉（N）——他们特别善于洞察和发现机会、事物之间的联系和意义，思维（T）——他们能够十分客观地分析获得的信息；绝不会让...

图解蒸气喷射式制冷原理（Steam Jet System）

1、蒸气喷射器原理，蒸气喷射式制冷是以喷射器代替压缩机，利用工质在低压下气化吸热实现制冷，2、蒸气喷射式制冷，蒸气喷射式制冷的工质可以是水，目前在空调工程中多采用以水为工质的蒸汽喷射式制冷装置，简称为...

保留整数、小数位的函数方法，只知道INT和ROUND是不够的

一定要使用最适合的函数。一、INT函数和round函数的局限性比如我想通过计算知道某月是哪个季度，如果用INT函数，因为INT函数不会四舍五入，而round函数是一个四舍五入保留小数位函数，同样也不能...

Excel VBA 7.19 Excel跨工作薄多工作表数据合并之Excel表格多行表头

所以我们今天针对多行表头的数据汇总来分析下方法场景模拟假设我们要统计的Excel中每个表格都有表头，1) End If Next sth End If ActiveWorkbook.Close Fal...

Excel公式技巧01： 使用INDEX函数返回整行或整列

INDEX函数是我们经常使用的函数之一，如果将其行参数或者列参数指定为0（或者忽略）。那么会返回对指定列或行的引用，这里返回的不是单个值。返回数据区域A1:=INDEX(A1：返回数据区域A1，即单元...

excel查找定位：INDEX函数——精确制导导弹

一、认识INDEX函数Index函数：返回特定行列交叉处单元格的值或引用。二、INDEX函数基础用法1.单行、单列中提取数值”只需一个坐标值如果给定的区域是单行或者单列。INDEX通过坐标返回数值”实...

我敢说「Ctrl+E」绝对是Excel中最强大的快捷键，没有之一！

在D2单元格中输入想要的日期格式，只需分别复制A2单元格中的姓名和电话。鼠标定位B3单元格、按【Ctrl+E】就可以快速添加前缀啦~。鼠标定位C3单元格、按【Ctrl+E】就可以快速提取。只需将A2单...

SUMPRODUCT函数自称求和之王，SUMIFS不服气要来PK

=SUMIFS(E,$B$12=G2)*($C$2。只能用LEFT从左边提取字符:$B$12=G2)*(LEFT($C$2。=SUMIFS(E:=SUMPRODUCT($E$2，$B$12=G2)*I...

Telesat、OneWeb及SpaceX三个全球宽带低轨卫星星座系统的技术对比

考虑到地面站的位置和数量在确定系统总吞吐量中起着重要作用。利用大型低轨卫星星座从太空提供互联网的想法重新流行起来“共有11家公司向联邦通信委员会（FCC）申请在非地球静止卫星轨道（NGSO）部署大型星...

第5讲 Vision Pro视觉工具 CogFixture

是为了在我们找到的图像特征上建立一个固定的坐标系，如果没有这个工具我们的图像识别还能找到想找到的位置吗？固定工具用来在您已经计算了一个坐标转换时创建一个固定坐标系统-在我们所举的范例中,我们已经找到了...

七年级英语上册Unit5考点汇总（语法 短语 知识点 作文）

今天王老师为大家整理了七年级英语上册Unit5考点汇总，其中包括语法、短语、知识点、作文，我没有足球。她没有排球，让我们(一起)去打篮球吧，让我们(一起)玩电脑游戏吧，我们在学校里和朋友踢足球“我没有...

人教版|七年级上册Unit8 单元检测卷

Ⅴ.单项选择?—　　　.It''s on May 16th.;C.November D.December;A.WhenC.WhereOnTwelveⅥ.完形填空A

My University Days [英汉对照〕

[日期：[字体,so I am told;bright-eyed

SCI数据库(Web of Science)

全球最权威的自然科学引文数据库，有效地整合了学术期刊、技术专利、会议录、学术分析与评价工具等重要的学术信息资源;HCI是ISI Web of Knowledge平台中自然科学、社会科学、艺术与人文领域...

单元格函数区域arr代码

上一篇
“源于生活”而又“高于生活”刘东方国画作品欣赏

下一篇
一种治疗艾滋病、癌症、肝炎的特效药品及康复用保健品

有话要说...

最新文章

取消
扫码支持 支付码