怎么在代码中调用自定义函数

chenjj007

Function tiji(sr)               '提取字符串中所有数字, 返回相乘结果
Dim Reg As Object  ' 定义对象
Set Reg = CreateObject("VBScript.RegExp") '创建正则对象
Dim ma As Variant  '存放匹配到的数字，实际是字符串
Dim m As Variant '遍历数组的变量
Dim mul As Single '乘积结果
mul = 1 '赋初值为1
With Reg
    .Global = True '如果值为true,则搜索全部字符
    .Pattern = "\d+\.?\d×"    '查找规则：查找字符串中的数字, 不支持以.开头的数字
    .MultiLine = True '多行查找
    Set ma = .Execute(sr)     '提取字符到数组
    For Each m In ma
        mul = mul * Val(m) 'val(m)把字符转化为可计算的数值
    Next m
End With
tiji = mul
End Function

这是模块1中的自定义函数
我要想在代码中调用要怎么写

如果E2单元格内容 像“304板材”则调用tiji函数到G2单元格中
G2=tiji(F2) 这是我要的最终结果
直接在G2单元格中能运行，在代码中不知道怎么写了

chenjj007

Sheets("自动报价单").Cells(i, 7) = Application.WorksheetFunction.tiji(Sheets("自动报价单").Cells(i, 6))
想不通这句话哪里错了

chenjj007

有人帮忙看下吗

chenjj007

沉得这么快吗

chenjj007

找到了方法

xunanming

你的函数tiji(str)是妈单元格里的字符串,那就改成tiji(str as range).
在其他代码里调用时,直接调用就可以.如Sheets("自动报价单").Cells(i, 7)=tiji(cells(i,6))