返回列表 上一主題 發帖

是否有人可協助開發 ?

回復 20# lpk187


   D_Receive = Application.Offset(A1, D_Row, 2)

  我改成如上 , 但仍出現錯誤 ??

TOP

D_Receive = .Cells(D_Row, 2) 用這個取代 offset 那列語法 , 其它的我試試 .....

TOP

回復 22# oliwa


    對不起,offset不是工作表函數,Match才是,我寫錯了:P

TOP

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 轉檔成功但也沒有跳出 ,
這是那邏輯上錯誤 ? 還是語法上錯誤 ??

TOP

我找到解法 !!

TOP

我的需求都解決了 , 感謝 .......

TOP

看到這一帖完整的過程,發現,真得要實做,但是要有人願意指正,感動
希望lpk187大大也可以指點一下小弟,因為小弟也有樓上大大的困擾
期待

TOP

        靜思自在 : 有智慧才能分辨善惡邪正;有謙虛才能建立美滿人生。
返回列表 上一主題