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

[µo°Ý] ¦p¦ó§ïµ½°j°é³t«×

[µo°Ý] ¦p¦ó§ïµ½°j°é³t«×

§Q¥Î°j°é³t«×«ÜºC¡A¦p¦ó¥i¥H¥[§Ö³t«×?

i = 12       '¾î¦V¶ñ¤J®Æ¸¹
For C = 0 To 200
    If i > Worksheets.Count Then
        Exit For
    Else
        A = Application.CountIf(Worksheets(i).Range("i5:z10"), "PO")
        b = Application.CountIf(Worksheets(i).Range("i1:z1"), "xxxx")
        EA = A - b
            For G = 0 To EA
            Worksheets("FCST").Range("b1").Offset(, C + G).Value = Worksheets(i).Name
            Worksheets("FCST").Range("b1").Offset(1, C + G).Value = Worksheets(i).Range("d1").Offset(0, G * 6) '®Æ¸¹
            Worksheets("FCST").Range("b1").Offset(2, C + G).Value = Worksheets(i).Range("c1").Offset(0, G * 6) '¤Ø¤o
            Worksheets("FCST").Range("b1").Offset(3, C + G).Value = Worksheets(i).Range("c2").Offset(0, G * 6) '¼t°Ó
            myRow = Worksheets(i).Range("a:a").Find(myToday).Row 'ª½¦V¶ñ¤JPO/FCST¼Æ¶q, myRow+myDay
            k = 0
            For j = 0 To myDay
                If k > myDay Then
                    Exit For
                Else
                    If Worksheets(i).Range("e" & myRow).Offset(k + 1, G * 6).Value <> 0 Then
                        Worksheets("FCST").Range("a4").Offset(j + 2, C + 1 + G).Value = "*" & Worksheets(i).Range("e" & myRow).Offset(k + 1, G * 6)
                    Else
                        Worksheets("FCST").Range("a4").Offset(j + 2, C + 1 + G).Value = Worksheets(i).Range("d" & myRow).Offset(k + 1, G * 6)
                    End If
                    k = k + 1
                End If
            Next j
            Next
    End If
    C = C + EA
i = i + 1
Next C
End If

¤W¶ÇÀÉ®×, ¸Ô²Ó»¡©ú­n°µ¤°»ò???

TOP

¦^´_ 1# ivyhuang

¨Ï¥Î°}¦C¤èªk``````````````

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD