Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Стили комментариев (примечаний) в ячейках и VBA
 
#1
10.09.2021 12:36:27
Добрый день уважаемые!

Столкнулся с проблемой - не могу нигде найти как с помощью VBA поменять стиль комментариев в ячейке (но не всех, а только тех которые соответствуют определенному критерию).

В прилагаемом файле две таблицы: в таблице "Анализ" в столбцах А, Б, В внесены номера, разделенные пробелом.
Макрос проходится по каждой ячейке таблицы "Анализ" и для каждого номера находит нужную строчку в таблице "Данные" и для этого номера склеивает столбцы "Начало", "Конец" и "Описание". После чего создает комментарий в соответствующей ячейке. Т.к. в одной ячейке может быть большое кол-во номеров, то хотелось бы облегчить анализ данных путем выделения в комментарии определенных пунктов другим стилем/цветом/шрифтом и т.п
Например в таблице "Анализ_2" я в ручную выделил подчеркиванием те данные где в "Описание" есть слово "пьем".
 
 
 
#2
10.09.2021 15:23:08
Код
Sub Макрос1()
    Range("A1").Comment.Shape.TextFrame.Characters(7, 5).Font.ColorIndex = 3
End Sub
 
 
 
#3
10.09.2021 15:24:56
У Вас в макросах уже есть всё необходимое.
Получаете объект Shape из комментария, далее месяц ( :) ) исследуете его многочисленные свойства и методы.

Пример макроса, который выделяет первую букву непустого комментария к ячейке жирным шрифтом.
Код
Sub Test()
 Dim oShape As shape
 Set oShape = ActiveCell.Comment.shape
 oShape.TextFrame.Characters(1, 1).Font.Bold = True
End Sub
Владимир
 
 
 
Страницы: 1
Наверх