excel中,要达到这种效果,如何设置
发布网友
发布时间:2024-10-02 10:22
我来回答
共3个回答
热心网友
时间:2024-10-27 12:31
用数据有效性。
选中A1,点数据——有效性,在“允许”中选择“小数”,在“数据”中选择“小于”,在最大值中输入:=$B$1,确定,试着在A1输入数字试一下。
热心网友
时间:2024-10-27 12:32
这个是可以做到的,
1. B1的资料,你可以做保护 工具\保护工作表
2. A1(或者A栏) 你可以设置条件格式: 格式\设定格式化条件\ (单元格的值\大于\=$B$1)
3. 当设置好后,你先保存,然后,在文件的属性中改为 "只读"追问保护已经搞定了,就是A1>=B1的话,变色以及不能保存怎么设置,没有看懂
追答你选取A1然后 格式\设定格式化条件\ (单元格的值\大于\=$B$1) 然后,点下面的格式 出现格式对话窗,然后,选取字体颜色,比如红色
热心网友
时间:2024-10-27 12:32
2个事件即可,没有考虑通过关闭保存的情况。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
If Cells(1, 1) > Cells(1, 2) Then
Cells(1, 1).Interior.ColorIndex = 4
Else
Cells(1, 1).Interior.ColorIndex = xlNone
End If
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheet1
If .Cells(1, 1) > .Cells(1, 2) Then
Cancel = True
MsgBox "A1不能大于B1!请重新输入!", vbCritical + vbOKOnly, "提示"
End If
End With
End Sub