這個網誌中的熱門文章
關又寧EXCEL_ACCESS外部資料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編輯器截圖
關又寧Access資料表Table表單Form外部資料External Data
資料表原始資料來自公開資訊觀測站 代號 簡稱 董事長 公司中文地址 1303 南亞 吳嘉昭 台北市松山區敦化北路201 號 2303 聯電 洪嘉聰 新竹市新竹科學園區力行二路3 號 2308 台達電 海英俊 台北市內湖區瑞光路 186號 2317 鴻海 劉揚偉 新北市土城區土城工業區自由街 2號 2330 台積電 劉德音 新竹科學工業園區新竹市力行六路8 號 2412 中華電 謝繼茂 台北市中正區信義路一段21之3 號 2454 聯發科 蔡明介 新竹科學工業園區新竹市篤行一路1 號 2881 富邦金 蔡明興 台北市中山區遼寧街 179號15、16樓 2882 國泰金 蔡宏圖 台北市大安區仁愛路四段296 號 6505 台塑化 陳寶郎 台北市松山區敦化北路201 號後棟4 樓377 室 影片 169 170 171
留言
張貼留言