想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 07:24:54
想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.

想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.
想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消.

想用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 Sub

想用Vba来完成,当A列大于1时,整行变色,当N列大于1时,变色取消. vba公式求助用vba公式,a列中有几组数字如:123456,456789,741852,963852,452783.如果a列同时含有2、5、6时,则b列等于0,否则b列加1, 当列a小于1时,列b等于列a的数据;列a大于或等于1时,列b等于1;请问大师怎么计算 excel当A列大于B列时,C列=A列,否则C列=B列 表中有A B C三列,用SQL语句实现:当A列大于B列时选择A列否则选择B列,当B列大于C列时选择B列否则选择C列. excel问题,一个表格ABC三列,当A和B数值比较时,若A小于B,则C填入汉字“完成”,若A大于B,则将大出的数值填入C列并显示为红色 C列金额=A列单价*B列数量用VBA怎么计算 EXCEL请问:在电子表里当A列等于数值1,B列大于数值2时,C列数值相加,这个公式怎么写?请问:当A列等于数值1,B列大于数值2时,C列数值相加,这个公式怎么写?下面这个公式有什么地方不对?=sumproduc vba 变量相关如果取excel某列的最后一行的值用lr=[a65536].End(xlUp).Row 这个列标为A列.如果他是变量该如何表示呢.我用一个循环得出一个数字假设为3即为C列,用一个变量c来赋值,c=3.chr(65+c-1)返回值 EXCEL满足一个条件取值如下所示:A列 B列 C列 D列 ? 2 5 2 当D列值大于2时,A列值=B列值,否则=C列值求解? 关于vba 自定义公式 在工作表1中,A列有不清楚多少行的数据,要是B列的每个单元格与A列一一对应并且=2*pi*关于vba 自定义公式 在工作表1中,A列有不清楚多少行的数据,即有“i 行,要是B列的每个 excle里,列B等于列A+1.5,但是当列B计算后大于列C时,要求列B等于列C,有公式吗 A B C excel表格中的编程问题A列数据是随机生成数1,2,3,4,5想要B列得到这样的数据:当A列取1或2时,B列随机取1或2当A列取3或4或5时,B列随机取3或4或5,其中取3的概率大于取4的概率大于取5的概率 excl问题A列中有14,30,0,10.多个数值,请在B列中用一个公式求:当A列中的数值小于或等于0时,显示为0; 当A列中的数值大于0而小于10时,显示为5; 当A列中的数值大于或等于10而小于20时,显示为10; 当A EXCEL函数,当A列等于10时,C列等于B列乘以1,当A列等于15时,C列等于B列乘以1.5当A列等于20时,C列等于B列乘以3,当A列等于20时,C列等于B列乘以4 VBA里面,怎么表示工作呢?因为工作表的名字是在SHEET1里面的a列,a1,a2,a3来命名的工作表我现在想再VBA里面选择工作表sheets().selsect该怎么表示这个工作表呢? 当a大于0b大于0时,比较a分之1和b分之1a大于b 求VBA的计算公式ActiveCell.FormulaR1C1 = =COUNTA( & CStr(ActiveSheet.Range(H + CStr(i + 1)).Value) & CStr(StartRow) & : & CStr(ActiveSheet.Range(H + CStr(i + 1)).Value) & CStr(i) & ) 上面的公式,当i=10,StartRow=2,H列的值是P时