商業套裝軟體Microsoft Office

 林佳誼 正理四大會計師事務所 上市公司簽證會計師CPA=Cerlified public Account 計數 - 簡稱 大中國際聯合會計師事務所 5 正風聯合會計師事務所 14 立本台灣聯合會計師事務所 12 安永聯合會計師事務所 106 安侯建業聯合會計師事務所 219 信永中和聯合會計師事務所 6 冠恒聯合會計師事務所 1 南台聯合會計師事務所 2 建智聯合會計師事務所 3 致遠聯合會計師事務所 4 馬施云大華聯合會計師事務所 2 國富浩華聯合會計師事務所 28 基富聯合會計師事務所 1 畢馬威香港會計師事務所 1 惠眾聯合會計師事務所 3 勤業眾信聯合會計師事務所 339 群智聯合會計師事務所 3 誠正聯合會計師事務所 1 資信聯合會計師事務所 1 資誠聯合會計師事務所 227 德昌聯合會計師事務所 5 霈昇聯合會計師事務所 2 總計 985

SELECT 中國股票資料表.代號, 中國股票資料表.公司名稱, 中國股票資料表.價格, 中國股票資表.漲跌, 中國股票資料表.漲跌幅, 中國股票資料表.成交量, 中國股票資料表.[3個月平均成交量], 中國股票資料表.市值 FROM 中國股票資料表 WHERE (((中國股票資料表.漲跌)<[跌幅門檻]));

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編輯器截圖

資料表原始資料來自公開資訊觀測站 代號 簡稱 董事長 公司中文地址 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室 影片