Private Sub ComboBox1_Change()
Worksheets(1).ScrollArea = ""
End Sub
Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Worksheets(1).ScrollArea = "a1:a2"
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 84