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 = (d * 20 + e) * f

Else
d = a
res = (d * 20) * f

End If

ss = res / 100
End Function

總結

以上是生活随笔為你收集整理的excel 自定义函数 （vb）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。