|
不知是不是这个意思?请测试。(上传不了附件了,只能贴代码)
Sub 打勾()
Dim r%, j%, i%, a$
Application.ScreenUpdating = False
Sheets("西丽月薪制").Activate '激活“西丽月薪制”工作表
r = [b65536].End(3).Row 'B列有数据最大行号
For j = 8 To r Step 4 '每4行一个循环
If Cells(j, 1) <> "" Then '判断姓名是否为空
For i = 1 To 31 '月大时,有31天
If Cells(6, i + 2).Value <> "" Then '排除空值后,剩下是这个月实际天数
a = Format(Cells(6, i + 2).Value, "aaaa") '获取星期
If a <> "星期六" And a <> "星期日" Then '排除星期六和星期天
Cells(j, i + 2) = [c4].Value '打勾
Cells(j, i + 2).Offset(1) = [c4].Value '打勾
End If
End If
Next i
End If
Next j
Application.ScreenUpdating = True
End Sub
Sub 清空数据()
Sheets("西丽月薪制").Activate '激活“西丽月薪制”工作表
r = [b65536].End(3).Row 'B列有数据最大行号
Range("c8:ag" & r).ClearContents
End Sub
|
评分
-
1
查看全部评分
-
|