Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Растянуть столбец, не выходя за границы страницы
 
#1
12.10.2021 08:45:44
Доброго дня уважаемые знатоки VBA!

В прикрепленном файле, кодом
Код
Sub rast()  
   Columns("A:A").ColumnWidth = 60.71
End Sub

растягиваю столбец "А" так, чтобы последний столбец таблицы, а именно столбец E не выехал за установленные границы страницы (пунктирная синяя линия).
Было так, после выполнения макроса стало так.
В моем случае это значение 60,71.
Но дело в том, что столбцы В,С,D,E могут быть разные по размеру в разных документах.
Вопрос - что прописать в коде вместо 60,71, чтобы макрос автоматом максимально растягивал бы столбец А и при этом столбец Е не вылезал бы за границы страницы, независимо от размеров столбцов В,С,D,E.

Спасибо
 
 
 
#2
12.10.2021 09:25:32
Ну, видимо сначала определять сумму значений "ширин" столбцов с В по Е, затем брать ширину листа до пунктирной линии и отнимать от этого значения сумму "ширин" В:Е.
Кому решение нужно - тот пример и рисует.
 
 
 
#3
12.10.2021 10:28:10
пробуйте этим:
Код
Sub rast()
  Dim w, c&, i&, dw, noc
  c = ActiveSheet.VPageBreaks(1).Location.Column
  w = Columns(c).ColumnWidth
  Do
    Columns(c).ColumnWidth = Columns(c).ColumnWidth / 2
    If Columns(c).ColumnWidth < 0.02 Then Exit Do
    DoEvents
  Loop Until ActiveSheet.VPageBreaks(1).Location.Column <> c
  noc = Columns(c).ColumnWidth < 0.02
  For i = 6 To c + IIf(noc, -1, 0)
    dw = dw + Columns(i).ColumnWidth
  Next
  If Columns(c).ColumnWidth <> w Then Columns(c).ColumnWidth = w
  Columns(1).ColumnWidth = Columns(1).ColumnWidth + dw
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#4
12.10.2021 11:27:44
Игорь спасибо большое, всё как доктор прописал.

Закрываем тему
Изменено: grh1 - 12.10.2021 11:29:39
 
 
 
#5
22.11.2021 20:10:46
Уважаемый Игорь Гончаренко, доброго Вам дня!
Прошу помочь с Вашим макросом... какие-то чудеса происходят... Есть два совершенно одинаковых файла - в одном файле макрос РАБОТАЕТ, в другом НЕ работает.

Прошу Вас посмотреть ИМЕННО второй не рабочий файл - в чем там причина, и если можно подправьте пожалуйста код.


Спасибо
Изменено: grh1 - 22.11.2021 20:14:27
 
 
 
#6
22.11.2021 20:53:00
grh1, скачал ваш файл "не работает" и запустил макрос, у меня вот так получилось, см. фото
 
 
 
#7
23.11.2021 12:38:00
Разобрался в чем причина...
нужно чтобы стоял СТРАНИЧНЫЙ РЕЖИМ и диапазон границы чтобы выходил за границу страницы и тогда всё работает.
 
 
 
Страницы: 1
Наверх