EXCEL VB带我到excel的最底层

时间:2016-03-24 23:04:43

标签: excel vba excel-vba

这是我第一次使用Macros。我在A52" A52"中创建了一个下拉列表。和" A122"用" BLACK"和" WHITE"选项。

如果选择A52" WHITE",则行59-61隐藏 如果选择A52" BLACK",则行56-58隐藏 如果在A122上选择了副Versa。

唯一的问题是光标和excel视图会在每次选择下拉时将我带到126-127行。它确实隐藏了相应的行,每次都把我带到底部。

非常感谢任何提示和技巧。谢谢!

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A52") = "WHITE" Then
    Rows("59:61").EntireRow.Hidden = True
    Else
    Rows("59:61").EntireRow.Hidden = False
End If

If Range("A52") = "BLACK" Then
    Rows("56:58").EntireRow.Hidden = True
    Else
    Rows("56:58").EntireRow.Hidden = False
End If

If Range("A122") = "WHITE" Then
    Rows("124:125").EntireRow.Hidden = True
    Else
    Rows("124:125").EntireRow.Hidden = False
End If

If Range("A122") = "BLACK" Then
    Rows("126:127").EntireRow.Hidden = True
    Else
    Rows("126:127").EntireRow.Hidden = False
End If

End Sub

1 个答案:

答案 0 :(得分:0)

我运行你的宏,光标仍然在我选择的单元格上。您确定宏中没有更多代码行吗?