Question

excel中如何用VB按钮来显示行

excel中如何用VB按钮来显示行
具体要求如下：
1、在excel中第一行添加一个按钮；
2、隐藏10至100行；
3、点击按钮，显示1至10行，再点击按钮，显示1至11行，再点击按钮，显示1至12行如此类推，直到显示1至100行为止。

Vb代码：
Sub 按钮1_Click()
Rows("10:100").Hidden = True
Static n As Long
n = n + 1
Rows(n).Hidden = False
End Sub

结果运行：每次点击按钮，只显示相应行数，如点击按钮3次，只显示第12行。与要求不符！请高手指教，谢谢！

Answer 1

Public k

Sub test()
k = k + 1
If k = 1 Then
Rows("10:100").Hidden = True
Else
Range("a1:a" & (9 + k)).EntireRow.Hidden = False
End If
End Sub
就是这么简单，编程将就的是思路，有了思路，如果有点基础，代码自然就成了！

追问

你给我一个新思路，开阔了思维。谢谢yianxss，希望日后多多支持新手。
根据测试，该宏只能隐藏，不能显示，估计 Range("a1:a" & (9 + k)).EntireRow.Hidden = False 语句有误。
还是谢谢yianxss！！

Answer 2

Dim i As Long, n As Long    'i与n在通用部分定义
Sub 按钮1_Click()
    Rows("10:100").Hidden = True
    For i = 1 To 10 + n
        Rows(i).Hidden = False
    Next i
    n = n + 1
End Sub