Excel的两个问题

adz 2003-10-13 10:23:47

一、一个表中有多个列,我想实现如下效果:
  当C3<0时,整个第三行都变成红色的,若>=0都不变化,条件格式好象只能设置一格,不能设置整行...

二、在表一输入一行数据后,在表二中对表一的这一行某一字段进行判断,如果符合条件,就把该行全部复制过来,这能实现吗?

二个小问题,请多指教,谢谢
...全文
43 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
spark_li 2003-10-14
  • 打赏
  • 举报
回复
不错不错。
Davelu 2003-10-13
  • 打赏
  • 举报
回复
使用VBA
adz 2003-10-13
  • 打赏
  • 举报
回复
对不起是我没说清楚,是当整个C列中某一单元格为负数是,该单元格所对应的行变成红色。
上面的代码只对第三行起作用。
baiyu20122 2003-10-13
  • 打赏
  • 举报
回复
这个是完整的

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(3, 3) < 0 Then
Rows("3:3").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Rows("3:3").Select
Selection.Interior.ColorIndex = xlNone
End If
End Sub
baiyu20122 2003-10-13
  • 打赏
  • 举报
回复
Sub test()

If Cells(3, 3) < 0 Then
Rows("3:3").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If

End Sub
adz 2003-10-13
  • 打赏
  • 举报
回复
谢谢,二已经解决,一能不能给一小段代码
baiyu20122 2003-10-13
  • 打赏
  • 举报
回复
第一个问题:只能利用VBA来实现。用条件格式和公式都无法实现。
第二个问题:可以用IF函数实现。
如:条件是sheet1的D1=10,在sheet2的A1里输入:=IF(Sheet1!$D$1=10,Sheet1!A1,""),然后向右拖拉复制。

6,216

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