excel 自定义函数 (vb)
Function ss(s)
Dim a As String, b As Long, c As Long, d As Long, e As Long, f As Integer, res As Double
a = CStr(s)
b = InStr(1, a, “.”)
f = 65
If b > 0 Then
e = Mid(a, b + 1)
d = Mid(a, 1, b)
res ...
原创
2019-07-25 12:35:27 ·
1405 阅读 ·
0 评论