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

[µo°Ý] §ïµ½°j°é³t«×¤Î¤u§@­¶¸ê®Æ¶×Á`

[µo°Ý] §ïµ½°j°é³t«×¤Î¤u§@­¶¸ê®Æ¶×Á`

¦U¦ì°ª¤â, §Ú·Q§Q¥ÎVBA±N¤£¦P¤u§@ªíªº®Æ¸¹«~¦Wµ¥¸ê®Æ¶×Á`¨ì¤@­Ó¤u§@­¶¤¤, ¦ý¬O¥Ø«eÀ³¸Ó­n38­Ó®Æ¥ó­nÅã¥Ü¥X¨Ó, ¦ý¬O«ç»ò§Ë«o¥u¥X²{¤F22­Ó®Æ¥ó, ½Ð¨ó§UÀ°¦£§ä¥X­ì¦]
¥t¥~, ¤U¤è¶ñ¤JPO/FCSTªº°j°é,«D±`¯Ó®É, ½Ð°Ý¬O§_¦³¤°»ò¤è¦¡¥H§ïµ½°j°éªº³t«×? °}¦C¬O§_¥i¥H§ïµ½? ÁÂÁÂ
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
            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

¦^´_ 1# ivyhuang

¨S¦³ÀÉ®×~~~~~~~~~~~~~~~~

TOP

¥»©«³Ì«á¥Ñ mistery ©ó 2019-6-10 18:52 ½s¿è

¶]¤F¤T¦¸°j°é¡A¸ê®Æ¶q¤@¤j¡A·íµM·|¯Ó®É
«Øij¥ý"¿z¿ï",¦A±N¿z¿ï«áªºµ²ªG,Âà¨ì·JÁ`¥Îªº¤u§@ªí
³o¼ËÀ³¸Ó·|¤ñ¸û§Ö
(­Ó¤H¦b³B²z¤W¦Ê¸Uµ§ªº¸ê®Æ¦³µo¥ÍÃþ¦üªº±¡§Î)(¦pªG¥i¥H,ª½±µ¥ÎACCESS ¤@©ì¤@©Ô¤ñ¸û§Ö)

¦]¬°¨S¦³ÀÉ®×, ºI¨ú¤@¬q"¿z¿ï"µ{¦¡½X·í°Ñ¦Ò

    Rows("1:1").AutoFilter Field:=7, Criteria1:="XX«~¶µ", Operator:=xlFilterValues     
    Set FR = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
        For Each xR In FR
            If xR.Row > 1 Then      Cells(xR.Row, "I") =Application.WorksheetFunction.Subtotal(3, Range("A2:A" & Range("A1048576").End(xlUp).Row))
       Next

    Set FR = Nothing
    Rows("1:1").AutoFilter

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-6-11 03:13 ½s¿è

¦^´_ 1# ivyhuang

¨S¦³ÀÉ®×~~~~~~!
Àx¦s®æA.value=Àx¦s®æB.value
³oºØ·h¸ê®Æªº¤è¦¡¥»¨­´N·|¤ñ¸ûºC¡A
«Øij¥Î°}¦C°µ¹Bºâ¡A¥i¥[§Ö³t«×~~·Ç¤j¤@ª½±Ð¾Éªº¤è¦¡~

¤j²¤¦p¤U¡G

Dim Arr,Brr
Arr=½d³òA
Brr=½d³òB
for.....
    Brr(i,j)=Arr(i+2,j*2)
next
½d³òB=Brr
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD