|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub 公休天数()
- Dim i&, j&, 公休天数&
- For i = 2 To 4
- For j = 2 To 16
- If Cells(i, j) = "公休" Or (Cells(i, j) = "休息" And Cells(i, j - 1) <> "上班") Then
- 公休天数 = 公休天数 + 1
- End If
- Next
- '---------------------------------------------------------------------------------------
- If Cells(i, 16) = "公休" And Cells(i, 15) = "休息" Then
- 公休天数 = 公休天数 + 1
- End If
- '------------------------------------------------------
- Cells(i + 5, 3) = 公休天数
- 公休天数 = 0
- Next
- End Sub
复制代码 |
评分
-
2
查看全部评分
-
|