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

[µo°Ý] Ãö©ó·j´M/¤ñ¹ï ªº¨ç¼Æ¼gªk¡AÀµ½Ð«e½ú«üÂI

[µo°Ý] Ãö©ó·j´M/¤ñ¹ï ªº¨ç¼Æ¼gªk¡AÀµ½Ð«e½ú«üÂI

¦U¦ì«e½ú¦n¡A¦³¤@¤u§@ºÃ°ÝÀµ½Ð¯à¨ó§Uµ¹¤©«Øij¡A¦p¹Ï¤ù©Ò¥Ü¡G

·j´M¤ñ¹ï.jpg
2019-1-7 14:26



¢ÏÄæ¥i¥H¿é¤J12­Ó¸¹½X¡]¸¹½X¦U¦Û¤£­«½Æ¡^¡A¿é¤J¸ê®Æ«á¥i¥H±qDÄ檺²{¦³¸ê®Æ¤¤¡A¨Ó¬d¸ßCÄæ¬Û¹ïÀ³ªºµ²ªG¡A¨Ò¦p¡G

¡° Condition 1:  AÄæ¿é¤J5,10,15,20,25 ¡A¨ç¼Æ·|¥h·j´M¡B¤ñ¹ï¢ÒÄæ«á¡A¥N¥XCÄæ¦ì¸ê®Æ¨ÃÅã¥Ü©ó I2¡BI3Àx¦s®æ
   
¡@I2¡G±o¥Xµ²ªG N01¬°¸¹½X¡B¦¸§Ç¬Ò¦PAÄæ¿é¤J
¡@I3¡G±o¥Xµ²ªG N02¡BN03¡@¸¹½X¬Ò§k¦X¡A¶È¦¸§Ç¤£¦P


¡° Condition 2:  AÄæ¿é¤J10,20,5,15,25 ¡A¨ç¼Æ¥h·j´M¡B¤ñ¹ï¢ÒÄæ«á¡A¥N¥XCÄæ¦ì¸ê®Æ¨ÃÅã¥Ü©ó I2¡BI3Àx¦s®æ
   
¡@I2¡G±o¥Xµ²ªG ¬dµL§¹¥þ²Å¦X,¤£Åã¥Ü
¡@I3¡G±o¥Xµ²ªG N02¡BN03¡@¸¹½X¬Ò§k¦X¡A¶È¦¸§Ç¤£¦P


¥»¤H¥uÀ´«D±`°ò¦ªº¨ç¼Æ¥Îªk¡A¹ï©óVBA¨ÃµLµZ¿i¡A´¿¸Õ·Q¥ÎVlookup¡A¦ýC¡BDÄ欰¤@­Ó³sÄòªº¸ê®Æ®w¥B·|¤@ª½·s¼W¡A¦³¥i¯à¦¹µ§·s¼W¸ê®Æ¶È¢´­Ó¸¹½X¡B¤U¤@µ§·s¼W¸ê®Æ¦³12­Ó¸¹½X...
¬G¤£²M·¡¸Ó¦p¦ó»s§@¤~¯àºë·Çªº·j´M¡A³o¼Ëªº·j´M¼Ò¦¡¦³¥i¯à³æ¾a¨ç¼Æ§Y¥i§¹¦¨¡AÁÙ¬O­n¶i¶¥¨ìVBA¼¶¼g©O?Àµ½Ð¦U¦ì«e½ú«ü¾É¡A·PÁÂ

·j´M¤ñ¹ï20190107.rar (284.38 KB)

Sub TEST()
Dim Arr, A, i&, xD, C%, V%, N%, T$(2), s%, ST$(2)
Set xD = CreateObject("Scripting.Dictionary")
For Each A In [A2:A13].Value
    If A <> "" Then xD(A & "") = 1: T(0) = T(0) & A & "_": C = C + 1
Next

Arr = Range([C2], [D65536].End(xlUp)(2))
For i = 1 To UBound(Arr) - 1
    If Arr(i, 1) <> "" Then T(1) = Arr(i, 1): T(2) = ""
    T(2) = T(2) & Arr(i, 2) & "_"
    V = V + xD(Arr(i, 2) & ""): N = N + 1
    If Arr(i + 1, 1) <> "" Or i = UBound(Arr) Then
       If V = C Then s = 2
       If T(2) = T(0) Then s = 1
       If N <> C Then s = 0
       ST(s) = ST(s) & "¡B" & T(1): V = 0: N = 0
    End If
101: Next i

[I2] = Mid(ST(1), 2)
[I3] = Mid(ST(2), 2)
End Sub

TOP

¦^´_ 13# handmuch


    «e½ú¡@«D±`·PÁ±zªº¤½¦¡¡A·|ªá®É¶¡¨Ó¤F¸Ñ¡A·PÁ±z

TOP

°Ñ¦Ò°Ñ¦Ò

³Â»¶_·j´M¤ñ¹ï_po¤å¤W¶Ç.jpg
2019-1-9 20:02


E2: {=IF(C2<>"",AND(OFFSET(D2,,,COUNTA($A$2:$A$13),)=OFFSET($A$2,,,COUNTA($A$2:$A$13),)),"")}

F2: {=IF(C2<>"",SUM(COUNTIF(OFFSET(D2,,,COUNTA($A$2:$A$13),),OFFSET($A$2,,,COUNTA($A$2:$A$13),))),"")}

G2: =IF(C2<>"",AND(E2=FALSE,F2=COUNTA($A$2:$A$13)),"")

J2: {=IFERROR(INDEX($C$2:$C$146,SMALL(IF($E$2:$E$146=TRUE,ROW($C$1:$C$145),""),ROW(A1))),"")}

k2: {=IFERROR(INDEX($C$2:$C$146,SMALL(IF($G$2:$G$146=TRUE,ROW($C$1:$C$145),""),ROW(A1))),"")}
http://expresmile.teachable.com

TOP

¦^´_ 11# ML089

·PÁ«e½ú«ü¾É»¡©ú¡A§Ú·|¦A¨Ó¬ã¨s¾Ç²ß¡AÁÂÁÂ

TOP

¦^´_ 9# chou1203

P6Äæ¦ì¤½¦¡:  [ =IF(AND(O6=O7,SUM((0&B6:M6)^7)=SUM((0&B$1:M$1)^7)),"¡B"&A6,)&P7  ]°}¦C

