发布网友 发布时间:2022-04-23 04:14
共2个回答
热心网友 时间:2023-07-02 17:31
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(Target.Row, 2).Value = "一次性" And Target.Column >= 3 And Target.Column <= 8 Then
MsgBox ("不能填写")
Cells(Target.Row, 2).Select
End If
End Sub
热心网友 时间:2023-07-02 17:31
选中想要设置的单元格-数据-有效性-自定义
输入公式=$B2<>"一次性",确定
再次选中,新建条件格式-自定义公式,=$B2="一次性",将单元格底色设置为灰色,确定