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

[µo°Ý] ¦p¦ó§ä¥X«e¤T­Ó¥æ´Á

[µo°Ý] ¦p¦ó§ä¥X«e¤T­Ó¥æ´Á

¦U¦ì°ª¤â¡A½Ð±Ð¤@¤U~
¦]¬°¥ÎVlookup¥u¯à§ä¨ì²Ä¤@­Ó¤é´Á
·Q­n¦b°lÂܤu§@ªí§ä¥X¦UºØ²£«~ªº«e¤T­Ó¥æ´Áªº¤é´Á¸Ó¦p¦ó³]©w¤½¦¡?
°lÂÜ.jpg
Á`ªí.jpg
§ä¥X¥æ´Á.zip (6.93 KB)
Adam

¥»©«³Ì«á¥Ñ p212 ©ó 2014-9-19 08:46 ½s¿è

¦^´_ 1# adam2010
¡u°lÂÜ¡v¤u§@ªí¤§Àx¦s®æB2¿é¤J°}¦C¤½¦¡ (¥HCtrl+Shift+Enter¿é¤J)
=IFERROR(SMALL(IF(Á`ªí!$A$2:$A$10=$A2,Á`ªí!$C$2:$C$10,FALSE),COLUMN(A$1)),"")
¦V¥k¡B¦V¤U½Æ»s¤½¦¡
½Ð°Ñ¦Ò¡I

TOP

·PÁ p212¤jªº¨ó§U¡A¥i¥H¨Ï¥Î¡A¦ý¬O§Ú¦b´£°Ýªº®É­Ô¿òº|¤F¤@­Ó­«ÂI...´N¬O¦³¨Ç¥æ´Á·|¦³­«½Æªº³¡¤À
¤]´N¬O¦pªGA¦³2­Ó9/1¥æ´Á®É´N·|Åܦ¨³Ìªñ¥æ´Á1 & 2nd¥æ´Á³£·|¬O9/1¡A3rd¥æ´Á¤~·|¸õ¤U¤@­Ó9/10
¬O¤£¬O¦³¿ìªk¥i¥H§ä¥X¤£¦Pªº¥æ´Á¡AÁÂÁ¡I
Adam

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2014-9-20 11:05 ½s¿è

¦^´_ 3# adam2010
¨Ï¥ÎÀx¦s®æ¤½¦¡ªº¤è¦¡§Ú·Q¤£¥X¨Ó,
¦b¦¹´£¨Ñ¤@­Ó Excel VBA µ{¦¡§¹¦¨ªº¤è¦¡:
  1. Sub nn()
  2.   Dim iI%
  3.   Dim lRow&
  4.   Dim sItem$
  5.   Dim bNFind As Boolean
  6.   Dim dDate As Date
  7.   Dim vA(), vD
  8.   
  9.   ReDim vA(0 To 2, 0)
  10.   Set vD = CreateObject("Scripting.Dictionary")
  11.   
  12.   lRow = 2
  13.   With Sheets("Á`ªí")
  14.     Do While .Cells(lRow, 1) <> ""
  15.       With .Cells(lRow, 1)
  16.         sItem = .Text
  17.         dDate = .Offset(, 2)
  18.         If Not vD.exists(sItem) Then
  19.           ReDim Preserve vA(0 To 2, UBound(vA, 2) + 1)
  20.           vA(0, UBound(vA, 2)) = dDate
  21.           vD(sItem) = UBound(vA, 2)
  22.         Else
  23.           bNFind = True
  24.           For iI = 0 To 2
  25.             If dDate = vA(iI, vD(sItem)) Then bNFind = False
  26.           Next
  27.           If bNFind Then
  28.             If vA(1, vD(sItem)) = "" Then
  29.               vA(1, vD(sItem)) = dDate
  30.               vA(2, vD(sItem)) = #12/31/9999#
  31.             Else
  32.               If dDate > vA(1, vD(sItem)) Then
  33.                 If dDate < vA(2, vD(sItem)) Then vA(2, vD(sItem)) = dDate
  34.               Else
  35.                 If dDate < vA(0, vD(sItem)) Then
  36.                   vA(0, vD(sItem)) = dDate
  37.                   vA(1, vD(sItem)) = vA(0, vD(sItem))
  38.                   vA(2, vD(sItem)) = vA(1, vD(sItem))
  39.                 Else
  40.                   vA(1, vD(sItem)) = dDate
  41.                   vA(2, vD(sItem)) = vA(1, vD(sItem))
  42.                 End If
  43.               End If
  44.             End If
  45.           End If
  46.         End If
  47.       End With
  48.       lRow = lRow + 1
  49.     Loop
  50.   End With
  51.   
  52.   lRow = 2
  53.   With Sheets("°lÂÜ")
  54.     Do While .Cells(lRow, 1) <> ""
  55.       With .Cells(lRow, 1)
  56.         If vD.exists(.Text) Then
  57.           For iI = 0 To 2
  58.             .Offset(, iI + 1) = vA(iI, vD(.Text))
  59.           Next
  60.         End If
  61.       End With
  62.       lRow = lRow + 1
  63.     Loop
  64.   End With
  65. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# adam2010

