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