Note: The other languages of the website are Google-translated. Back to English

Как автоматически изменить размер поля комментария, чтобы он соответствовал его содержимому в Excel?

Когда вы вставляете комментарии в ячейки, размер поля комментариев устанавливается по умолчанию. Если вы введете в него много содержимого, часть содержимого не будет видна напрямую. Можно ли автоматически подогнать размер поля комментария к его содержимому?

Автоматическое изменение размера окна комментария по размеру его содержимого на листе
Автоматическое изменение размера окна комментария для размещения его содержимого в диапазоне ячеек
Простое автоматическое изменение размера окна комментариев, чтобы оно соответствовало его содержанию на активном листе или на всем листе с помощью удивительного инструмента


Автоматическое изменение размера окна комментария по размеру его содержимого на листе

В Excel вы можете вручную перетащить поле комментариев до нужного размера вручную, но если необходимо изменить размер множества полей для комментариев, этот способ будет утомительным и трудоемким. В этом случае вы можете применить следующий код VBA.

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Окно модуля.

Код VBA: автоматическое изменение размера полей комментариев на листе

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Затем нажмите F5 ключ для запуска этого кода, и все поля комментариев на активном листе были изменены, чтобы соответствовать их содержимому, как показано на следующем снимке экрана:

автоматический размер документа комментарий 1

Функции: Этот код работает только на текущем листе, и он не может автоматически изменять размер новых полей комментариев, которые вы добавляете.


Один щелчок, чтобы быстро подогнать размер поля комментария к его содержимому в Excel автоматически:

Компания Автозаполнение комментария полезности Kutools for Excel может помочь быстро подогнать размер поля комментария к его содержимому на листе, как показано в демонстрации ниже. Скачайте и попробуйте прямо сейчас! (30-дневная бесплатная трасса)


Автоматическое изменение размера окна комментария для размещения его содержимого в диапазоне ячеек

Если вам просто нужно автоматически изменить размер диапазона полей комментариев к ячейкам, вы можете использовать следующий код VBA.

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Окно модуля.

Код VBA: автоматическое изменение размера полей комментариев в диапазоне ячеек

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Затем нажмите F5 нажмите клавишу для выполнения этого кода, и появится окно подсказки, напоминающее вам о выборе диапазона ячеек, размер которых вы хотите изменить в полях комментариев, см. снимок экрана:

doc-resize-comment-box3

4. Затем щелкните OK, поля комментариев выбранных вами ячеек были автоматически подогнаны под содержание комментария.

Функции: Этот код не может автоматически изменять размер новых полей комментариев, которые вы добавляете.


Автоматическое изменение размера окна комментариев в соответствии с его содержимым на активном листе или на всем листе 

Вы можете попробовать Комментарий AutoFit полезности Kutools for Excel для автоматического изменения размераЗаполните поля комментариев на активном листе или на всех листах в Excel. Пожалуйста, сделайте следующее.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Для автоматического изменения размера полей комментариев в соответствии с их содержимым на активном листе щелкните Кутулс > Больше > Комментарий AutoFit > Активный лист.

И если вы хотите автоматически изменить размер всех полей комментариев во всей книге, нажмите Кутулс > Больше > Комментарий AutoFit > Все листы. Смотрите скриншот:

Затем размер всех полей комментариев автоматически изменяется в соответствии с их содержимым. Смотрите скриншот:

Заметки:

  • 1. После автоматического изменения размеров полей комментариев при повторном редактировании комментария поле комментария автоматически расширяется или сжимается вместе с содержимым.
  • 2. Для новых вставленных комментариев вам необходимо снова включить эту утилиту AutoFit comment, чтобы изменить размер всех новых вставленных полей комментариев.

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


Поле для комментариев автоматически изменяет размер в соответствии с его содержимым


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (18)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо. Простое и быстрое решение моей проблемы.
Этот комментарий был сведен к минимуму модератором на сайте
Используя ваш код 1. Затемните xComment как комментарий для каждого xComment в Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Далее 2. возникает проблема с этой ошибкой 445 ссылка на объект с диапазоном ("A1").Comment.Shape. TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape Конец с
Этот комментарий был сведен к минимуму модератором на сайте
Это не сработало, как первый код, который вы отправили, он подходит только для содержимого, которое я хочу, - это то, что сделает их все одинаковой ширины, а длина будет автоматически соответствовать содержимому, так как столбец H выглядит прямо сейчас, а столбец A варьируется в размер ширины должен иметь ширину столбца A в три столбца и длину, чтобы соответствовать содержимому и увеличиваться по мере необходимости, когда вы нажимаете ввод, длина поля должна увеличиваться на строку, есть ли для этого код? обратите внимание, что я попробовал оба кода ключа на той странице, которую вы отправили последней.
Этот комментарий был сведен к минимуму модератором на сайте
это вообще не сработало. Я неоднократно получал ошибку.
Этот комментарий был сведен к минимуму модератором на сайте
Я получаю сообщение об ошибке: Время выполнения «1004»: метод AutoSize объекта TextFrame не удалось
Этот комментарий был сведен к минимуму модератором на сайте
«Код VBA: автоматическое изменение размера полей комментариев на листе» позаботился о комментариях моей электронной таблицы. Огромное спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Хорошо! Решил мою проблему.
Этот комментарий был сведен к минимуму модератором на сайте
Это действительно хорошая и полезная информация. Я рад, что вы поделились с нами этой полезной информацией. Пожалуйста, держите нас в курсе, как это. Спасибо, что поделился. kdagekebecedded
Этот комментарий был сведен к минимуму модератором на сайте
Пока код работает, он делает поле высотой в одну строку, что означает, что большие комментарии исчезают где-то за пределами страницы. Не могли бы вы дать код для фиксации ширины каждого поля (скажем, три стандартных ширины столбца Excel) и автоматической настройки длины поля для соответствия тексту? Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Большое тебе спасибо. Это действительно избавило меня от многих проблем.
Этот комментарий был сведен к минимуму модератором на сайте
@DENNIE «Хотя код работает, он делает поле высотой в одну строку, что означает, что большие комментарии куда-то исчезают за пределами страницы. Не могли бы вы дать код для фиксации ширины каждого поля (скажем, три стандартных ширины столбца Excel) и автонастройка длина блока, чтобы вместить текст? Спасибо." // Согласованный
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо, что поделились этим. Действительно полезно!
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ сделать линию от поля комментария к ячейке темнее или толще?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Демондрю,
Извините, я могу помочь вам в этом.
Этот комментарий был сведен к минимуму модератором на сайте
Я предполагаю, что Кристал сбил нас с пути, вопрос был таков: есть ли способ сделать линию от поля комментария к ячейке темнее или толще? Это будет линия, окружающая поле комментария. ТИА ДД
Этот комментарий был сведен к минимуму модератором на сайте
удивительно! спасибо, первый способ работает! сэкономил мне часы работы!
Этот комментарий был сведен к минимуму модератором на сайте
Не работает, модуль вставки не отображается
Этот комментарий был сведен к минимуму модератором на сайте
Бом-диа,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais де 10 mil comentários pra arrumar о tamanho да caixa! Se tivesse pix eu até pagava! Обригадо.
Здесь еще нет комментариев
Пожалуйста, оставляйте свои комментарии на английском языке
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL