劉任昌EXCEL_ACCESS外部資料VBA自訂函數

VBA程式碼

'劉任昌使用VBA將T轉成10**12, B=^
Public Function TBM_number(abc) '函數將 123.45T 文字轉成數字
    i = Len(abc)                     'Len() 回傳字串長度
    c = Right(abc, 1)             'Right(abc, i) 取 abc 右邊第 1 位
    If c = "T" Then
        n = Val(Left(abc, i - 1)) * 1000000000000#  '將 T 轉為兆
    ElseIf c = "B" Then
        n = Val(Left(abc, i - 1)) * 1000000000 '將 B 轉為十億
    ElseIf c = "M" Then
        n = Val(Left(abc, i - 1)) * 1000000 '將 M 轉為百萬
    Else
       n = Val(Left(abc, i - 1))  '直接轉為數字
    End If
    TBM_number = n
End Function

EXCEL VBA編輯器截圖