[已解决]EXCEL查找到数值为周五、周六、周日自动填充颜色

xtnuixa · 发表于 2012-11-6 12:31

见附件，判断日期为周五、周六、周日的自动填充颜色，在07里条件格式中找不到对应的，请指教

Book1.rar (8.41 KB, 下载次数: 48)

蝶·舞 · 发表于 2012-11-6 12:59

Book1.zip (9.21 KB, 下载次数: 122)

徐淑颖 · 发表于 2012-11-6 13:11

{:091:}07版本好多不适应啊！

chensir · 发表于 2012-11-6 13:11

="周"&IF(WEEKDAY(B2,2)=7,"日",TEXT(WEEKDAY(B2,2),"[dbNUM1]"))
条件格式
=OR(B6="周五",B6="周六",B6="周日")

xtnuixa · 发表于 2012-11-6 13:46

请问二楼的，=(MOD(B6+1,7)<3)*B6,对这个公式不太懂，求详解

zhoujunah · 发表于 2012-11-6 14:04

条件格式没有这类的设置，可以使用下面的宏：
Sub ChangeColor()
Dim rng As Range
Set rng = [B2:R3]
Dim i As Integer
For Each rng In rng
   i = VBA.Weekday(rng.Value, vbMonday)
   If i > 4 Then
         rng.Offset(4, 0).Interior.ColorIndex = 3
      End If
Next
End Sub

honliubin_cs · 发表于 2013-3-17 15:23

		自动登录	找回密码
密码			注册

[已解决]EXCEL查找到数值为周五、周六、周日自动填充颜色

相关帖子