SUM((0&B6:M6)^7)   ¥Î0ªº·N¸q¬O?    ^7³o­Ó¦b¤½¦¡¸Ìªºªº·N¸q¬°¦ó©O¡H
-----------------------------------------------------------------------------------
0ªº·N¸q?
·íªÅ®æ®ÉµLªk­pºâ 0&ªÅ®æ¬° "0"¥i¥H­pºâ¡A·í¦³¼Æ¦r®É  0&99 = "099" ¥i¥H­pºâ¤]¬O¬° 99
   
^7³o­Ó¦b¤½¦¡¸Ìªºªº·N¸q¬°¦ó©O¡H
·íÀx¦s­Ó¤º¬O¤£­«½Æ¼Æ¦r®É¡ASUM( 5^7,10^7,15^7,20^7,25^7)  =  SUM( 5^7,20^7,25^7,10^7,15^7) ÁöµM±¼´«¦ì¸m¦ý¥[Á`«á¼Æ¦r·|¤@¼Ë¡A^7¬O±N¼Æ¦r¿±µÈ©Ô¤j¶ZÂ÷¡AÁקK²Õ©M¼Æ¦r¥[Á`¦³¦P¼Æ©Ê¡C
¨Ò¦p
ª½±µ¥[Á`µLªk¤À¿ë¤£¦P¼Æ¦r
       1+3+5 = 1+2+6 ³£¬°9¡A¦ý¼Æ¦r¤£¦P
      
­Y ^7 ¥[Á`«á®e©ö¤À¿ë¤£¦P¼Æ¦r
       1^7+3^7+5^7 = 80313       
       1^7+2^7+6^7 = 280065
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 8# hcm19522


    ·PÁ«e½úªº¸ê®Æ¡A§Ú·|¦Aªá®É¶¡¦h¬ã¨s¡@ÁÂÁ :-)

TOP

¦^´_ 7# ML089


«e½ú¡A«D±`·PÁ±z¡A§Ú­è­è´ú¸Õ¤F¤@¤U¡Aª½±µ®³¨Ó®M¥Î³£¤£¦¨°ÝÃD¡A¯u¬O¤Ó·P¿E¡C

¤p§Ìexcelªº¥\¤O¯uªº¨S¦³¿ìªk¥H±zªº«äºû¨Ó«Ø¥ß³o¤½¦¡¡A¥i§_¦V±z½Ð±ÐP6Äæ¦ì¤½¦¡:  [ =IF(AND(O6=O7,SUM((0&B6:M6)^7)=SUM((0&B$1:M$1)^7)),"¡B"&A6,)&P7  ]°}¦C

SUM((0&B6:M6)^7)   ¥Î0ªº·N¸q¬O?    ^7³o­Ó¦b¤½¦¡¸Ìªºªº·N¸q¬°¦ó©O¡HÁÂÁÂ

7.jpg
2019-1-8 17:53

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¥»©«³Ì«á¥Ñ ML089 ©ó 2019-1-8 07:39 ½s¿è

¦^´_ 6# chou1203
¤W­±¤½¦¡«ä¼{¤£©P¡A¤w¸g­×¥¿¦p¤U
·j´M¤ñ¹ï2.rar (29.87 KB)

¦]¬°¤W¯Z¤¤µLªk¥ß§Y¦^ÂнЭ@¤ßµ¥­Ô¡A©Î½Ð¨ä¥L¤j¤jÀ°¦£

·j´M¤ñ¹ï2.rar (29.87 KB)

{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD