[µ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¨Ó

GBKEE

¦^´_ 11# av8d
»POffice XPµLÃö


BOOK.rar (7.83 KB)

¤U¸ü¦¸¼Æ: 10

2012-2-21 09:40

av8d

¦^´_ 12# oobird


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

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

oobird

Range("B1").FormulaArray = _
       "=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())))"

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¶Ü?

GBKEE

¦^´_ 9# av8d
¨p¥ÎPrivate ªºµ{¦¡ «D¦Û¤vªº¼Ò²Õµ{¦¡¸Ì ¤¤¬Ò»Ý¥Î   Run "ThisWorkbook.Workbook_Open"
¥»¨­ªº¼Ò²Õ ¤¤ª½±µ©I¥s ³o Private ªºµ{¦¡§Y¥i  Workbook_Open

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¦ó°õ¦æ?

GBKEE

¦^´_ 7# av8d
µ{¦¡¦p¬O¦b  ª«¥ó¼Ò²Õ¤¤ ¬°¤½¥Îµ{¦¡   ( ¦³¨S¦³¥[¤W "Public"³£¬O¤½¥Îµ{¦¡ )  : »Ý«ü©úª«¥ó¼Ò²Õªº¦WºÙ                                          
¦p Sub EX()
       Sheet1.Test
       Sheets("Sheet1").Test
       ThisWorkbook.Test
End Sub
µ{¦¡¦p¬O¦b  ¤@¯ë¼Ò²Õ(Module)¤¤  ¬°¤½¥Îµ{¦¡   ( ¦³¨S¦³¥[¤W "Public" )  :  ª½±µ©I¥s§Y¥i
SUB Ex()
  Test
End Sub
µ{¦¡¦p ¬°¨p¥Îµ{¦¡   ( ¦³¥[¤W "Privatec" )  : ¬Ò»Ý¬°
Sub Ex()
        Run   " Sheet1.Test"
        Run   "Sheets("Sheet1").Test "
        Run   "ThisWorkbook.Test "
       Run   "Module1..Test "
End Sub

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

GBKEE

¦^´_ 5# av8d
¦]¬°¬O¼g¦bWorkbook¸Ì­±
¦³¦ó°ÝÃD§A¨S»¡°Ú!!