VBA自定义函数TEXTJOIN CONCAT EVALUATE1

GG函数

1、修复了模块Option Base 0/1问题。
2、某些电脑无字典，已取消字典引用。
3、优化了部分算法，计算速度提升了。
[url=https://cg520.lanzoub.com/b01d50fza]密码：6666[/url]
等什么时候有空了，再去优化算法并编写出微软工程师开发的工作表新函数FILTER、UNIQUE、SORT......等等。致力于让全行业的EXCEL老版本钉子户也能使用微软工程师的工作表新函数。

E风卍行H

66666666666666666

GG函数

E风卍行H 发表于 2022-8-11 08:44
66666666666666666

大佬无处不在我最近调整修改一个excel"聚光灯插件1.0.exe"，但不支持滚动与缩放和多选区域

第一宝

感谢分享，学习一下！

数论

与微软工程师保持97%一致，不错，楼主具有钻研精神。

niko88819

很可惜,看来只能远远观看,即使下载打开了,相信代码自动遗失,感谢楼主提供分享

micch

如果已有textjoin，会不会冲突。应该另起个名称？

GG函数

micch 发表于 2022-8-11 21:28
如果已有textjoin，会不会冲突。应该另起个名称？

如果与自带的工作表函数重名了，会显示两个一样的函数名称；若设计的参数都一样的情况时，EXCEL机制会优先以自带的工作表函数来执行计算。

GG函数

niko88819 发表于 2022-8-11 20:59
很可惜,看来只能远远观看,即使下载打开了,相信代码自动遗失,感谢楼主提供分享

可以直接复制其中的函数代码，然后在需要的表里中，粘贴进VBA的模块里，以备不时之需，但须要启用宏。

E风卍行H

GG函数 发表于 2022-8-11 12:10
大佬无处不在我最近调整修改一个excel"聚光灯插件1.0.exe"，但不支持滚动与缩放和多选区域

看这个有没有一点点参考价值

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   On Error Resume Next
   Cells.FormatConditions.Delete  '删除工作表所有条件格式
   With Target   '对目标条件格式进行设置
        .EntireRow.FormatConditions.Add xlExpression, , True
        '添加新的条件格式,基于表达式,条件格式运算符无,与条件格式相关联的值或表达式
        .EntireRow.FormatConditions.Item(1).Interior.ColorIndex = 20
        .EntireColumn.FormatConditions.Add xlExpression, , True
        .EntireColumn.FormatConditions.Item(2).Interior.ColorIndex = 20
        .FormatConditions.Delete '删除目标条件格式
    End With
End Sub