[已解决]新手小白，急用，请各位老师帮助！！在某个单元格满足特定数值，自动隐藏另外多行

Eigth-tailedCat

表示是一位新手小白，在看了不少大佬们的VBS，然而还是搞不懂，但有比较急用需要满足：
当单元格F8=2时，第13，14，15，17，18行自动隐藏；
当单元格F8=3时，第14，15，17，18行自动隐藏；
当单元格F8=4时，第13，14，15行自动隐藏；
当单元格F8=5时，第14，15行自动隐藏；
当单元格F8=6时，第13行自动隐藏；

最佳答案

月排行榜 / 总排行榜

limonet

2022-5-21 16:50

Sub ifthen()
    If [F8] = 2 Then
        Range("13:15,17:18").Select
        Selection.EntireRow.Hidden = True
    ElseIf [F8] = 3 Then
        Range("14:15,17:18").Select
        Selection.EntireRow.Hidden = True
    ElseIf [F8] = 4 Then
        Rows("13:15").Hidden = True
    ElseIf [F8] = 5 Then
        Rows("14:15").Hidden = True
    ElseIf [F8] = 6 Then
        Rows(13).Hidden = True
    End If
End Sub
Sub HiddenFalse()
    Rows("11:19").Select
    Selection.EntireRow.Hidden = False
End Sub

跳转到最佳答案楼层

limonet

Sub ifthen()
    If [F8] = 2 Then
        Range("13:15,17:18").Select
        Selection.EntireRow.Hidden = True
    ElseIf [F8] = 3 Then
        Range("14:15,17:18").Select
        Selection.EntireRow.Hidden = True
    ElseIf [F8] = 4 Then
        Rows("13:15").Hidden = True
    ElseIf [F8] = 5 Then
        Rows("14:15").Hidden = True
    ElseIf [F8] = 6 Then
        Rows(13).Hidden = True
    End If
End Sub
Sub HiddenFalse()
    Rows("11:19").Select
    Selection.EntireRow.Hidden = False
End Sub

Eigth-tailedCat

limonet 发表于 2022-5-21 16:50
Sub ifthen()
    If [F8] = 2 Then
        Range("13:15,17:18").Select

非常感谢大佬

Eigth-tailedCat

limonet 发表于 2022-5-21 16:50
Sub ifthen()
    If [F8] = 2 Then
        Range("13:15,17:18").Select

想再问一下大佬，这个该怎么自动运行呢

limonet

Eigth-tailedCat 发表于 2022-5-21 17:30
想再问一下大佬，这个该怎么自动运行呢

这个打开就可以自动运行了。