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

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

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

¦U¦ì½×¾Â¤j¤j!!§Ú·Q­n½Ð±Ð¤@¤U¥H¤U°ÝÃD...
¤µ¤Ñ¦³¨â­Ó¬¡­¶Ã¯¡AA¬¡­¶Ã¯¦³¨ç¼Æ³sµ²B¬¡­¶³¡ªº¸ê®Æ¡A·í§Ú¦bA¬¡­¶Ã¯¦sÀx®æ¿é¤J¼Æ¦r·|³sµ²¨ìB¬¡­¶Ã¯¶]¥X¸ê®Æ¡C

­«ÂI¨Ó¤F!§Ú¬Ý¨ì¦^¶Ç«á¸ê®Æ¡A§Ú´N¤£¦A»Ý­n³oµ§¦^¶Çªº¸ê®Æ¤F!!
­ì¥»§@ªk¬O»Ý­n¦A¶}±ÒB¬¡­¶Ã¯µM«á·j´M¨ºµ§¸ê®Æ¦A§R°£¡C
½Ð°Ý§Ú¦³¿ìªk¦bA¬¡­¶Ã¯³]©w¤@­Ó¥¨¶°©Î¬O¨ä¥L¤èªk¯àÅý§Úª½±µ§R°£B¬¡­¶Ã¯ªº¸ê®Æ¹À!?

¨Ò¦p ¹Ï¤@ §Ú¦bA2¿é¤JT00001 B2·|¦^¶Ç ¹Ï¤G ¸Ì­±ªºD2¸ê®Æ

µM«á§Ú»Ý­n¦AA¬¡­¶Ã¯¥i¥HÅýExcel«ö·ÓA2©Ò¿é¤Jªº½s¸¹¡A¥h§R°£B¬¡­¶Ã¯¹ïÀ³½s¸¹ªº¸ê®Æ¡C

½Ð°Ý¦³¿ìªk³o¼Ë°µ¹À!?

ªí¤@.png ªí¤G.png

½Ð°Ý³£¨S¦³¤H¦^µª....¬O¦]¬°§Ú·Q­nªº¤èªk¨S¿ìªk¹ê²{¹À!?ÁÙ¬O»¡....¤j®a¤£Ä@·N¸ò§Ú»¡

TOP

¦^´_ 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

¥»©«³Ì«á¥Ñ kenson ©ó 2012-7-9 17:31 ½s¿è

¶Wª©¤j¤j!!
«D±`·PÁ±zÀ°§U!
¦ý¬O...¸ò§Ú¹w´Áªº¤£¤@¼Ë...
§ÚªºA¬¡­¶Ã¯¦b¿é¤J¶i(A1)½s¸¹«á¦^¶Ç(N1)¸ê®Æ¡AB¬¡­¶Ã¯»Ý­n¯d¤U½s¸¹¸ò¨ä¥L¦P¦C¸ê®Æ¥u»Ý­n§R°£¤@­Ó¦sÀx®æ(G)ªº¸ê®Æ¡C
±zªº¤è¦¡¦n¹³¬O§â¾ã­Ó¯P³£§R°£¤F....©Ò¥H³o¤è­±¯à¦A§ï¶Ü@@?
¤£¦n·N«ä³Â·Ð±z¤F....

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

¶Wª©¤j¤j«D±`·PÁ±zªº¸Ô²Ó¸Ñµª!!§Ú¸Ñ¨M¤F!!
§Ú¦A½Ð±Ð¤@­Ó°ÝÃD...´N¬O¦pªG­n§âA¬¡­¶Ã¯A1¿é¤J½s¸¹ªº®æ¤l§ï¦¨C1
VB¨ºÃä­n«ç»ò§ï?
Set a = Workbooks("B¬¡­¶Ã¯").Sheets(1).Columns("A").Find(Target, lookat:=xlWhole)
§Ú§â¤W­±ªºA§ï¦¨C ¥L¤£·|§R°£¤F.....
ÁÙ¬O
If Not a Is Nothing And Target <> "" Then Target.Offset(, 13) = a.Offset(, 6).Value: a.Offset(, 6) = ""
³oÃä­n§ï?¬O§â13§ï¦¨11¶Ü?§Ú¹Á¸Õ¹L¤]¨S¿ìªk!!
¥t¥~¦pªGB¬¡­¶Ã¯ªº¤u§@ªí§ï¦W¤l ¡A¬O­n§ï­þ¸Ì!?

TOP

¦^´_ 6# kenson


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

TOP

«D±`·PÁ¶Wª©¤j¤jªº¸Ô²Ó¸Ñ»¡!!
§Ú¤w¸g¥i¥H¨Ï¥Î¤F~«D±`ºë·Ç~!
¦A¦¸·PÁ±z^^

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD