Office中国论坛/Access中国论坛

标题: 求一种特殊的减法运算 [打印本页]

作者: liliang666666_ 时间: 2006-11-18 23:27
标题: 求一种特殊的减法运算
求一种特殊的减法运算

文本框1: 22223333444455556666

文本框2: 3333 5555

需要文本框3得出:222244446666

怎样设置公式、代码?谢谢

作者: wuaza 时间: 2006-11-19 00:03
用replace函数。

作者: fan0217 时间: 2006-11-19 03:58
Function MyReplace(expression As String, replace As String) As String
Dim varTemp As Variant
Dim i As Integer
Dim strTemp As String
varTemp = Split(replace, " ")
strTemp = expression
For i = 0 To UBound(varTemp)
strTemp = Replace(strTemp, varTemp(i), "")
Next
MyReplace = strTemp
End Function

[此贴子已经被作者于2006-11-18 20:00:38编辑过]

作者: fan0217 时间: 2006-11-19 04:18
me.文本框3=MyReplace(me.文本框1,me.文本框2)

作者: liliang666666_ 时间: 2006-11-19 06:24
strTemp = Replace(strTemp, varTemp(i), "")

红色的地方提示缺少数组?

非常感谢了!大哥!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)