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

½Ð¦U¦ì¤j¤jÀ°¦£¬Ý¤@¤U!!¦]¬°§Ú¤£ª¾¹D­n«ç»ò¸ÑÄÀ¼ÐÃD

¦^´_ 2# kenson
A¬¡­¶Ã¯ªº¤u§@ªí1¼Ò²Õ
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column = 1 Then
  3. Set a = Workbooks("B¬¡­¶Ã¯").Sheets(1).Columns("A").Find(Target, lookat:=xlWhole)
  4. If Not a Is Nothing And Target <> "" Then Target.Offset(, 1) = a.Offset(, 1).Value: a.EntireRow.Delete
  5. End If
  6. End Sub
½Æ»s¥N½X
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-7-10 15:57 ½s¿è

¦^´_ 4# kenson
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Column = 1 Then   '¦pªGÅܰÊÀx¦s®æÄæ¦ì¦b²Ä¤@Äæ´N°õ¦æ
  3. Set a = Workbooks("B¬¡­¶Ã¯").Sheets(1).Columns("A").Find(Target, lookat:=xlWhole)  '¦bB¬¡­¶Ã¯ªº²Ä¤@­Ó¤u§@ªíAÄæ·j´MÅܰʪº­È
  4. If Not a Is Nothing And Target <> "" Then Target.Offset(, 13) = a.Offset(, 6).Value: a.Offset(, 6) = ""  '¦pªG§ä¨ì²Å¦Xªº¸ê®Æ´N§âB¬¡­¶Ã¯ªºGÄæ¼g¤JA¬¡­¶Ã¯ªºNÄæ:¨Ã±NB¬¡­¶Ã¯ªºGÄæ²MªÅ
  5. End If
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# kenson


    ¤w±Nµ{¦¡½Xµù¸Ñ¡A¥h¤F¸Ñ¦U­Ó«ü¥O¥Îªk¦A¸Õ¸Õ¬Ý
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD