Private Function f(str As String) As String
If IsNumeric(str) Then
If Val(str) 0 Then f = "0" & Trim(str) Else f = Trim(str)
Else
f = str
End If
End Function
我曾经这样写上面的函数：
Private Function f(str As String) As String
If Left(str,1)="." And IsNumeric(str) Then f="0" & str Else f=str
End Function
置顶卡
