百度作业网excel条件格式如何写公式 if语句；
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/01 14:04:11
excel条件格式如何写公式 if语句；
我想用条件格式实现这么一个功能：当在单元A1输入一个数,如果输入的数等于B1,即A1=B1,则A1的数值自动变为0；
通过vbs可以实现吗?
我想用条件格式实现这么一个功能：当在单元A1输入一个数,如果输入的数等于B1,即A1=B1,则A1的数值自动变为0；
通过vbs可以实现吗?
用条件格式无法实现的,格式是无法改变当前单元格的值的.
应该可以使用VBA来实现.用条件公式也不行的.
VBA的方法如下(Excel 2003)：
1)设置安全级别：菜单 ->工具->宏->安全性,将安全性的级别设置为中级.
2)菜单 ->工具->宏->Visual Basic编缉器,打开进行编辑：
在窗口左侧的VBAProject..点击右键,在弹的菜单中选择“插入”->“模块”,然后在右侧中输入以下内容.
Sub a()
If Worksheets("Sheet1").Evaluate("B1") = Worksheets("Sheet1").Evaluate("A1") Then
Worksheets("Sheet1").Evaluate("A1") = "0"
End If
End Sub
然后再双击左侧的Sheet1,再在右侧中填入以下的内容：
Private Sub Worksheet_Change(ByVal Target As Range)
Call a
End Sub
好了,以上的操作就行了,保存退出,重开这个档案,这时注意要启用“宏”
应该可以使用VBA来实现.用条件公式也不行的.
VBA的方法如下(Excel 2003)：
1)设置安全级别：菜单 ->工具->宏->安全性,将安全性的级别设置为中级.
2)菜单 ->工具->宏->Visual Basic编缉器,打开进行编辑：
在窗口左侧的VBAProject..点击右键,在弹的菜单中选择“插入”->“模块”,然后在右侧中输入以下内容.
Sub a()
If Worksheets("Sheet1").Evaluate("B1") = Worksheets("Sheet1").Evaluate("A1") Then
Worksheets("Sheet1").Evaluate("A1") = "0"
End If
End Sub
然后再双击左侧的Sheet1,再在右侧中填入以下的内容：
Private Sub Worksheet_Change(ByVal Target As Range)
Call a
End Sub
好了,以上的操作就行了,保存退出,重开这个档案,这时注意要启用“宏”