=IFERROR(SMALL(IF(FREQUENCY(IF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10),IF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10,-999)),Á`ªí!$C$2:$C$10),COLUMN(A1)),"")
°}¦C¤½¦¡¿é¤J(CTRL+SHIFT+ENTER°ÑÁä»ô«ö¿é¤J¤½¦¡)
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

·PÁ luhpro & ML089 ¨â¦ì¥X¤â¬Û§U¡A³£¥i¥H¨Ï¥Î¡AÁÂÁ¡I
µ²ªG¦p¤U(Åý¤j®a°Ñ¦Ò)
§ä¥X¥æ´Á-done.zip (18.29 KB)
Adam

TOP

½Ð±Ð¤@¤U ML089 ¤j¡A=IFERROR(SMALL(IF(       FREQUENCY(     IF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10),        IF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10,-999)      )   ,Á`ªí!$C$2:$C$10),COLUMN(A1)),"")
¨ä¹ê§Ú¬Ý¤£¤ÓÀ´¬°¦ó³o¼Ë´N¥i¥H¸õ¹L­«½Æ­È~
¨ä¤¤ FREQUENCY(data_array, bins_array)
ªº data_array¬O¥ÎIF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10)
                                        °Ý: 1.¬°¦ó³o­ÓIF¨ç¼Æ¨S¦³[value_if_false]ªº­È¡A¬O¯S®í¥Îªk¶Ü?
                                               2.·N«ä¬O¨ú¸Ó¶µ¥Øªº©Ò¦³¥æ´Á·í data_array¶Ü?
¦Ó¤À²Õ­Èbins_array¥Î IF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10,-999)
                                       °Ý:¬O§_¥Nªí·íÁ`ªí¦³¸Ó¶µ¥Ø´N¨ú±o¨ä¥æ´Á¡A­YµL¸Ó¶µ¥Ø´N=-999(¥Î¨ä¥L¼Æ¦r¦n¹³¤]¥i¥H)
¦bFREQUENCY¥~¼hªºIF´N§ó¬Ý¤£À´¤F...................ÁÙ¬O»¡°}¦C¤½¦¡¤£¬O³o¼Ë©î¸Ñªº
¦b¤U¹ê¦b¬O¸ê½è¾q¶wµLªk°Ñ³z¡A¬O¤£¬O¥i¥HML089¤jµy·L¸Ñ»¡¤@¤U¡AÁÂÁ¡I
Adam

TOP

¦^´_ 7# adam2010

½Ð±Ð¤@¤U ML089 ¤j¡A=IFERROR(SMALL(IF(       FREQUENCY(     IF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10),        IF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10,-999)      )   ,Á`ªí!$C$2:$C$10),COLUMN(A1)),"")
¨ä¹ê§Ú¬Ý¤£¤ÓÀ´¬°¦ó³o¼Ë´N¥i¥H¸õ¹L­«½Æ­È~
¨ä¤¤ FREQUENCY(data_array, bins_array)
ªº data_array¬O¥ÎIF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10)
                                        °Ý: 1.¬°¦ó³o­ÓIF¨ç¼Æ¨S¦³[value_if_false]ªº­È¡A¬O¯S®í¥Îªk¶Ü?
                                               2.·N«ä¬O¨ú¸Ó¶µ¥Øªº©Ò¦³¥æ´Á·í data_array¶Ü?
¦Ó¤À²Õ­Èbins_array¥Î IF($A2=Á`ªí!$A$2:$A$10,Á`ªí!$C$2:$C$10,-999)
                                       °Ý:¬O§_¥Nªí·íÁ`ªí¦³¸Ó¶µ¥Ø´N¨ú±o¨ä¥æ´Á¡A­YµL¸Ó¶µ¥Ø´N=-999(¥Î¨ä¥L¼Æ¦r¦n¹³¤]¥i¥H)
¦bFREQUENCY¥~¼hªºIF´N§ó¬Ý¤£À´¤F...................ÁÙ¬O»¡°}¦C¤½¦¡¤£¬O³o¼Ë©î¸Ñªº
¦b¤U¹ê¦b¬O¸ê½è¾q¶wµLªk°Ñ³z¡A¬O¤£¬O¥i¥HML089¤jµy·L¸Ñ»¡¤@¤U¡AÁÂÁ¡I



¦^µª
1. IF°£¥Î§PÂ_­È TURE/FALSE¥~¡A0­È¬°FALSE¡A¨ä¥L­È¬°TURE¡A¤½¦¡¤¤FREQUENCY¦^¶Ç­È¤¤­«½Æ¶µ²Ä¤G¦ì¤Î¥H¤WªÌ¬°0
2. ­YµL¸Ó¶µ¥Ø´N=-999(¥Î¨ä¥L¼Æ¦r¦n¹³¤]¥i¥H,¦ý­È­n¤p©óÁ`ªí!$C$2:$C$10)
3. FREQUENCY({1;2;3;2;3;3},{1;2;3;2;3;3})¦^¶Ç­È¬° {1;2;3;0;0;0;0}¡A©Ò¥H0­È¬°­«Â浤£¬O§Ú­Ì­nªº¶µ¥Ø¡C
IF(FREQUENCY({1;2;3;2;3;3},{1;2;3;2;3;3}), {1;2;3;2;3;3,}) = IF( {1;2;3;0;0;0;0},{1,2,3,2,3,3}) = {1;2;3;FALSE;FALSE;FALSE;FALSE}
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

·PÁÂML089ª©¥D¸ÔºÉªº»¡©ú¡A¦ü³q¥¼³q¡A¦A¬ã¨s¤@¤U¡AÁÂÁ¡I
Adam

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD