標題: [發問] 儲存格資料連續出現問題尋問 [打印本頁]

---

作者: rouber590324    時間: 2017-3-22 08:39     標題: 儲存格資料連續出現問題尋問

dear  all 大大
1.儲存格內容如下
A1=連續上班5日(是=T 否=F)  B1=連續上班6日(是=T 否=F)  C1=連續上班7日(含)以上(是=T 否=F)  D1=員工姓名  
E1=日期1(內容=0表無上班.有>0之數字表有上班)   F2=日期2(內容=0表無上班.有>0之數字表有上班).......AI2日期31(內容=0表無上班.有>0之數字表有上班)
2.需求說明
2.1 如何時ABC欄產生連續上班5日, 6日 & 7日(含)以上之訊息
2.2 例 : A2 B2 C2 如何於 E2-AI2 當>0之儲存格連續出現5次時(連續上班5日)A2=T   
                                  當>0之儲存格連續出現6次時(連續上班6日)B2=T  
                                  當>0之儲存格連續出現7次(含)以上時(連續上班7日(含)以上)C2=T
     A3...A200  B3...B200  C3....C200 同範例說明.
3.煩不吝賜教(公司電腦無法上傳檔案-故用文字說明SORRY)

---

作者: rouber590324    時間: 2017-3-22 10:36

dear  all 大大
尋找前輩範例.已找出答案如下  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    時間: 2017-3-22 13:11

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)