这是这个月我们工班调班表，中间的是每个人哪天在这上班，上班的

最好再有个按键自动发工资，按一下这个月工资就到手了那种

填1,0很容易,但是你得说清楚按什么规律填.
btw:啥工作一休就八九天?真爽!

右击工作表标签>查看代码>粘贴下面代码
可在b2:g33单元格区域右击时实现单元格值和充色的变化.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
s = Array(5, 3)
Set rng = Application.Intersect(Range("b2:g33"), Target) '要实现该功能的区域根据实际修改
If rng Is Nothing Then Exit Sub
Cancel = True
For Each c In rng.Cells
With c
.Value = 1 - .Value
.Interior.ColorIndex = s(.Value)
End With
Next
End Sub