小编Ben*_*ben的帖子

我对VBA编程有点新意.我在互联网上阅读了一些东西,但我无法找到我需要或无法使其工作的东西.我的问题:

在单元格B6的工作表"工作表1"中,给出了项目将被利用多少年的值.

在工作表的"表2"和"表3"中,我制作了一个50年的电子表格(第1年到第50年;第7行到第56行).

在'表1'中的单元格b6中,我想输入介于1和50之间的值.当值为49时,我想隐藏'sheet2'和'sheet 3'中的第56行.当值为48时,我想隐藏'sheet2'和'sheet 3'中的行55:56,依此类推.这是我到目前为止所得到的,但当我更改单元格B6中的值时,我无法自动工作:

Sub test1()
    If Range("sheet1!B6") = 50 Then
    Rows("52:55").EntireRow.Hidden = False
    Else
    If Range("sheet1!B6") = 49 Then
    Rows("55").EntireRow.Hidden = True
    Else
    If Range("sheet1!B6") = 48 Then
    Rows("54:55").EntireRow.Hidden = True

    End If: End If: End If:

    End Sub

我希望有人可以帮我解决我的问题.

谢谢