收集和自编的自定义函数(21个)!新增"字符快速合并"函数（9月14日新增）

小奔

非常实用，谢谢版主！！

xiaobbxiao

二个字：谢谢！

hongcheng

希望分离字符并运算出结果的函数FLW1和FLW2能处理下面的问题，例：10+10*(10-0.24)[L-1]+12 即“[”“]”内的内容（含数字）不参加运算。

谢谢！

兰色幻想

以下是引用hongcheng在2004-11-14 16:19:00的发言： 希望分离字符并运算出结果的函数FLW1和FLW2能处理下面的问题，例：10+10*(10-0.24)[L-1]+12 即“[”“]”内的内容（含数字）不参加运算。

谢谢！

可以用MID函数结合使用，先取出不含该括号内容的字符串，然后用自定义函数=FLW2（MID....）

这个用改程序的方法会比较麻烦

hongcheng

下面是shangyu版主写：

Function SS(MyStr As String) Dim Temp As String, Ti As String, Bool As Boolean, i As Integer Bool = True For i = 1 To Len(MyStr) Ti = Mid(MyStr, i, 1) If Ti = "[" Then Bool = False ElseIf Ti = "]" Then Bool = True End If If Bool Then Temp = Temp & Ti Next SS = Evaluate(Replace(Temp, "]", "")) End Function

我到现在还是不太看得懂VBA

[em04][em04]

请再改一下啊！谢谢

大鹏

版主。能不能把这些函数做在一个文件内上传，哈哈，是不是我有点太贪了。

独孤雪

版主你好，

首先谢谢你的作品对我们的帮助

但有以下几个问题：

1、可不可以得到你的源码。

2、依据分隔符提取第N个字符这个函数中

分隔符是同样的

但我在实际使用(机械做材料表)中要用的是分隔符是不同的，如：

‘-10X200(钢板的表示方法)，要求提取数字计算

还有[10

C160X60X20X2.5

FG100X50X2.5

工10

%%C25

%%C48X3.5

等!!

以上都是根据开头字符判定材料类型，但根据数字计算的

啊一

天哪~~~~~,原来兰老师也是河南人?天,俺是郑州登封的啊!我们很近的!您还是赶紧说说您是具体什么地方的,我也好有机会去拜访您!

独孤雪

请问

split 是什么函数

兰色幻想

以下是引用独孤雪在2004-11-18 10:57:00的发言：

版主你好，

首先谢谢你的作品对我们的帮助

。。。。

以上都是根据开头字符判定材料类型，但根据数字计算的

1、代码没有加密，按ALT+F11可以查看

2、你说的这些，用FLW2函数应该都可以运算

[此贴子已经被作者于2004-11-19 22:10:42编辑过]