ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¬O§_¦³¤H¥i¨ó§U¶}µo ?

¦^´_ 20# lpk187


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

  §Ú§ï¦¨¦p¤W , ¦ý¤´¥X²{¿ù»~ ??

TOP

D_Receive = .Cells(D_Row, 2) ¥Î³o­Ó¨ú¥N offset ¨º¦C»yªk , ¨ä¥¦ªº§Ú¸Õ¸Õ .....

TOP

¦^´_ 22# oliwa


    ¹ï¤£°_¡Aoffset¤£¬O¤u§@ªí¨ç¼Æ¡AMatch¤~¬O¡A§Ú¼g¿ù¤F:P

TOP

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¦X­p").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ÂàÀÉ®É , ¥u­n 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¿ù»~ ??

TOP

§Ú§ä¨ì¸Ñªk !!

TOP

§Úªº»Ý¨D³£¸Ñ¨M¤F , ·PÁ .......

TOP

¬Ý¨ì³o¤@©«§¹¾ãªº¹Lµ{¡Aµo²{¡A¯u±o­n¹ê°µ¡A¦ý¬O­n¦³¤HÄ@·N«ü¥¿¡A·P°Ê
§Æ±ælpk187¤j¤j¤]¥i¥H«üÂI¤@¤U¤p§Ì¡A¦]¬°¤p§Ì¤]¦³¼Ó¤W¤j¤jªº§xÂZ
´Á«Ý

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD