葉可棠,硬體,軟體,word,方程式編輯器
葉可棠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編輯器截圖
第一次
回覆刪除你只發布三篇嗎?
https://www.facebook.com/robertjcliu/posts/pfbid0Cgi2UHdrmP4z8rpbM61RTgcd9tsVsbdeBKU8RvYLzRFtfxWzdC1CQHSdWo6kJrDzl