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

[µo°Ý] ­Ü®wºÞ²zªí

[µo°Ý] ­Ü®wºÞ²zªí

­Ü®wºÞ²zªí.zip (9.33 KB)



¦U¦ì¤j¤j§A­Ì¦n:
¦]¬°­Ü®wªF¦èµY²wº¡¥Ø¡A§Æ±æ¦n·j´M¡A©Ò¥H¤p§Ì·Q­n°µ¤@¥÷­Ü®wºÞ²zªºEXCEL¡AÅý¤j®a¥h­Ü®w§äªF¦è®É¯à°÷¸`¬Ù®É¶¡
½Ð°Ý¦p¦ó¦b§Ú¥Î·Æ¹«ÂIÀ»ÀxÂÃÂd®É   ¦b®ÇÃäÅã¥Ü°ÏSHOW¥X¥t¤@­Ó¸ê®Æªíªº¸ê®Æ©O?

³Â·Ð«ü¾É¤F  ·P®¦
¤£·|EXCALLªº²Â³J

¥»©«³Ì«á¥Ñ prince0413 ©ó 2016-8-15 15:07 ½s¿è

¦^´_ 2# ANGELA



ÁÂÁ¤j¤jªº±Ð¾É
¥i¬O¤j¤j¬O§ï¦¨¥Î¿ï³æªº¤è¦¡
¦ý¤p§Ì¬O·Q°µ¤@­Ó­Ü®w°t¸m¹Ï(¦p¤W¹Ï)    ©Ò¥HÁÙ¬O¥²¶·¥Î«ö¶sªº¤è¦¡    ÂI¤U¥h¸Ó¸mª«Âd¶]¥X¹ïÀ³ªº¸ê®Æ
½Ð°Ý¦³¬Æ»ò¤è¦¡¥i¥H°µ¨ì©O~"~??

«ô°U¤F
·PÁÂ
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 4# vinejason


ÁÂÁ¤j¤jªºÀ°¦£
¦ý¦³¿ìªk«ö¤U¥h«á¤£­n¸õ¨ì¤À­¶   
¯àª½±µ§ì¨ú¸Ó¸ê®ÆÅã¥Ü¦b®ÇÃä¹À?

³Â·Ð¤F~"~
¤£·|EXCALLªº²Â³J

TOP

¥»©«³Ì«á¥Ñ prince0413 ©ó 2016-8-22 16:08 ½s¿è

¦^´_ 2# ANGELA


¤j¤j±z¦n:
§Ú·Q°Ý°Ý¦pªG§Ú¸ê®Æªí2¤S¦³·s¼WÄæ¦ì¸ê®ÆÂd   ¨º»ò§Ú¨ç¼Æ§ì¨ú¸ê®ÆÀ³¸Ó­n§ï­þÃä©O(¦p¤W¹Ï)

=IF(INDEX(¤u§@ªí2!$A$1:$O$1,SMALL(IF(¤u§@ªí2!$A$1:$O$1<>0,COLUMN($A$1:$M$1),15),ROW(A1)))<>0,INDEX(¤u§@ªí2!$A$1:$O$1,SMALL(IF(¤u§@ªí2!$A$1:$O$1<>0,COLUMN($A$1:$M$1),15),ROW(A1))),"")

½Ð°Ý¬O¬õ¦âªº¸ê®Æ½d³ò¹À??
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 7# ANGELA

½Æ¥» ½Æ¥» ­Ü®wºÞ²zªí (1).zip (10.02 KB)
¤j¤j±z¦n:
§Ú§â¤½¦¡¶K¤W¥h   ¥i¬O«o§ì¤£¨ì¸ê®Æªí2ªº¸ê®Æ   Åã¥Ü¿ù»~©O(¦p¤W¹Ï)
¬O§Ú¦³¬Æ»ò¦a¤è¨S¦³§ï¨ì¶Ü??

³Â·Ð½Ð¤j¤j«üÂI
·P®¦  
ÁÂÁÂ
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 10# ­ã´£³¡ªL

«D±`·PÁ¤j¤j
³o¬O§Ú³Ìªì·Q­nªº§e²{¤è¦¡©O

¥i¬O§Ú¦b¸ê®Æªí2·s¼W¸ê®ÆÂd®É   §Ú¦b¸ê®Æªí1½Æ»s«ö¶s¹Ï§Î§ï¦WºÙ
µ²ªG¹ïÀ³¤£¨ì¸ê®Æªí2ªº¼Æ­È©O
½Ð°Ý¤j¤j§Ú¸Ó«ç»ò§ï©O?

³Â·Ð¤F
·PÁÂ
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 12# ­ã´£³¡ªL



¨ä¥L³¡¤À³£§ï¦n¤F
¥u³Ñ¤U«ö¶sª«¥óªº¦WºÙ¤£ª¾¹D±q­þ¸Ì§ï
¬O«ö¶sªºÄݩʸ̭±¨º­Óname¹À?(¦p¤W¹Ï)
¤£¦n·N«ä  ¤p§Ì¤ñ¸û²Â   §Æ±æ¤j¤j¤£­n¤¶·N
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 15# c_c_lai

¸g´ú¸Õ¥¿±`
¯uªº«D±`ªº·PÁ§A

ÁÂÁ±оÉ
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 14# ­ã´£³¡ªL

¸g´ú¸Õ¥¿±`
¯uªº«D±`ªº·PÁ§A

ÁÂÁ±оÉ
¤£·|EXCALLªº²Â³J

TOP

¦^´_ 14# ­ã´£³¡ªL

¤j¤j¤£¦n·N«ä   ¥i¥Hµy·L¦b¥´ÂZ¤@¤U°Ý­Ó¤p¤p°ÝÃD¶Ü?
°²³]§Ú­ì¥»Åã¥ÜªºÀx¦s®æ(F:G)­n§ï¨ì§OªºÀx¦s®æ(A:B)
¬O¤£¬O¥Nªí§Ú¥u­n§ïµ{¦¡½Xªº¬õ¦â³¡¥÷´N¦n¤F©O?(¦p¤U)


Sub test()
Dim xF As Range, Shp As Shape, T$
[F:G].Clear
Set Shp = ActiveSheet.Shapes(Application.Caller)
T = Replace(Shp.TextFrame.Characters.Text, Chr(10), "")
Set xF = [¤u§@ªí2!1:1].Find(T, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "§ä¤£¨ì¡e" & T & "¡fÂd¦ì¸ê®Æ¡I": Exit Sub
Range(xF, xF(65000, 1).End(xlUp)(1, 2)).Copy [F1]
End Sub
¤£·|EXCALLªº²Â³J

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD