求助一个文本数值化的自定义函数

greenboater

1. Public Function StringToNumeric(Str As String)
   
2. 
   
3.     LessThanPosition = Application.Find("<", Str)
   
4.     MultiplePosition = Application.Find("×", Str)
   
5.     LenStr = Len(Str)
   
6.     IndexNum = Right(Str, LenStr - MultiplePosition - 2)
   
7.    
   
8.     If IsNumeric(LessThanPosition) Then
   
9.         StringToNumeric = Mid(Str, 2, MultiplePosition - 2) / 2 * (10 ^ IndexNum)
   
10.     Else
    
11.         If IsNumeric(MultiplePosition) Then
    
12.             StringToNumeric = Left(Str, MultiplePosition - 1) * (10 ^ IndexNum)
    
13.         Else
    
14.             StringToNumeric = "aa"
    
15.         End If
    
16.     End If
    
17. End Function
    

复制代码

aaa.rar (18.4 KB, 下载次数: 4)

2014-1-19 23:01 上传

点击文件名下载附件

StringToNumeric = "aa"
这句编不通，能不能帮忙改一下，哪里出问题了？？结果在C列
现在只能用IFERROR来修正，B列

wcshzw

供参考：
Public Function StringToNumeric(Str As String)

    LessThanPosition = Application.Find("<", Str)
    MultiplePosition = Application.Find("×", Str)
    If IsError(LessThanPosition) And IsError(MultiplePosition) Then
      StringToNumeric = Str      'StringToNumeric = "aa"
      Exit Function
   End If
    LenStr = Len(Str)
    IndexNum = Right(Str, LenStr - MultiplePosition - 2)
   
    If IsNumeric(LessThanPosition) Then
        StringToNumeric = Mid(Str, 2, MultiplePosition - 2) / 2 * (10 ^ IndexNum)
    Else
        If IsNumeric(MultiplePosition) Then
            StringToNumeric = Left(Str, MultiplePosition - 1) * (10 ^ IndexNum)
        End If
    End If
End Function

不知你想得到什么结果。
如果想遇到错误返回原值 StringToNumeric = Str
然则按你代码的意思返回“aa” StringToNumeric = "aa"

greenboater

wcshzw 发表于 2014-1-25 12:23
供参考：
Public Function StringToNumeric(Str As String)

这个有个问题
如果STR是 0.0012 的话，函数值会显示“.0012”，少了前面一个零，如果我想返回0.0012，这个怎么解决？？