【已开帖】新手8班课前练习二：批量加色

君行11 · 发表于 2011-12-8 13:15

又来交作业啦，麻烦老师！

zhj12043580 · 发表于 2011-12-8 13:56

请老师查阅，谢谢！

zhp3 · 发表于 2011-12-8 15:33

方法一：筛选法
点击A1、B1单元格——数据——筛选——自动筛选——点击B1单元格倒三角，筛选“缺考”——填充红色。完成！
新手8班课前练习二：批量1.gif

方法二：替换法
编辑——替换——“查找内容”和“替换为”分别输入“缺考”——点“替换为”后面的“格式”，设置填充红色。完成！

hongqiqqq · 发表于 2011-12-8 16:02

俺来试试，一步步来

轻风微澜 · 发表于 2011-12-8 17:39

本帖最后由轻风微澜于 2011-12-8 17:41 编辑

交作业啦，请指教啊

DD_WJ · 发表于 2011-12-8 19:27

DD_WJ · 发表于 2011-12-8 20:03

本帖最后由 DD_WJ 于 2011-12-8 21:20 编辑

附上代码：
Sub 着色()
For i = 2 To Range("a65536").End(xlUp).Row
      If Cells(i, "b") = "缺考" Then
         Cells(i, "b").Interior.ColorIndex = 3
      End If
Next
End Sub
Sub 去色()
For i = 2 To Range("a65536").End(xlUp).Row
      If Cells(i, "b").Interior.ColorIndex = 3 Then
         Cells(i, "b").Interior.ColorIndex = xlNone
      End If
Next
End Sub

luheyang66 · 发表于 2011-12-8 22:08

雨过天晴YGTQ · 发表于 2011-12-9 08:53

雨过天晴YGTQ的作业批量加色.rar (236.96 KB, 下载次数: 5)

我是活宝 · 发表于 2011-12-9 14:15

老师,,我现在还只会1种,其他方法我在后续会去慢慢的了解

		自动登录	找回密码
密码			注册

[习题] 【已开帖】新手8班课前练习二：批量加色

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分

点评

评分