- 帖子
- 40
- 主題
- 11
- 精華
- 0
- 積分
- 100
- 點名
- 0
- 作業系統
- Win8
- 軟體版本
- Office2013
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2014-12-9
- 最後登錄
- 2021-7-2
 
|
24#
發表於 2015-4-4 20:25
| 只看該作者
For I = Data_Year To End_Year ' 由現有資料年度至系統年度更新
For J = 4 To 1 Step -1 ' 由第四季往下找
On Error Resume Next
Err.Clear
Msgbog I & " " & J
Call Report_IFRS(Data_Comp, I, J)
If Err.true Then
With Sheets(Data_Comp)
.Activate
Write_Col = .Range("1:1").Find(I).Col
If J = 1 Or J = 4 Then
Read_Col = 2
Else
Read_Col = 4
End If
MsgBox I & " " & J & " " & Write_Col & " " & Read_Col
'資料轉寫
'Set 推銷費用位置 = Sheets("temp").Range("A:A").Find("*推銷費用*")
' If 推銷費用位置 Is Nothing Then
' 推銷費用 = 0
' Else
' 推銷費用 = 推銷費用位置.Offset(0, 1).Value
' End If
.Cells(Write_Col, 2) = J
.Cells(Write_Col, 3) = .Cells(Worksheets("temp").Range("A:A").Find(" 營業收入合計").Row, Read_Col)
J = 1 '已有最近季報 , 所以結束不再 Update
End With
End If
Next
Next
目前資料轉寫如上 ,
年度資料執行上沒有錯 , 由資料最近年度至系統年度來執行 ,
而季報資料則由 4 -> 1 , 但卻出現
1) 它一次跳兩季 , 只有 4 , 2 資料 , 而不是 4 , 3 , 2 , 1 的順序
2) 網頁Web轉檔時 , 只要 4 , 3 , 2 , 1 下 , 第一個成功的即跳出 , 且資料轉寫 ; 若都不成功時才結束 , 但執行結果都是 4 , 2 , 然後又是 4 , 2 ... , 即使有 Web 轉檔成功但也沒有跳出 ,
這是那邏輯上錯誤 ? 還是語法上錯誤 ?? |
|