У Гэри есть рабочая тетрадь с двенадцатью рабочими листами, по одному на каждый месяц.

Он поместил информацию на этих листах так, чтобы она умещалась на его экране. В какой-то момент он открывает свою рабочую книгу и обнаруживает, что ширина столбцов за июнь увеличилась так, что все они не помещаются на его экране. Расширяются только столбцы за июнь, но высота строк на всех листах будет увеличена с 12,75 до 13,50. Если Гэри изменит размер всего обратно, чтобы оно еще раз соответствовало его экрану, все будет хорошо в течение недели или около того, а затем изменение размера произойдет снова.

Неясно, что может вызвать эту проблему, но есть несколько вещей, которые вы можете проверить. Если книга хранится в сети, где к ней могут получить доступ другие люди, возможно, изменение происходит, когда книга открыта у кого-то другого. Кроме того, если книга открыта на разных машинах, может случиться так, что другие машины, на которых она открыта, могут влиять на книгу, при условии, что на них установлены разные разрешения экрана или разные шрифты принтера.

Если вы не уверены в причине, возможно, лучшим решением будет создание макроса, который запускается автоматически при открытии книги. Этот макрос может просматривать рабочие листы и устанавливать ширину столбцов и высоту строк, которые вам нужны. Следующий макрос выполнит эти шаги:

Private Sub Workbook_Open()

Dim wSheet As Worksheet

For Each wSheet In Worksheets         ' Change to the columns you need         Columns("A:M").Select         ' Change to the width you need         Selection.ColumnWidth = 12

' Change to the rows you need         Rows("1:15").Select         ' Change to the height you need         Selection.RowHeight = 13     Next wSheet End Sub

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (3175) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Random_Width_and_Height_Changes [Случайные изменения ширины и высоты].