Question

excel2007中的复选框控件，如何控制一个区域的隐藏与显示？

如图所示，我插入了一个复选框控件，现在实现了点选时候能够显示出测试项目的5-8行，非选择状态时候5-8行隐藏。但是工作需要，有时候会在5-8行之间插入一些行，比如说6，7行间插入一行--上升时间，因为我写的VB宏程序是控制5-8行的，插入后行数就变了，功能就会混乱。哪位大神能不能帮我实现以测试项目行和功率行为起止标志来实现隐藏的功能啊？不管里面插入几行都不影响复选框的功能！急求！谢谢！





Answer 1

将隐藏的行用vlookup或者match查找到的行数动态代替

追问

不懂vlookup或者match，现在的还是根据网上的隐藏列程序改成的行呢。能给个程序吗？谢谢！

追答

Sub 复选框2_Click()
'定义两个字符串型变量
Dim sR$, eR$
'这里的测试项目是你的需要隐藏的第一行的文字内容，该命令返回其在A1:A999中的位置，即行数
sR = Application.Match("测试项目", Range("A1:A999"), 0)
'这里的——功率是你的需要隐藏的最后一行的文字内容，同上
eR = Application.Match("——功率", Range("A1:A999"), 0)
'然后在行的数字那里引用刚才两个变量即可
If Sheets("2nd阶段_草样机开发").Rows(sR & ":" & eR).EntireRow.Hidden = True Then
    Sheets("2nd阶段_草样机开发").Rows(sR & ":" & eR).EntireRow.Hidden = False
Else
    Sheets("2nd阶段_草样机开发").Rows(sR & ":" & eR).EntireRow.Hidden = True
End If
End Sub

Answer 2

把整个表给选上，然后在菜单栏上选数据，自动筛选。
它就会在第一列上有箭头，单击箭头，选择你所需要显示的情况再创建表格就可以了。

Answer 3

把控制5～8行的语句，改为判断A列值为“测试项目”的行数及值为“——功率”的行数即可。

追问

具体我不会编程啊，现在的还是根据网上的隐藏列程序改成的隐藏行程序呢。能给个程序吗？谢谢

追答

把你的现有代码贴上来

追问

“2nd阶段-草样机开发”是当前sheet名

Answer 4

你用excel的绝对引用试试，我也没试过。

Answer 5

只能修改程序

追问

您这跟没有说一样啊！