按键精灵条件语句,excel条件格式如何写公式 if语句;
答案:1 悬赏:0 手机版
解决时间 2021-04-26 17:25
- 提问者网友:我是我
- 2021-04-26 07:02
按键精灵条件语句,excel条件格式如何写公式 if语句;
最佳答案
- 五星知识达人网友:动情书生
- 2021-04-26 07:34
用条件格式无法实现的,格式是无法改变当前单元格的值的。
应该可以使用VBA来实现。用条件公式也不行的。VBA的方法如下(Excel 2003):
1)设置安全级别:菜单 ->工具->宏->安全性,将安全性的级别设置为中级。
2)菜单 ->工具->宏->Visual Basic编缉器,打开进行编辑:
在窗口左侧的VBAProject..点击右键,在弹的菜单中选择“插入”->“模块”,然后在右侧中输入以下内容。
Sub a()
If Worksheets(Sheet1).Evaluate(B1) = Worksheets(Sheet1).Evaluate(A1) ThenWorksheets(Sheet1).Evaluate(A1) = 0End 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) ThenWorksheets(Sheet1).Evaluate(A1) = 0End If
End Sub
然后再双击左侧的Sheet1,再在右侧中填入以下的内容:
Private Sub Worksheet_Change(ByVal Target As Range)
Call a
End Sub
好了,以上的操作就行了,保存退出,重开这个档案,这时注意要启用“宏”
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