[µo°Ý] ¦p¦ó¦bÀx¦s®æ¤º¤UCtrl+Shift+Enter«ü¥O(oobird ¤w¸Ñµª)

av8d

1. Sub aa()
   
2.     Range("B1").Select
   
3.     Range("B1") = "{=IF(SUM(--ISNUMBER(FIND(A$1,¦a§}!C$1:C$100)))<ROW(),"""",INDEX(¦a§}!C:C,SMALL(IF(ISNUMBER(FIND(A$1,¦a§}!$C$1:$C$100)),ROW($A$1:$B$100)),ROW())))}"
   
4. 
   
5. End Sub

½Æ»s¥N½X

§Ú·Q©R¥OB1=IF(SUM(--ISNUMBER(FIND(A$1,¦a§}!C$1:C$100)))<ROW(),"""",INDEX(¦a§}!C:C,SMALL(IF(ISNUMBER(FIND(A$1,¦a§}!$C$1:$C$100)),ROW($A$1:$B$100)),ROW())))
¦ý¬O¥²¶·¦b¥ª¥k¦U+{}
¦p¤U
Range("B1") = "{=IF(SUM(--ISNUMBER(FIND(A$1,¦a§}!C$1:C$100)))<ROW(),"""",INDEX(¦a§}!C:C,SMALL(IF(ISNUMBER(FIND(A$1,¦a§}!$C$1:$C$100)),ROW($A$1:$B$100)),ROW())))}"
¦ý¬O°õ¦æ«á{}«o¤£·|¥X¨Ó

av8d

¦^´_ 2# GBKEE


    ª©¥D±z¦n¡A±z¨¯­W¤F¡A¦ý¬O¥¦¥X²{¤@­Ó¿ù»~°T®§¡A§ÚÂI¤F¤@¤U»¡©ú
¥²¶·«ü©w·j¯Á¦r¦ê

·í¦bª«¥óÂsÄý¾¹¤¤·j¯Á®É¡A¥²¶·¿é¤J¦r¦ê¡C¸Ó¿ù»~¦³¥H¤U­ì¦]©M¸Ñ¨M¤è®×¡G
¦b Object Browser ¤¤¶}©l¤F¤@­Ó¯Á¡A¦ý¨S¦³«ü©w­n¯Áªº¤å¦r¡C
¿é¤J¯Á¦r¦ê¡C
Ãö©ó¨ä¥¦¸ê°T¡A½Ð¿ï¤¤¦³°ÝÃDªº±ø¥Ø¨Ã«ö F1 Áä (¦b Windows¤¤) ©Î HELP (¹ï©ó Macintosh)¡C

av8d

¦^´_ 4# GBKEE


    ª©¥D±z¦n~¦]¬°¬O¼g¦bWorkbook¸Ì­±~

Private Sub Workbook_Open()

End Su

av8d

¦^´_ 6# GBKEE


    ¤j¤j¨¯­W¤F~

¦bSheet¸Ì­±¨Ï¥Îªº¸Ü~¬O§_­n¼gªº¾É¦V¥¨¶°¡C

¦pªG¥¨¶°¬O
Sub aa

End Sub

¦bSheet¸Ì­±¨Ï¥Îªº¸Ü¡A¬O¤£¬O¦³­Ó show aa¡C

av8d

¦^´_ 8# GBKEE


Private Sub Workbook_Open()

End Sub

©Ò¥H¦bWorkbook°õ¦æSendKeys¦]¬°¥¦¬OPrivate(¨p¦³)©Ò¥HµLªk°õ¦æ¥²¶·©I³êª«¥ó¼Ò²Õ©Î¤@¯ë¼Ò²Õ¤~¯à°õ¦æ¡AÁÙ¬O»¡¦³¥t¥~ªº°õ¦æ¤èªk?
¦pªG¬O¦bª«¥ó¼Ò²Õ¸Ó¦p¦ó°õ¦æ?

av8d

¦^´_ 10# GBKEE

   §Ú¥Ø«e¹q¸£Åܦ^Office XP
    §Ú¦bª«¥ó¼Ò²Õ¤¤°õ¦æ¤F
Sub aa()
    Range("B1").Select
    Range("B1") = "=IF(SUM(--ISNUMBER(FIND(A$1,¦a§}!C$1:C$100)))<ROW(),"""",INDEX(¦a§}!C:C,SMALL(IF(ISNUMBER(FIND(A$1,¦a§}!$C$1:$C$100)),ROW($A$1:$B$100)),ROW())))"
    Application.SendKeys "{F2}"
    Application.SendKeys "^+~"
End Sub

°õ¦æ«á~¥L¨ÌµM¥X²{~¥²¶·«ü©w·j´M¦r¦ê~¬O¦]¬°§Ú¨Ï¥ÎOffice XPªº°ÝÃD¶Ü?

av8d

¦^´_ 12# oobird


    ¶W¯Å·PÁ¨â¦ì¤j¤j~

·PÁ±zªº¸Ñµª!