- ©«¤l
- 40
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 100
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-12-9
- ³Ì«áµn¿ý
- 2021-7-2
|
For I = Data_Year To End_Year ' ¥Ñ²{¦³¸ê®Æ¦~«×¦Ü¨t²Î¦~«×§ó·s
For J = 4 To 1 Step -1 ' ¥Ñ²Ä¥|©u©¹¤U§ä
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
'¸ê®ÆÂà¼g
'Set ±À¾P¶O¥Î¦ì¸m = Sheets("temp").Range("A:A").Find("*±À¾P¶O¥Î*")
' If ±À¾P¶O¥Î¦ì¸m Is Nothing Then
' ±À¾P¶O¥Î = 0
' Else
' ±À¾P¶O¥Î = ±À¾P¶O¥Î¦ì¸m.Offset(0, 1).Value
' End If
.Cells(Write_Col, 2) = J
.Cells(Write_Col, 3) = .Cells(Worksheets("temp").Range("A:A").Find(" Àç·~¦¬¤J¦Xp").Row, Read_Col)
J = 1 '¤w¦³³Ìªñ©u³ø , ©Ò¥Hµ²§ô¤£¦A Update
End With
End If
Next
Next
¥Ø«e¸ê®ÆÂà¼g¦p¤W ,
¦~«×¸ê®Æ°õ¦æ¤W¨S¦³¿ù , ¥Ñ¸ê®Æ³Ìªñ¦~«×¦Ü¨t²Î¦~«×¨Ó°õ¦æ ,
¦Ó©u³ø¸ê®Æ«h¥Ñ 4 -> 1 , ¦ý«o¥X²{
1) ¥¦¤@¦¸¸õ¨â©u , ¥u¦³ 4 , 2 ¸ê®Æ , ¦Ó¤£¬O 4 , 3 , 2 , 1 ªº¶¶§Ç
2) ºô¶WebÂàÀÉ®É , ¥un 4 , 3 , 2 , 1 ¤U , ²Ä¤@Ó¦¨¥\ªº§Y¸õ¥X , ¥B¸ê®ÆÂà¼g ; Y³£¤£¦¨¥\®É¤~µ²§ô , ¦ý°õ¦æµ²ªG³£¬O 4 , 2 , µM«á¤S¬O 4 , 2 ... , §Y¨Ï¦³ Web ÂàÀɦ¨¥\¦ý¤]¨S¦³¸õ¥X ,
³o¬O¨ºÅÞ¿è¤W¿ù»~ ? ÁÙ¬O»yªk¤W¿ù»~ ?? |
|