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

[µo°Ý] range(cells(),cells())²£¥Í1004¿ù»~

[µo°Ý] range(cells(),cells())²£¥Í1004¿ù»~

§Ú¦³¤T­ÓexcelÀÉ¡A¦b²Ä¤@­Ó¤¤¼gµ{¦¡¦p¤U¡A¥i¥H°õ¦æ
A¥´¶}B§ä°Ï°ì³Ì¤j­È«á¡A¶K¦^A¤¤¡AÃö³¬«á¡A¦A¥´¶}C°Ï°ì³Ì¤j­È«á¡A¶K¦^A¤¤¡AÃö³¬«á¡Aµ²³tµ{¦¡
²Ä¤G­Ó«o»¡1004¿ù»~

¤@­Ó¥Îrange¨Ó³]©w°Ï°ì¨S¦³°ÝÃD¡A¥t¤@­Ó§ï¦¨range(cells(),cells())ªº¤è¦¡«o²£¥Í¿ù»~¡I½Ð°ª¤â«üÂI°g¬z

Sub ¥¿½T¥i°õ¦æ()
        Workbooks(1).Worksheets("test").Activate
        For i = 3 To 5
            sname = Workbooks(1).Worksheets("test").Cells(i, 1)
            Workbooks.Open Filename:=ThisWorkbook.Path & "\" & sname & ".xlsx"

               If Application.Sum(Workbooks(2).Worksheets("cr").Range("b2:b5")) > 0 Then
               Workbooks(1).Worksheets("test").Cells(i, 5) = Application.Sum(Workbooks(2).Worksheets("cr").Range("b2:b5"))
             End If

            Workbooks(2).Close
        Next
   
End Sub




Sub ¿ù»~¤£¥i°õ¦æ()
        Workbooks(1).Worksheets("test").Activate
        For i = 3 To 5
            sname = Workbooks(1).Worksheets("test").Cells(i, 1)
            Workbooks.Open Filename:=ThisWorkbook.Path & "\" & sname & ".xlsx"
                If Application.Sum(Workbooks(2).Worksheets("cr").Range(Cells(11, 2), Cells(11, 5))) > 0 Then
                Workbooks(1).Worksheets("test").Cells(i, 5) = Application.Sum(Workbooks(2).Worksheets("cr").Range(Cells(11, 2), Cells(11, 5)))
                End If
            Workbooks(2).Close
        Next
   
End Sub

¦^´_ 2# GBKEE

·PÁ¶Wª©¡I§Úµ¥¤@¤U¨Ó¸Õ¸Õ¬Ý®@¡I

¦A¦¸·PÁÂ

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD