Сохранить ширину столбцов при сохранении листов как файлы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Сохранить ширину столбцов при сохранении листов как файлы (Формулы/Formulas)

Aimod

Дата: Понедельник, 17.06.2019, 09:42 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Приветствую! Подскажите, как сохранить ширину столбцов при сохранении листов книги как отдельные файлы? Использую Plex. В исходном файле есть объединенные ячейки, их менять нельзя, там формулы. Здесь и в сети поискал ответы.. ничего не воодушевило. В прикрепленном файле - если создать копию листа ОС-0, сейчас получится как раз то, что получается при сохранении в отдельные файлы.

К сообщению приложен файл: 1886835.xlsx (77.0 Kb)

Сообщение отредактировал Aimod - Понедельник, 17.06.2019, 09:45

Ответить

_Boroda_

Дата: Понедельник, 17.06.2019, 11:18 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Находясь на копируемом листе запустите такой макрос
[vba]

Код

Sub ShirStolb()
    Application.ScreenUpdating = 0
    For i = 1 To Cells(1).SpecialCells(xlLastCell).Column
        Columns(i).ColumnWidth = Columns(i).ColumnWidth
    Next i
    Application.ScreenUpdating = 1
End Sub

[/vba]
Запускаете ОДИН раз. Затем всё будет размножаться нормально

К сообщению приложен файл: 1886835_2.xlsm (82.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Aimod

Дата: Понедельник, 17.06.2019, 13:51 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

_Boroda_, Спасибо!

Ответить

Страница 1 из 1
1