写个文本合并函数练习，类似TEXTJOIN,老师们请勿笑话

micch · 发表于 2019-3-25 12:34

本帖最后由 micch 于 2019-3-26 18:27 编辑

昨天忘了哪个帖子提到这个，正在学习自定义函数，论坛搜了一下，学习别人写一个练习；
摸黑走路，不规范是肯定的，不正确也不是不可能。
新版本office，自动忽略就好，直接发个代码，省得下载附件了，如果老师们不吝指点，不胜感激。

多谢hno3861老师帮助，更新一下

'声明一个函数"TJOIN",第一参数是文本类型，代表分隔符,忽略则默认空格分割；
'第二参数用ParamArray，表示不确定个数的参数
Function TJOIN(S, ParamArray X() As Variant) As String
Dim A As Variant, B As Variant, Mstr$
If IsMissing(S) Then S = " "
If Not IsMissing(X) Then
For Each A In X
If IsArray(A) Then
For Each B In A
If B <> "" Then Mstr = Mstr & S & B
Next
Else
If A <> "" Then Mstr = Mstr & S & A
End If
Next
End If
If Len(Mstr) Then TJOIN = Mid(Mstr, 1 + Len(S))
End Function

复制代码

附件不看也罢，可忽略

TJOIN.zip (40.3 KB, 下载次数: 117)

Datous · 发表于 2019-3-25 13:15

加一个省略参数时，默认空格分隔 optional=“ ”

micch · 发表于 2019-3-25 13:33

本帖最后由 micch 于 2019-3-26 18:41 编辑

借楼一用

多谢 hno3861 老师指点。更新一下去重合并函数代码，第一二参数可以省略，默认为空格分隔符，默认为去重合并。

'声明一个函数"TJOINQC",第一参数是文本类型，代表分隔符；
'第二参数选择是否去重合并；第三参数用ParamArray，表示不确定个数的参数，可为区域，常量，表达式
Function TJOINQC(S, R, ParamArray X() As Variant) As String
Dim A, B, Mstr$
If IsMissing(S) Then S = " "
If IsMissing(R) Then R = True
FG$ = "{@|#}"
If Not IsMissing(X) Then
For Each A In X
If IsArray(A) Then
For Each B In A
If B <> "" And InStr(Mstr & FG, FG & B & FG) < IIf(R, 1, 9 ^ 9) Then _
Mstr = Mstr & FG & B
Next
Else
If A <> "" And InStr(Mstr & FG, FG & B & FG) < IIf(R, 1, 9 ^ 9) Then _
Mstr = Mstr & FG & A
End If
Next
End If
If Len(Mstr) Then TJOINQC = Mid(Replace(Mstr, FG, S), 1 + Len(S))
End Function

复制代码

jivy1212 · 发表于 2019-3-25 13:35

虽然看不懂，但还是感觉很牛的样子。我函数公式都是靠自动补全的。

micch · 发表于 2019-3-25 13:38

一点不牛，我也是刚开始尝试，学着玩而已，我写公式函数也是靠tab，甚至很多函数用以前都百度函数用法。有时候都不懂函数的参数代表啥，weekday函数每次写，都要看介绍数字几代表星期几开始。

sbdk007 · 发表于 2019-3-25 13:45

楼主实在是厉害

玻璃深灰白丶 · 发表于 2019-3-25 13:49

LZ响应了我提的问题，十分感谢。

micch · 发表于 2019-3-25 13:51

呃，每天灌水太多，忘了，只记得昨天有人提起过，(⊙o⊙)…

新手路上 · 发表于 2019-3-25 13:54

micch 发表于 2019-3-25 13:51
呃，每天灌水太多，忘了，只记得昨天有人提起过，(⊙o⊙)…

前辈很努力啊，自己厉害了别忘了带带小妹啊~~

micch · 发表于 2019-3-25 14:02

咋带啊，你会的我都不会，我会的你都会 o(*￣︶￣*)o

		自动登录	找回密码
密码			免费注册

[分享] 写个文本合并函数练习，类似TEXTJOIN,老师们请勿笑话

评分

评分

评分