vba学习系列(3)-- 出勤8天预警

系列文章目录

前言

一、需求

工作9天必须休息1天，当工作到8天时预警需要休息

二、vba源码

代码如下（示例）：

Sub CountCells()
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet

Dim rng As Range
Dim m, n, i, j As Long
m = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
j = ThisWorkbook.ActiveSheet.Range("BA2")

For i = 3 To m

    Set rng = ws.Range(ws.Cells(i, 6), ws.Cells(i, j + 15))
    
    Dim cell As Range
    Dim counter As Integer
    counter = 0
    For Each cell In rng
        If cell.Value <> "" Then
            counter = counter + 1
        ElseIf cell.Value = "" Then
            counter = 0
        Else
        End If
    Next cell
    ThisWorkbook.ActiveSheet.Range("BA" & i) = counter
    
    If counter > 7 Then
    ThisWorkbook.ActiveSheet.Range("BA" & i).Interior.Color = RGB(255, 0, 0)
    Else
    ThisWorkbook.ActiveSheet.Range("BA" & i).Font.Color = vbbreak
    ThisWorkbook.ActiveSheet.Range("BA" & i).Interior.Color = xlNone
    End If
    
    i = i + 3
Next

End Sub					
								

总结

分享：

我们清除了心中所有的不安，精神意识上的转变就开始了；汹涌的爱、平和与喜悦开始涌入我们的内心，正能量和积极地人生观也就自然而然的出现；