隐藏和取消隐藏Excel行

时间:2018-09-10 03:25:35

标签: excel vba

这是我的要求:

用户将在下拉列表中选择1-10,这将取消隐藏最多10行。让我们将每个要隐藏/显示的组称为“ X”,X由大约13行组成,并且在工作表上垂直堆叠有10个X。因此,例如,当用户选择“ 2”时,它将显示前两个X,而其余的8组行则保持隐藏状态。该代码的这一部分工作正常,但它是背景。

这是无效的部分。在每个“ X”(根据先前的输入现在可以看到的行组)中,用户在页面下方输入信息,当它们下降时,我希望根据输入内容来隐藏/取消隐藏单个X中的某些行。

例如,如果用户输入“住宅状态”作为“出租”,则应取消隐藏一行,说“在这里输入每周租金”。或者,如果他们将其输入为“其他”,则应取消隐藏另一行,说“请发表评论”。

希望这可以澄清

这是我当前的第一个“ X”代码,我想先修复此部分然后复制它:

If Cells(3, 55).Value = "1" Then
    Rows("57:70").EntireRow.Hidden = False 'User selects options 1- 10
    If (Range(C62) = "Renting" Or Range(C62) = "Paying Off Home - Mortgaged To OFI") Then
        Rows("63").EntireRow.Hidden = False
        Rows("64").EntireRow.Hidden = True
    ElseIf (Range(C62) = "" Or Range(C62) = "*") Then
        Rows("63:64").EntireRow.Hidden = True
    ElseIf Range(C62) = "Other" Then
        Rows("63").EntireRow.Hidden = True
        Rows("64").EntireRow.Hidden = False
    End If
End If

0 个答案:

没有答案