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

2007ªºVBA µLªk¦b2003 ¨Ï¥Î?

2007ªºVBA µLªk¦b2003 ¨Ï¥Î?

½Ð°Ý¦U¦ì~~
2007ªºVBA¦p¤U

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sht As Worksheet
Dim Rng As Range, RngA, CR As Boolean
Set Sht = Sheets("¦b³~ªÑ§Q")
Set RngA = Cells(Target.Row, 1)
If Not Intersect(Target, [A:I]) Is Nothing And _
                            RngA <> "" And RngA(1, 6) <> "" Then
    For Each Rng In Range(Cells(Target.Row, 1), Cells(Rows.Count, 1).End(3))
        CR = IsNumeric(Evaluate("match(" & Rng.Address & "&" & Rng(, 2).Address & _
            ",¦b³~ªÑ§Q!a:a&¦b³~ªÑ§Q!b:b,0)"))
        If Not CR Then _
            Rng.Resize(, 9).Copy Sht.Range("A" & Rows.Count).End(3).Offset(1)
    Next
End If
Application.CutCopyMode = False
End Sub



¦b2003ª©¥»µLªk¥¿±`¹B§@~~½Ð°Ý­n¦p¦ó­×¥¿@@
·PÁ¦U¦ì~~

¨S°ÝÃD§r , ¨S¥X¿ù

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD