在Excel工作簿中如何对三个工作表同时进行隐藏指定条件的行

显示全部楼层 · 2010-5-9 02:48:31

我的《学生成绩管理》工作簿里有《学生基本情况登记表》、《成绩统计表》和《成绩分析表》这三个工作表。它们的第1.2.3.4行都是表头，第1列A是序号。我想在《原始数据设置》页面根据学生数来（C12）确定并同时自动隐藏《学生基本情况登记表》、《成绩统计表》和《成绩分析表》这三个工作表的指定行。按钮“确定”为执行命令。
下面的代码该如何修改：
Private Sub CommandButton1_Click()
Me.Unprotect ""
If Sheets("初始设置").[C12]"" Then
For i = 5 To 64

If Cells(i, 1) > Sheets("初始设置").[C12].Value Then Rows(i).Hidden = True '隐藏该行
Next
End If
Me.Protect ""
End Sub
如果需要,告知邮箱即传附件.谢谢!
上述代码在单个工作表中已测试通过.
运行后会有如下提示: 运行时错误'1004':

不能设置类 Range 的 Hidden 属性

千问 · 2010-5-9 02:48:31

Private Sub CommandButton1_Click()Dim tt%, k%If Sheet5.[c12]"" Thentt = [c12] + 5For k = 5 To 7Sheets(k).Rows(tt & ":65").Hidden = TrueNextEnd IfEnd Sub可以循环的代码出错原因是你的sheet.index比较乱，所以从5到7循环，原来的sheet2保护了