根据从下拉列表中选择的数字隐藏单元格

Question

我的工作表中有两组数据 - 第一组是每台机器 1 行，第二组是每台机器 13 行。从下拉框中，用户将从 1、2、3、4、5、10、15、20、25、30 中选择与机器数量相对应的值。

选择一个值时，需要隐藏两个数据集中的相应行。例如，如果用户选择 5，则只会显示机器 1 到 5 的行。

到目前为止，我有以下代码，但想知道是否有一种简化的方法来执行此操作，因为我尚未添加单个值 (1-5)，当值为从下拉列表中选择？

Sub HideRows()

If Range("F19") = "10" Then
    Rows("31:60").EntireRow.Hidden = False
    Rows("84:473").EntireRow.Hidden = False
    Rows("41:60").EntireRow.Hidden = True
    Rows("214:473").EntireRow.Hidden = True
ElseIf Range("F19") = "15" Then
    Rows("31:60").EntireRow.Hidden = False
    Rows("84:473").EntireRow.Hidden = False
    Rows("46:60").EntireRow.Hidden = True
    Rows("279:473").EntireRow.Hidden = True
ElseIf Range("f19") = "20" Then
    Rows("31:60").EntireRow.Hidden = False
    Rows("84:473").EntireRow.Hidden = False
    Rows("51:60").EntireRow.Hidden = True
    Rows("344:473").EntireRow.Hidden = True
ElseIf Range("f19") = "25" Then
    Rows("31:60").EntireRow.Hidden = False
    Rows("84:473").EntireRow.Hidden = False
    Rows("56:60").EntireRow.Hidden = True
    Rows("409:473").EntireRow.Hidden = True
ElseIf Range("f19") = "30" Then
    Rows("31:60").EntireRow.Hidden = False
    Rows("84:473").EntireRow.Hidden = False
End If
End Sub

谢谢

Answer 1

我提供了一个更通用的解决方案。您需要在工作表的模块中使用 WOrksheet_Change

参考：http://msdn.microsoft.com/en-us/library/office/ff839775(v=office.15).aspx

Private Sub Worksheet_Change(ByVal Target As Range)
Debug.Print Target.Address

If Target.Address = "$A$1" Then 'change the address to the dropdown box cell you have
    Debug.Print Target.Value
    NumMachineShow = CLng(Target.Value)
    Cells.EntireRow.Hidden = False ' reset, unhidden every row first
    Rows(31 + NumMachineShow & ":60").EntireRow.Hidden = True ' hide the unwanted 1 row per machine here
    Rows(61 + NumMachineShow * 13 & ":473").EntireRow.Hidden = True ' hide the detail, you need to modify the numbers yourself
End If

End Sub