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

¸óªí¡A­«·s»s§@·sªº¤u§@ªí

¸óªí¡A­«·s»s§@·sªº¤u§@ªí

¥\¯à´N¬O§Ú¦bsheet2 ªºA2 ¿é¤J¡AµM«á¥¦·|¨ìshee1ªºaÄ椤§ä sheet2 a2 ¿é¤Jªº­È¡A¨Ã´_»s¨ä¸ê®Æ¦bsheet2 BÄæ­«·s½s¸¹¤@ª½¤U¥h

¥i¥H¤£­n¥Îµ{¦¡´N¤£­n¥Î¡A¦]¬°¤j®a³£¬O°ª¤â¡A§Ú³£¬Ý¤£À´

·j´M.rar (2.86 KB)

·PÁ ­ã´£³¡ªL ¤j¤jªº«ü¾É¡A¦b office 2003 °õ¦æ¤]«Ü¶¶§Q¡A¥»¨Ó¬O¤£¤Ó·Q¾Çµ{¦¡¦p¦ó¼gªº¡A¥uı±o¤@¨Ç¤½¦¡·|¥Î´N¦n¡A¬Ý¼Ë¤l­nµy·L¾Ç¤@¤Uµ{¦¡¤F¡A©¹«á¤£À´ªº¦a¤è¦b½Ð¦U¦ì¤j®v«ü¾É¡AÁÂÁ¤F

TOP

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xF As Range, xE As Range
With Target
¡@¡@¡@If .Address <> "$A$2" Then Exit Sub
¡@¡@¡@If .Value = "" Then Exit Sub
¡@¡@¡@Set xF = [Sheet1!A:A].Find(.Value, Lookat:=xlWhole)
¡@¡@¡@If xF Is Nothing Then MsgBox "µL¦¹¸ê®Æ": GoTo 999¡@'§ä¤£¨ì¡A¸õ¦Ü¡e¼Ð°O999¡f¡A¨Ãµ²§ô°õ¦æ¡@
¡@¡@¡@Set xE = Cells(Rows.Count, "B").End(xlUp)(2)¡@'¢ÐÄæ³Ì«á¤@µ§¸ê®Æªº¤U¤@ªÅ¥Õ®æ¡@
¡@¡@¡@Application.EnableEvents = False
¡@¡@¡@xF.Resize(1, 7).Copy xE¡@'½Æ»s¤º®e¡]§t®æ¦¡¡^¡@
¡@¡@¡@xE = xE.Row - 1¡@'¡e§Ç¸¹¡f¥H¡e¦C¸¹¡f´î¢°¡@
End With
999:
Target.Select
Application.EnableEvents = True
End Sub


¥H¤U¨â¦æ·N«ä¤@¼Ë¡G
Set xE = Cells(Rows.Count, "B").End(xlUp)(2)
Set xE = Cells(Rows.Count, "B").End(xlUp).Cells(2, 1)

TOP

ÁÂÁ lpk187 ¤j¤j ¨ä¹ê³o¼Ë´N«Ü¦n¥Î¤F¡A«ÜÆg³á¡A¤£¥Î¤Ó¶Ë¸£¤F¡A·PÁÂ

TOP

¦^´_ 10# regedit77


    «ö²M°£¶s«á¬O§â©Ò¦³ªº¤º®e¸ê®Æ²M°£¡A¤£¬O¥u¦³²M°£ÃC¦â¡A³o¼Ëªº°Ê§@¬O¥¿½Tªº¡I¡I¨ä¹ê³o°Ê§@¤]¬O·í§A²M°£¸ê®Æ«á¡A¤]«ì´_­ì¨Ó¤å¦rªº¦â±m¡A­Y¤£·Q¦b¤@°_¡A§A¤]¥i¥H§â¥¦¤À¶}
¥t¥~¡A·|¥X²{°ÝÃDªº¦a¤èÀ³¸Ó¬O2003¤£¤ä´©¡A¨ä¹ê¥i¥H§â¨º¤@¦C§R°£±¼ªº¡I
·j´M.rar (13.59 KB)

TOP

·PÁ lpk187 ¤j¤j ªºÀ°¦£¡A²{¦b¦³¨â­Ó°ÝÃD ²Ä¤@­Ó´N¬O¦boffice2003 ¤U°õ¦æµo¥Í¤F¦p¹Ïªº¿ù»~¡AµM«á¦boffice2013 ¤U°õ¦æ¥¿±`¨S°ÝÃD¦ý«ö²M°£¶s«á¬O§â©Ò¦³ªº¤º®e¸ê®Æ²M°£¡A¤£¬O¥u¦³²M°£ÃC¦â¡A³o¼Ëªº°Ê§@¬O¥¿½Tªº¶Ü¡A¦pªGsheet1 ªº¦r¬O¦³±×Åé©Î²ÊÅé¥[ÃC¦â¥i¥H´_»s¹L¥h¶Ü¡A¦pªG¤£¦æ¤]¨SÃö«Y¡A³o¼Ë´N«Ü´Î¤F¡AÁÂÁÂlpk187¤j¤j 1.JPG

TOP

¦^´_ 8# regedit77

·j´M.rar (12.5 KB)
Àɮפ¤¦³¥[¤F¤@­Ó¥¨¶°¡A"²M°£"¡A¬OÀx¦s®æ®æ¦¡ªº¤å¦r¦â±m¡A§ï¦^­ì¨Óªº¦Û°Ê

TOP

¥»©«³Ì«á¥Ñ regedit77 ©ó 2015-11-22 07:06 ½s¿è

·j´M.rar (12.47 KB) ¤§«e³o lpk187 ©Ò³]­pªº ·j´M.V2.rar «Ü¦n¥Î¡A¦ý²{¦b»Ý­n·s¼W¤@­Ó¤p¥\¯àªº°ÝÃD¬O¡A¦pªG©Ò©l¸ê®Æsheet1 ªº¬Y¦C¸ê®Æ¦r¦³ÃC¦â°Ï§Oªº¸Ü¦Ò¨©¨ìsheet2 ¤£·|¤@¼Ë¦³ÃC¦â¡A¥i¥HÅý¥L´_»s¹L¥h®É¡A¦rªºÃC¦â¤@°_¹L¥h¶Ü?

¦]¬°¤@¶}©l®É¡A¬O·Q»¡¤£¥Îµ{¦¡ªº¤èªk¹F¦¨¡A©Ò¥H´N©µÄò¥¦¤U¨Ó¡A§Æ±æª©¥D­ì½Ì

TOP

·PÁ lpk187 ¤j¤j ªº«ü¾É¤Î¶K¤ß ¡AÁÙ§â A2 Äæ¦ì³]©w¦n¡A¨C¦¸³£·|¦Û¦æ¤Ï¦^

¦A¦¸·PÁ lpk187

TOP

¦^´_ 5# regedit77


    ·j´M.V2.rar (12.51 KB)

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD