求助各位大神，如何根据需求而显示指定的行？

speed9301

如图显示，行1至行3为锁定显示，在G1和H1输入相应数字，G1为开始行数，H1为终止行数，其余行隐藏。请问应如何写代码？

ykcbf1100

上个附件吧。

qline302

Range("A" &iif(range("G1")<4,3,range("G1")) &":A"&Rang("H1")).EntireRow.Hidden = True

cidanji

1. Sub ss()
   
2. Dim r&
   
3. r = Cells(Rows.Count, 1).End(3).Row
   
4. Rows("4:" & r).Hidden = True
   
5. Rows([G1] & ":" & [H1]).Hidden = False
   
6. End Sub

复制代码

维叶

楼主是要显示G1至H1的行数吧

1. <div class="blockcode"><blockquote>Range("A1" & ":A" & Rows.Count).EntireRow.Hidden = False
   
2. If Range("G1") >= 5 Then Range("A4" & ":A" & Range("G1") - 1).EntireRow.Hidden = True
   
3. If Range("H1") >= 5 Then Range("A" & Range("H1") + 1 & ":A" & Rows.Count).EntireRow.Hidden = True

复制代码

1. Range("A1" & ":A" & Rows.Count).EntireRow.Hidden = False
   
2. If Range("G1") >= 5 Then Range("A4" & ":A" & Range("G1") - 1).EntireRow.Hidden = True
   
3. If Range("H1") >= 5 Then Range("A" & Range("H1") + 1 & ":A" & Rows.Count).EntireRow.Hidden = True

复制代码

speed9301

维叶 发表于 2024-1-16 09:41
楼主是要显示G1至H1的行数吧

是的，但第一至第三行是锁定显示的

speed9301

如果G1输入”5“，在H1输入“10“，想得到这样的效果

speed9301

cidanji 发表于 2024-1-16 08:49

谢谢，大致是这样的效果。但我想是不是每次要先”全部显示工作本“，才运用这程序，请问要加什么编码？

cidanji

speed9301 发表于 2024-1-16 12:15
谢谢，大致是这样的效果。但我想是不是每次要先”全部显示工作本“，才运用这程序，请问要加什么编码？

可以加 Rows.Hidden = False

speed9301

cidanji 发表于 2024-1-16 12:32
可以加 Rows.Hidden = False

谢谢，再次谢谢你这么快回复