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

[µo°Ý] ¦p¦ó§PÂ_¨Ã¦Û°Ê¤À°t

[µo°Ý] ¦p¦ó§PÂ_¨Ã¦Û°Ê¤À°t

½Ð±Ð¦U¦ì¥ý¶i

¦³4­ÓÀx¦ì  A¡BB¡BC¡BD   ¤À°tªºÀu¥ý¶¶§Ç¤]¬OA¡BB¡BC¡BD¡A

°²¦p A(10) ¡BB(5)¡BC(6)¡BD(0)  (¬A¸¹¤º¬O®w¦s¶q)

²{¦bBÀx¦ìªº¼Æ¶q­n´êº¡16¡A·Ó¤À°t¶¶§Ç¬OA--->C--->D

¤â°Êªº¤è¦¡¬O§âAÀx¦ì¼Æ¶q10²¾¨ìBÀx¦ì¨Ã§PÂ_¦³¨S¦³º¡¨¬16¡A¨S¦³ªº¸Ü´N¤U¤@­ÓÀx¦ìC¡Aº¡¨¬ªº¸Ü´Nµ²§ô

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 2# hcm19522


    ÁÂÁÂ¥ý¶iªº¦^ÂСA¤S¾Ç¨ì¤F«Ü¦h

¸g¹L¹Á¸Õ¤§«á¦]¬°¸ê®Æ¶q¦h³B²z¤U¨Ó¤£¯à¹F¨ì¹w´Áªº®ÄªG¡A¥Ø«e¹Á¸Õ¥ÎVBA¼g

ÁÙ¥d¦b  FOR  NEXT ªº°j°é¡A¤ñ¹ï¨ì¸ê®Æ«á³B²z«á «á­±ÁÙ¬OÄ~ÄòNEXT  §ä¤£¨ì¤èªk¸õ¥X°j°é.....

TOP

¦^´_ 3# ¤pµØ

¬õ¦â³o¬q¤@ª½¶]°j°é  ¸õ¤£¥X¨Ó  ¸ê®Æ¶q¦³¤W¤dµ§

    Set x = Workbooks("CL Diff.xlsm").Sheets("Upload-1")
Set y = Workbooks("CL Diff.xlsm").Sheets("MB58")
Set Z = Workbooks("CL Diff.xlsm").Sheets("Diff")

i = Z.Cells(1, 1).End(xlDown).Row
b = y.Cells(1, 1).End(xlDown).Row
c = x.Range("L1")
   
    For k = 2 To i
    f = Z.Cells(k, 8)
        If Z.Cells(k, 18) <> 0 Then
            If Z.Cells(k, 26) = "" Then
                    For j = 2 To b
                    q = y.Cells(j, 7) - Z.Cells(k, 18)
                    If y.Cells(j, 8) = f And y.Cells(j, 2) = Z.Cells(k, 2) And q > 0 Then
                    x.Cells(c + 2, 1) = Z.Cells(k, 2)
                    x.Cells(c + 2, 2) = Z.Cells(k, 3)
                    x.Cells(c + 2, 3) = Z.Cells(k, 4)
                    x.Cells(c + 2, 4) = Z.Cells(k, 5)
                    x.Cells(c + 2, 5) = Z.Cells(k, 6)
                    x.Cells(c + 2, 6) = Z.Cells(k, 7)
                    x.Cells(c + 2, 7) = Z.Cells(k, 8)
                    x.Cells(c + 2, 8) = Z.Cells(k, 9)
                    x.Cells(c + 2, 9) = Z.Cells(k, 18)
                    Z.Cells(k, 26) = "OK"
                    
                    ElseIf q < 0 Then
   
                    x.Cells(c + 2, 1) = Z.Cells(k, 2)
                    x.Cells(c + 2, 2) = Z.Cells(k, 3)
                    x.Cells(c + 2, 3) = Z.Cells(k, 4)
                    x.Cells(c + 2, 4) = Z.Cells(k, 5)
                    x.Cells(c + 2, 5) = Z.Cells(k, 6)
                    x.Cells(c + 2, 6) = Z.Cells(k, 7)
                    x.Cells(c + 2, 7) = Z.Cells(k, 8)
                    x.Cells(c + 2, 8) = Z.Cells(k, 9)
                    x.Cells(c + 2, 9) = y.Cells(j, 7)
                    Z.Cells(k, 26) = "¼Æ¶q®t" & q
                    
                    End If
                    
                    Next j

               
              End If
              
        End If
        
         Z.Cells(k, 26) = "µL¶q®t"
    Next k

MsgBox ("¸ê®Æ¤w¾ã²z§¹²¦")
End Sub

TOP

¦^´_ 4# ¤pµØ


   ¦Û¤vGoogle§ä¤F¤@¤Uµ²§ô°j°éªº¼gªk ­ì¨Ó¼W¥[ EXIT FOR ´N¥i¥H¤F

For j = 2 To b

if z.cells(k,26)="" then
exit for
end if

                    q = y.Cells(j, 7) - Z.Cells(k, 18)
                    If y.Cells(j, 8) = f And y.Cells(j, 2) = Z.Cells(k, 2) And q > 0 Then
                    x.Cells(c + 2, 1) = Z.Cells(k, 2)
                    x.Cells(c + 2, 2) = Z.Cells(k, 3)
                    x.Cells(c + 2, 3) = Z.Cells(k, 4)
                    x.Cells(c + 2, 4) = Z.Cells(k, 5)
                    x.Cells(c + 2, 5) = Z.Cells(k, 6)
                    x.Cells(c + 2, 6) = Z.Cells(k, 7)
                    x.Cells(c + 2, 7) = Z.Cells(k, 8)
                    x.Cells(c + 2, 8) = Z.Cells(k, 9)
                    x.Cells(c + 2, 9) = Z.Cells(k, 18)
                    Z.Cells(k, 26) = "OK"

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD