Чтобы заставить UIScrollviews работать с ограничениями, я использую этот подход для ответа здесь . В этом ответе я решаю, как получить прокрутку по вертикали, которая также работает с вращением устройства. Вы можете настроить подход к работе с горизонтальными прокручиваемыми прокрутками. Для прокрутки, которые прокручиваются в обоих направлениях, не добавляйте трюк ограничения ширины соответствия размера. Но сделайте все остальное тем же.
Вместо Range(Selection, Selection.End(xlDown)).Select
можно использовать следующее:
Dim lRow As Long
lRow = Cells.Find("*", Range("A1"), xlFormulas, xlPart, xlByRows, xlPrevious).Row
lRow = номер последней строки
blockquote>Range(Cells(1,1), Cells(lRow, 9)).Select
Отредактировано: скобка отсутствует