[已解决]VBA如果D列数值大于30小于等于100则隐藏此行？

小雨饰品

VBA   条件如果D列数值大于30小于等于100则隐藏此行？谢谢各位

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-20 10:32

1. Sub 隐藏()
   
2.     r = [d65536].End(3).Row
   
3.     For i = r To 1 Step -1
   
4.         If Cells(i, 4) > 30 And Cells(i, 4) <= 100 Then Rows(i).Hidden = True
   
5.     Next
   
6. End Sub
   
7. 
   
8. Sub 取消隐藏()
   
9.     Rows("1:65536").Hidden = False
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub 隐藏()
   
2.     r = [d65536].End(3).Row
   
3.     For i = r To 1 Step -1
   
4.         If Cells(i, 4) > 30 And Cells(i, 4) <= 100 Then Rows(i).Hidden = True
   
5.     Next
   
6. End Sub
   
7. 
   
8. Sub 取消隐藏()
   
9.     Rows("1:65536").Hidden = False
   
10. End Sub
    

复制代码

爱疯

Sub test()
    '1）对D1的当前区域，进行自动筛选
    Range("D1").CurrentRegion.AutoFilter Field:=1, Criteria1:=">30", Operator:=xlAnd, _
                                                   Criteria2:="<=100", VisibleDropDown:=False
    '2）判断首行
    If [d1] > 30 And [d1] <= 100 Then [d1].Height = 0
End Sub

小雨饰品

爱疯 发表于 2015-3-20 11:04
Sub test()
    '1）对D1的当前区域，进行自动筛选
    Range("D1").CurrentRegion.AutoFilter Field:=1, ...

谢谢，版主您的代码在我的电脑运行出了点问题 [d1].Height = 0上面

爱疯

小雨饰品 发表于 2015-3-20 11:19
谢谢，版主您的代码在我的电脑运行出了点问题 [d1].Height = 0上面

如果换成RowHeight呢？

小雨饰品

爱疯 发表于 2015-3-20 11:22
如果换成RowHeight呢？

错误438      对象不支持该属性或方法。不知怎么设置一下才可以？谢谢

爱疯

小雨饰品 发表于 2015-3-24 13:11
错误438      对象不支持该属性或方法。不知怎么设置一下才可以？谢谢

上传会报错的附件，你是什么版本excel

小雨饰品

爱疯 发表于 2015-3-24 14:18
上传会报错的附件，你是什么版本excel

谢谢，麻烦了。我用的是2003（另外安装了2007兼容包）