求助各位大神：如何通过点击按钮来实现指定行的隐藏及显示

xiaochangyou

求助各位大神：如何通过数值按钮来实现指定行的隐藏及显示
如附件：
      当Sheet1 B2=5 时，只显示以工序1-工序5的行数，其它行数隐藏。同时隐藏Sheet2中的工序6-工序10的所有行。
     根据Sheet1 B2的数值变化，工序1-工序5之间的行数自动变化。

xiaochangyou

怎么没有人回复啊

lele6809

1.     Sheet1.Select
   
2.     Rows.Hidden = False
   
3.     a = Sheet1.[b2].Value
   
4.     b = Columns("B:B").Find("工序" & a + 1).Row
   
5.     Range("B" & b).Select
   
6.     Selection.End(xlDown).Select
   
7.     c = Selection.Row
   
8.     Rows(b & ":" & c).Hidden = True
   
9.     x = c - b
   
10.     Sheet2.Select
    
11.     Rows.Hidden = False
    
12.     For i = Cells(Rows.Count, 1).End(xlUp).Row + 2 To 1 Step -12
    
13.         b2 = Range(Cells(i, 1), Cells(i - 11, 1)).Find("工序" & a + 1).Row
    
14.         Rows(b2 & ":" & b2 + x).Hidden = True
    
15.     Next
    

复制代码

lele6809

回复需要审核，请等待通过

xiaochangyou

lele6809 发表于 2022-2-16 16:47

感谢！太强大了
如果我要修改代码用于其它工作薄，是修改哪个地方？

lele6809

xiaochangyou 发表于 2022-2-17 08:55
感谢！太强大了
如果我要修改代码用于其它工作薄，是修改哪个地方？

改sheet名即可，当然可能还有序列的行数

拼音佳佳

公式或者vba都不难实现.

公式法就是通过变量显示指定的引用,这里可以用offset相关的公式.数据源找地方藏起来,实际显示是从数据源的指定引用.

xiaochangyou

lele6809 发表于 2022-2-17 09:30
改sheet名即可，当然可能还有序列的行数

好的，谢谢！我先试着改一下

xiaochangyou

lele6809 发表于 2022-2-16 16:47

请教高手，如何不需要链接到sheet2，且单元格位置发生改变，这个代码应该如何修改

lele6809

不需要sheet2部分，只要删除   x = c - b 及以下部分即可
位置只要在B列就可以，选择的数字现在在B2，改变了的话修改 a = Sheet1.[b2].Value