ªð¦^¦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

­Ü®wºÞ²zªí.rar (8.98 KB)

TOP

¥»©«³Ì«á¥Ñ 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

¦^´_ 3# prince0413

¬Ý¬Ý³o¼Ë¦X¥Î¶Ü

Book4.rar (18.18 KB)

µL¤îºÉªº§V¤O¤W¶i

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

¦^´_ 6# prince0413
¬O½d³ò
    =IF(INDEX(¤u§@ªí2!$A$1:$AA$1,SMALL(IF(¤u§@ªí2!$A$1:$AA$1<>0,COLUMN($A$1:$T1),26),ROW(A1)))<>0,INDEX(¤u§@ªí2!$A$1:$T$1,SMALL(IF(¤u§@ªí2!$A$1:$T$1<>0,COLUMN($A$1:$T$1),26),ROW(A1))),"")

  d2=OFFSET(¤u§@ªí2!$A$1,ROW(A1)+1,MATCH(¤u§@ªí1!$A$1,¤u§@ªí2!$A$1:$T$1,)-1)&""

e2=OFFSET(¤u§@ªí2!$A$1,ROW(B1)+1,MATCH(¤u§@ªí1!$A$1,¤u§@ªí2!$A$1:$T$1,))&""

¦WºÙ aa=¤u§@ªí1!$O$2:$O$9

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

¦^´_ 8# prince0413


  O2¬O°}¦C¤½¦¡,ÂIO2 «öF2 ¦A«ö CTRL+SHIFT+ENTER

TOP

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

Xl0000095.rar (15.68 KB)

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD