求一种特殊的减法运算

liliang666666_

求一种特殊的减法运算

文本框1:     22223333444455556666

文本框2:    3333   5555

需要文本框3得出:222244446666

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

wuaza

用replace函数。

fan0217

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

me.文本框3=MyReplace(me.文本框1,me.文本框2)

liliang666666_

strTemp = Replace(strTemp, varTemp(i), "")

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



非常感谢了!大哥!