想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/12 00:53:37
想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.
如果你是输入就完成判断
用单元格事件完成,代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Myr
Myr = Target.Row
If Target.Column = 1 And Target.Value > 1 Then Rows(Myr).Interior.ColorIndex = 3
If Target.Column = 14 And Target.Value > 1 Then Rows(Myr).Interior.ColorIndex = xlNone
End Sub
如果你是很多行数据一次判断完成
运行以下宏完成
Sub test()
Dim i&, x&
i = Range("A65536").End(xlUp).Row
For x = 1 To i
If Cells(x, 1) > 1 Then Rows(x).Interior.ColorIndex = 3
If Cells(x, 14) > 1 Then Rows(x).Interior.ColorIndex = xlNone
Next x
End Su
用单元格事件完成,代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Myr
Myr = Target.Row
If Target.Column = 1 And Target.Value > 1 Then Rows(Myr).Interior.ColorIndex = 3
If Target.Column = 14 And Target.Value > 1 Then Rows(Myr).Interior.ColorIndex = xlNone
End Sub
如果你是很多行数据一次判断完成
运行以下宏完成
Sub test()
Dim i&, x&
i = Range("A65536").End(xlUp).Row
For x = 1 To i
If Cells(x, 1) > 1 Then Rows(x).Interior.ColorIndex = 3
If Cells(x, 14) > 1 Then Rows(x).Interior.ColorIndex = xlNone
Next x
End Su
想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.
excel当A列大于B列时,C列=A列,否则C列=B列
表中有A B C三列,用SQL语句实现:当A列大于B列时选择A列否则选择B列,当B列大于C列时选择B列否则选择C列.
EXCEL请问:在电子表里当A列等于数值1,B列大于数值2时,C列数值相加,这个公式怎么写?
excle里,列B等于列A+1.5,但是当列B计算后大于列C时,要求列B等于列C,有公式吗
当m分之n大于1时,a除以m分之n()a,填大于、小于或等于
EXCEL函数,当A列等于10时,C列等于B列乘以1,当A列等于15时,C列等于B列乘以1.5
如何自动设置EXCEL单元格颜色 当B列的数据大于等于A列时,B列填充绿色,反之填充红色.怎么实现?
证明:n属于z,当n大于等于3时,2的n次幂大于2n+1
当a大于等于0,b大于等于0,n为正整数时.根号下a的2n+1次方 乘以 b的4n+3次方
一道题 悬赏50分已知函数f(x)=2/2-x,记数列{an}的前n项和为Sn,且有a1=f(1),当n大于等于二时,S
excel2010,当指定列单元格大于0时,所在行自动标注颜色