roundup函数未定义问题

Function roundup(shuju As String, ws As Integer)
Dim i As Integer
Dim j As String
If InStr(1, shuju, ".") <> 0 Then
For i = 0 To ws
j = 10 ^ -i
Next i
If Len(Right(shuju, Len(shuju) - InStr(1, shuju, "."))) > ws Then
roundup = Val(Left(shuju, InStr(1, shuju, ".") + ws)) + Val(j)
Else
roundup = Val(Left(shuju, InStr(1, shuju, ".") + ws))
End If
Else
roundup = shuju
End If

End Function
把这个复制到模块中。然后就可以调用了。