现在很少有公司用Excel来算工资了吧,所以,这里的功能相对比较鸡肋。
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'判断当前单元格是在那行,如果是在迟到,旷工或者加班行则处理右键
If (Target.Column >= 4 And Target.Column <= 6) Then
Cancel = True '取消正常右键菜单
Target = Target + 1 '单元格数值加1
End If
End Sub