[µo°Ý] Àx¦s®æ¸ê®Æ³sÄò¥X²{°ÝÃD´M°Ý

rouber590324

dear  all ¤j¤j
1.Àx¦s®æ¤º®e¦p¤U
A1=³sÄò¤W¯Z5¤é(¬O=T §_=F)  B1=³sÄò¤W¯Z6¤é(¬O=T §_=F)  C1=³sÄò¤W¯Z7¤é(§t)¥H¤W(¬O=T §_=F)  D1=­û¤u©m¦W  
E1=¤é´Á1(¤º®e=0ªíµL¤W¯Z.¦³>0¤§¼Æ¦rªí¦³¤W¯Z)   F2=¤é´Á2(¤º®e=0ªíµL¤W¯Z.¦³>0¤§¼Æ¦rªí¦³¤W¯Z).......AI2¤é´Á31(¤º®e=0ªíµL¤W¯Z.¦³>0¤§¼Æ¦rªí¦³¤W¯Z)
2.»Ý¨D»¡©ú
2.1 ¦p¦ó®ÉABCÄæ²£¥Í³sÄò¤W¯Z5¤é, 6¤é & 7¤é(§t)¥H¤W¤§°T®§
2.2 ¨Ò : A2 B2 C2 ¦p¦ó©ó E2-AI2 ·í>0¤§Àx¦s®æ³sÄò¥X²{5¦¸®É(³sÄò¤W¯Z5¤é)A2=T   
                                  ·í>0¤§Àx¦s®æ³sÄò¥X²{6¦¸®É(³sÄò¤W¯Z6¤é)B2=T  
                                  ·í>0¤§Àx¦s®æ³sÄò¥X²{7¦¸(§t)¥H¤W®É(³sÄò¤W¯Z7¤é(§t)¥H¤W)C2=T
     A3...A200  B3...B200  C3....C200 ¦P½d¨Ò»¡©ú.
3.·Ð¤£§[½ç±Ð(¤½¥q¹q¸£µLªk¤W¶ÇÀÉ®×-¬G¥Î¤å¦r»¡©úSORRY)

rouber590324

dear  all ¤j¤j
´M§ä«e½ú½d¨Ò.¤w§ä¥Xµª®×¦p¤U  thanks*10000

Sub Ex()
    Sheet6.Visible = True
    Sheet6.Select
    Range("A1").Select
    Sheet6.[A2:C65536].ClearContents
    Dim R As Long, C As Long, Cmax As Integer
    With ActiveSheet.Range("A1").CurrentRegion
        .Cells.Interior.ColorIndex = xlNone
        For R = 2 To .Rows.Count
            C = 5
            Do While C <= .Columns.Count
                Cmax = 0
                Do While .Cells(R, C + Cmax) <> ""
                    Cmax = Cmax + 1
                Loop
                If Cmax >= 5 Then .Cells(R, 1).Value = "T"
                C = C + 1 + Cmax
            Loop
        Next
        
        For R = 2 To .Rows.Count
            C = 5
            Do While C <= .Columns.Count
                Cmax = 0
                Do While .Cells(R, C + Cmax) <> ""
                    Cmax = Cmax + 1
                Loop
                If Cmax >= 6 Then .Cells(R, 2).Value = "T"
                C = C + 1 + Cmax
            Loop
        Next
        
         For R = 2 To .Rows.Count
            C = 5
            Do While C <= .Columns.Count
                Cmax = 0
                Do While .Cells(R, C + Cmax) <> ""
                    Cmax = Cmax + 1
                Loop
                If Cmax >= 7 Then .Cells(R, 3).Value = "T"
                C = C + 1 + Cmax
            Loop
        Next
        
    End With
End Sub

hcm19522

http://blog.xuite.net/hcm19522/twblog/493642486