Excel VBA高效办公应用-第十二章-工资表的录入与工资表的建立-Part2 （建立工资表）

现在很少有公司用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