[µo°Ý] ½Ð±Ð¦p¦ó°µ¯S®í±Æ¦C

ericpeja

½Ð°Ý¤p§Ì¦³¨â¤u§@ªí¤À§O¬°
SHEET1                                                                                                             SHEET2
¾Ç¥Í¸¹½X    ¦¨ÁZ     ¸É¦Ò1       ¸É¦Ò2       ¹LÃö                                                ¾Ç¥Í¸¹½X   1   2   3   4   5  6   7    8   9   10
1                   75                                           ¬O                                                   ¹LÃö          ¬O ¬O ¬O §_  ¬O ¬O §_  ¬O  §_  ¬O   
2                   65                                           ¬O                                                   ¸É¦Ò1                       §_           ¬O        ¬O
3                   66                                           ¬O                                                   ¸É¦Ò2                       §_        
4                   35                                           §_
4                                45                              §_
4                                                56              §_
5                   98                                           ¬O
6                   76                                           ¬O
7                   35                                           §_
7                              60                                ¬O
8                   77                                           ¬O
9                   49                                           §_
9                              69                                ¬O
10                 90                                           ¬O

¦pªþ¥ó
½Ð°Ý§Ú¸Ó¦p¦ó¥Îsheet1ªº±ø¥ó(¤£¹LÃö¶·¸É¦Ò1¦A¤£¹L¸É¦Ò2)
Åýsheet2ªº¾Ç¥Í¸¹½Xªº°µ¾î¦Vªº±Æ¦C(ª½¦V¬°¬O§_¹LÃö¤Î¸É¦Ò¬O§_³q¹L)
¥Ñ©óªì¾ÇVBA ·Q¤£¨ì¸û¦nªº¤èªk ¬G½Ð±Ðª©¤W¦U¦ì«e½ú­Ì~·P¿E¤£ºÉ

hcm19522

{=INDEX(SHEET1!$E:$E,SMALL(IF(SHEET1!$A$2:$A$15=B$1,ROW($2:$15),4^8),ROW(A1)))&""

ericpeja

¦^´_ 2# hcm19522
ÁÂÁ¤j¤jªº¦^´_ ¤£¹L¤p§Ì¸ê½è·M¶w °õ¦æVBA¦n¹³µLªk¨Ï¥Î ¥i§_µù¸Ñ¦¹­Èªº¤º®e ¥H«K¤p§Ì¤è«K¸ÑŪ

hcm19522

¦^´_ 3# ericpeja


    http://www.FunP.Net/144379

­ã´£³¡ªL

SHEET2
B2:¥k©Ô
=LOOKUP(1,0/(SHEET1!$A$1:$A$199=B$1),SHEET1!$E:$E)  

B3:¥k©Ô/¤U©Ô
=iferror(IF(LOOKUP(9^9,((INDEX(SHEET1!$C$1:$D$199,,ROW($A1))&"")+1%)/(SHEET1!$A$1:$A$199=B$1))<60,"§_","¬O"),"")

ericpeja

¦^´_ 5# ­ã´£³¡ªL

«D±`·PÁ±zªºÀ°¦£
¦ý§Ú¨Ï¥Î¨ç¼Æ«áµ²ªG¬°µ²ªG»P§Ú·Q­nªº¤£¤Ó¤@¼Ë
¥i¯à¬O§Ú±Ô­zªº¤£°÷§¹¾ã
§Ú·Q§âsheet 1ªºA¦æª½±µÂରsheet2ªº²Ä1¦C(¾Ç¥Í¸¹½X¤£¥i­«ÂÐ1,2,3,4,5,6,7,8,9,10)
¸É¦Ò¤Î®æ¨Ã¤£¥Nªí¹LÃö(±zµ¹ªº¦n¹³¬O¸É¦Ò1©Î¸É¦Ò2¦³¹L´Nºâ¹LÃö)

2019-11-12 17:06

§Úªþ¤W§Ú±ý·Q­×§ïªºª¬ªp

2019-11-12 17:07

§Úªþ¤W§Ú±ý·Q­×§ïªºª¬ªp

Sheet1ªºA¦æ¶È¨ú²Ä¤@µ§¾Ç¥Í¸¹½X(¤£½×¸É¦Ò)µM«á¦bSheet2ªº²Ä2¦æ¹ï¤ñ¨ä¹LÃöµ²ªG
¦p»Ý¸É¦Ò1(¤£¹LÃö)¤§¾Ç¥Í¸¹½Xªº²Ä¤Gµ§¸ê®Æ¹ïÀ³Sheet2ªº²Ä3¦æ
³Ì«á¸É¦Ò2(¤£¹LÃö)¤§¾Ç¥Í¸¹½Xªº²Ä¤Tµ§¸ê®Æ¹ïÀ³Sheet2ªº²Ä3¦æ
½Ð°Ý³o¼Ë¬O§_ÁÙ¦³¿ìªk¸Ñ©O???
·P¿E¤£ºÉ

­ã´£³¡ªL

¦^´_ 6# ericpeja

B1:¥k©Ô
=IFERROR(SMALL(SHEET1!$A:$A,COUNTIF(SHEET1!$A:$A,"<="&N(A1))+1),"")
B2:¥k©Ô
=IF(B1="","",VLOOKUP(B1,SHEET1!$A:$E,5,))
B3:¥k©Ô/¤U©Ô
=iferror(IF(LOOKUP(9^9,((INDEX(SHEET1!$C$1:$D$199,,ROW($A1))&"")+1%)/(SHEET1!$A$1:$A$199=B$1))<60,"§_","¬O"),"")

ericpeja

¦^´_ 7# ­ã´£³¡ªL

·PÁ¤j¤j~¦¨¥\¤F
¤£ª¾¹D±z¥i§_¤À¨É³o´X¬q¨ç¼Æ©Ò¥]§tªº·N¸q??¬Ý°_¨Ó¦n½ÆÂøªº·Pı
·PÁ±z~~:)

mlbolerud

¸Õ¬Ý¬Ý¤U­±ªº¸Ñªk

Sub test()
i = 2
Do While Sheets("sheet1").Cells(i, 1) <> ""
    Set A = Sheets("sheet1").Cells(i, 1)
    With Sheets("sheet2").Cells(1, 1 + A.Value)
    If A.Offset(0, 1).Value >= 60 Then
     .Value = A.Value
     .Offset(1, 0) = "¬O"
  
    ElseIf A.Offset(1, 2).Value >= 60 Then
     .Value = A.Value
     .Offset(1, 0) = "§_"
     .Offset(2, 0) = "¬O"
     i = i + 1

    ElseIf A.Offset(2, 3).Value >= 60 Then
     .Value = A.Value
     .Offset(1, 0) = "§_"
     .Offset(2, 0) = "§_"
     .Offset(3, 0) = "¬O"
     i = i + 2
                                      
    Else
     .Value = A.Value
     .Offset(1, 0) = "§_"
     .Offset(2, 0) = "§_"
     .Offset(3, 0) = "§_"
     i = i + 2
    End If
    End With
i = i + 1
Loop
End Sub