此代码隐藏灰色该怎样改？

tianyk · 发表于 2011-1-21 17:02

在这里面搜到的是隐藏白色行，请教：若隐藏灰色行该如何改？谢谢！
Sub 按单元颜色隐藏行()
Application.Calculation = xlCalculationManual    '手动重算
y = Cells.SpecialCells(xlCellTypeLastCell).Row    '当前工作表使用过的行数
For a = 2 To y
b = Range("a" & a).Interior.ColorIndex '字体颜色变量
If b = xlNone Then    '如果单元颜色值不是15(灰色)
Rows(a).EntireRow.Hidden = True '隐藏行
End If
Next
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

LangQueS · 发表于 2011-1-21 17:17

Sub 按单元颜色隐藏行()
Application.Calculation = xlCalculationManual    '手动重算
y = Cells.SpecialCells(xlCellTypeLastCell).Row    '当前工作表使用过的行数
For a = 2 To y
b = Range("a" & a).Interior.ColorIndex
If b = xlNone Or b = 2 Then    '如果单元白色
Rows(a).EntireRow.Hidden = True '隐藏行
End If
Next
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

[ 本帖最后由 LangQueS 于 2011-1-21 17:18 编辑 ]

佛山小老鼠 · 发表于 2011-1-21 17:57

这种情况，楼主可以录制宏来知，什么数值代表什么颜色的，楼主可以选中一个单元格，录制宏，突出显示，灰色，停止录制，然后去VBE编辑窗口去看颜色值数字

tianyk · 发表于 2011-1-21 18:51

谢谢‘LangQueS’老师！也正在看‘佛山小老鼠’提供的视频。能加91743166群吗？

[ 本帖最后由 tianyk 于 2011-1-21 18:57 编辑 ]

佛山小老鼠 · 发表于 2011-1-21 21:43

原帖由 tianyk 于 2011-1-21 18:51 发表
谢谢‘LangQueS’老师！也正在看‘佛山小老鼠’提供的视频。能加91743166群吗？

当然能加，本来就是一个学习交流群

tianyk · 发表于 2011-1-25 17:29

If b = xlNone Or b = 2 Then '如果单元白色
照此更改后还是隐藏白色，不隐藏灰色呀？

LangQueS · 发表于 2011-1-25 22:23

Sub 按单元颜色隐藏行()
Application.Calculation = xlCalculationManual    '手动重算
y = Cells.SpecialCells(xlCellTypeLastCell).Row    '当前工作表使用过的行数
For a = 2 To y
b = Range("a" & a).Interior.ColorIndex
If b <> xlNone And b <> 2 Then    '如果单元不是白色
      Rows(a).EntireRow.Hidden = True '隐藏行
End If
Next
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

tianyk · 发表于 2011-1-26 10:03

谢谢‘LangQueS’老师！

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

[求助] 此代码隐藏灰色该怎样改？

回复 2楼 LangQueS 的帖子

回复 6楼 tianyk 的帖子

回复 7楼 LangQueS 的帖子