太感謝Ben桑中午忙到2:37才吃飯
請用office2016同學再重新下載1705c幫忙測試,回報狀況
請同學回報台股問題時附上儲存格L1裡的內容,謝謝!
On May 9, 2017, at 2:37 PM, 方家晟 wrote:
已處理上次未處理的部分,勉強堪用。 先來用午膳
On May 9, 2017, at 3:11 PM, 方家晟 wrote:
1. 麻煩再幫忙修改兩處(2850抓合併非合併的檢查會出錯),Module4程式碼最底兩個Function內必要各加上一句On Error Resume Next :
Public Function SEASONCU(dc As Integer)
'若合併報表缺最新年份改抓非合併6195
On Error Resume Next
SEASONCU = Year(Date) - (Val(Left(Cells(4, dc), Len(Cells(4, dc)) - 3)) + 1911) > 2
End Function
Public Function YEARCU(dc As Integer)
'若合併報表缺最新年份改抓非合併6195
On Error Resume Next
YEARCU = Year(Date) - (Val(Cells(4, dc)) + 1911) > 2
End Function
2.
請網友回報台股問題時附上儲存格L1裡的內容,如2850的L1儲存格內:
0 基本資料:00 除權息:00 季合併損益表:005 季非合併資產負債表:00 年合併損益表:000 年非合併資產負債表:00 股利:00 籌碼:00 轉投資:00 轉投資:00 營收:00 上市今年歷史股價:00 上市各年歷史股價:00
解讀"季合併損益表:005",抓表的錯誤只看前兩個數字"00"=就沒有問題,第三個數字是"檢查過程"的錯誤可忽略,"5"是抓下一個季合併資產負債表缺資料,因季表資料要摘取年度格式特殊的關係而導致檢查錯誤,就會改抓非合併報表。
解讀"年合併損益表:000"第三個數字,一樣是檢查未通過(缺最新年份),因此會改抓非合併報表。