Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
ActiveWindow.VisibleRange
 
#1
07.10.2011 07:04:41
Всем привет,  
 
Свойство ActiveWindow.VisibleRange.Address можно сохранить в переменную.  
Однако изменить это свойство не возможно, компилятор выдает ошибку "Assingment to constant not permitted" - Назначение константе не допускается.  
 
Вопрос:  
Cуществует ли метод для коллекции ActiveWindow, который конфигурирует окно по размеру, соответствующему адресу диапазона?    
   
Заранее благодарен,  
 
Владимир.
 
 
 
#2
07.10.2011 07:32:39
Привет. Да - Width, Height.
Я сам - дурнее всякого примера! ...
 
 
 
#3
07.10.2011 07:36:36
Привет Сереж, а как спозицировать по диапазону, чтобы .Cells(1,1) была в верхнем левом углу окна?
 
 
 
#4
07.10.2011 07:42:27
Дык, расчетами от верней левой(А1) ячейки до начала диапазона(top,left). И smallscroll. Геморно это. А зачем такое счастье?  
 
11446
Я сам - дурнее всякого примера! ...
 
 
 
#5
07.10.2011 07:49:21
Вот простенький вниз, так же и вправо можно.  
Sub www()  
[a1].Select
ActiveWindow.SmallScroll Down:=Range("A12:N47").Row  
   ActiveWindow.WindowState = xlNormal  
   With ActiveWindow  
       .Width = Range("A12:N47").Width  
       .Height = Range("A12:N47").Height  
   End With  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#6
07.10.2011 07:50:18
Восстановить окно после Zoom. Размеры окна прежние, а вот диапазон скачет.  
Жаль, думал есть вариант проще.
 
 
 
#7
07.10.2011 08:38:18
Тема закрыта.
 
 
 
#8
07.10.2011 11:30:34
Еще Вариант (даже не подозревал о такой возможности).  
Выделить диапазон и ActiveWindow.Zoom = True.    
По размеру диапазона будет подобран масштаб окна.
 
 
 
#9
07.10.2011 13:13:32
{quote}{login=VovaK}{date=07.10.2011 07:50}{thema=}{post}Восстановить окно после Zoom. Размеры окна прежние, а вот диапазон скачет.  
Жаль, думал есть вариант проще.{/post}{/quote}  
 
f попробовать goto ?
 
 
 
#10
07.10.2011 13:56:02
Goto куда?
 
 
 
#11
07.10.2011 15:47:56
application.goto в начало диапазона
Живи и дай жить..
 
 
 
#12
07.10.2011 16:01:09
Привет, Слэн.  
 
Что-то где-то читал в голове не уложилось, не можешь ссылку на пример выложить. Без примера не соображу как оно работает. Вроде тема была про координатное выделение и если память не изменяет был пример от Владимира(ZVI).
 
 
 
#13
07.10.2011 16:11:22
Если не ошибаюсь то вот тут обсуждалось:  
http://www.planetaexcel.ru/forum.php?thread_id=3620&page_forum=1&allnum_forum=54
Редко но метко ...
 
 
 
#14
07.10.2011 17:08:18
Да еще проще, спасибо Антон, спасибо Слэн.  
Строка    
Application.Goto Reference:=ActiveSheet.Range(VisRngAddress), Scroll:=True  
Target.Select  
 
Выделяет ранее сохраненный диапазон и позицирует в начало окна. Следующая снимает выделение. Роскошно...
 
 
 
Страницы: 1
Читают тему
Наверх