返回列表 上一主題 發帖

[發問] 儲存格資料連續出現問題尋問

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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)
收藏 分享
羅

hcm19522

帖子
1387 
主題
4 
精華
0 
積分
1397 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2024-11-26 

熱烈參與勳章
3#
發表於 2017-3-22 13:11 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/493642486
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 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
羅

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題