怎么通过判断单元格的填充色来自动在规定的区域插入字符

番茄土豆炒鸡蛋

求助论坛的各位大神，我这里有个考勤表，每个月的周六 周末自动填充颜色为灰色
我的想法是，根据以下条件来判断在上午 下午2行单元格 是否插入”√“（通过按钮的形式来实现，就是我在表格添加一个按钮，点下按钮就插入”√“）
1.根据每个月的周六周末的填充颜色（根据日期这行来判断）
2.根据姓名这列是否有数据
如果1没有填充颜色，2有数据，那么就在上午 下午这2行插入”√“，其它的不做任何动作（1和2指的是第一个条件和第二个条件）
求助论坛各位大神怎么实现在此，谢谢各位大神了

网海遨游

不知是不是这个意思？请测试。（上传不了附件了，只能贴代码）


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

maditate

如果是用代码自动判断周六周日并填充灰色，那么写此代码的人一定能再写出楼主贴提出的条件判断是否有数据之类的。

chentonny

对周六周日用WEEK函数判断比较准确吧

扑腾

借地求问：论坛内搜索怎么用不成了，是不是只有我一个人是这样？甭管输入什么都提示“无法搜索此页”

番茄土豆炒鸡蛋

网海遨游 发表于 2019-9-5 20:10
不知是不是这个意思？请测试。（上传不了附件了，只能贴代码）

你好，你的代码可以用，但是只适合一个工作表，在其他工作表引用不了，麻烦大神修改下，在任何工作表都能用（我这个考勤下面有很多工作表）

番茄土豆炒鸡蛋

chentonny 发表于 2019-9-5 20:34
对周六周日用WEEK函数判断比较准确吧

周六周日是通过函数自动算出来的，然后通过条件格式来填充颜色，我的意思是 我想通过宏判断是不是周六周末（因为周六周末是有颜色填充），然后不是周六周末就打钩，这样 就不要一个个去复制了

番茄土豆炒鸡蛋

番茄土豆炒鸡蛋 发表于 2019-9-5 21:41
你好，你的代码可以用，但是只适合一个工作表，在其他工作表引用不了，麻烦大神修改下，在任何工作表都能 ...

我试着改代码的工作表命名，好像可以调用， 宏不是很懂

番茄土豆炒鸡蛋

maditate 发表于 2019-9-5 20:19
如果是用代码自动判断周六周日并填充灰色，那么写此代码的人一定能再写出楼主贴提出的条件判断是否有数据之 ...

周六周日是用函数加条件格式填充颜色的

番茄土豆炒鸡蛋

扑腾 发表于 2019-9-5 20:48
借地求问：论坛内搜索怎么用不成了，是不是只有我一个人是这样？甭管输入什么都提示“无法搜索此页”

我也不知道，我搜索也会这样，我以为是我网络问题