Как получить рабочий диапазон рабочей области

Question

Есть ли способ получить видимый диапазон рабочих областей в VBA?

Под этим я имею в виду диапазон ячеек, которые в настоящее время видны в пределах окна приложения. Таким образом, прокрутка по вертикали или по горизонтали будет изменять видимые ячейки.

Причина, по которой я спрашиваю, что у меня есть код, который после выбора ячейки в пределах определенного диапазона, после вычисления выбор ячейки вернется к предыдущему диапазону. Однако, если предыдущий диапазон «с экрана» Я хотел бы, чтобы указать новую клетку-мишень, чтобы активировать ...

Answer 1

Рассмотрим:

Sub Macro1() 
    Dim r As Range 
    Dim s As String 
    Set r = ActiveWindow.VisibleRange 
    s = r.Address 
    MsgBox (s) 
End Sub