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

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

¦^´_ 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¶Ü?

TOP

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())))"

TOP

¦^´_ 12# oobird


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

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

TOP

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


BOOK.rar (7.83 KB)

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD