Примечания в экселе -формат сразу на все ячейки

Здравствуйте!
Замучилась менять формат примечаний в каждой ячейке...Где то стоит в настройках что ли у них свой мелкий шрифт для примечаний.. Кто то посоветовал типа мол "копируй " и ячейку...Так мне не нужна эта ячейка,мне нужно примечание просто в других сделать крупно жирно и тд и тп...Как можно исправить эту оплошность,достало уже... В инете по эксель не нашла,вернее не понимают, что мне надо. Пожалуйста помогите, кто грамотен в этом деле.Спасибо огромное заранее.

В редакторе VBA вставить макрос в общий модуль и запустить выполнение.
Будет изменен шрифт всех примечаний указанного диапазона

Код:

---

Sub FormatComments()
Dim rRng As Range
Dim c
    ' диапазон для проверки и изменения формата комментариев
    Set rRng = Range("A1:K20")

    For Each c In rRng ' просматриваем ячейки диапазона
        If Not c.Comment Is Nothing Then  ' если есть комментарий
            ' меняем параметры шрифта
            With c.Comment.Shape.TextFrame.Characters.Font
                .Size = 12
                .Name = "Arial"
                .FontStyle = "полужирный"
            End With
        End If
    Next c
   
    Set rRng = Nothing
End Sub

---

Цитата:

---

Сообщение от vikttur

В редакторе VBA вставить макрос в общий модуль и запустить выполнение.

---

Здравствуйте! Вай-вай-вай....дык это ж наверно для программиста.Я вроде пользователь ничего так,но макросы для меня уже..типа там уже "программист начинается". Вот в бизнеспак там тоже редактор есть,там как то понятно кое что. А тут уж:
"редакторе VBA"- он где?:( в компьтере где то чтоль?);
"вставить макрос в общий модуль "-макрос -это слова,то что вы написали?
А общий модуль-он где? Ох...:redface: Нет,если вы подробно объясните мне -где найти что,я думаю что пойму. Спасибо.Мне так нужно эти примечания добить,чтоб увеличить шрифт...Большущее спасибо,если не оставите мой вопрос без внимания.

Вах...
Ничего, будем считать, что первые шаги к программированию Вы осилите:)

VBA - язык программирования, применяемый в продуктах Microsoft Office.
Макросы пишутся и хранятся в редакторе VBA. Он в Офисе есть везде и всюду, но до него еще добраться нужно.

Открыть файл, в котором нужно мучить примечания.
Для начала нужно пересохранить книгу с расширением, которое поддерживает макросы. Если у файла расширение Excel-2003 и старше (.xls), то ничего пересохранять не нужно. Если же сейчас .xlsx, нужно файл сохранить с расширением .xlsm или .xlsb
Сделали, открыли.

Нажать Alt+F11 - и Вы в святая святых макросов, в редакторе кода! :)
Слева должно отображаться дерево проекта (см. приложение). Если открыто несколько файлов Excel, будет видно несколько деревьев. Обычно дерево, которое мы знаем: папка-подпапки-подпапки-...-файлы. Здесь даже проще: название проекта (в нем есть имя файла), под плюсиком модули листов и модуль книги. Все. Если c макросами в этом файле не колдовали, то больше ничего нет.
В модуле книги пишутся процедуры для обработки событий уровня книги, в модулях листов - уровня листа. Нам все это не нужно. Нам нужен макрос, который можно запустить кнопулькой какой-нибудь.

Находим сверху на панели кнопку Insert, жмем, под кнопкой в выпадающем меню клик на Module - о чудо! в дереве появился новый модуль. Вот это и есть хранилище для всяческих макросов, общий модуль. Открываем эту папочку. Справа - девственно чистое поле. Пиши - не хочу: макросы, функции...
Вот в это поле и нужно вставить макрос, копированный из сообщения.
Пол-дела сделано.
Закрываем редактор. Можно, как обычно - крестик закрытия окошка. Редактор VBA закроется, но Excel открыт. Чтобы не потерять сделанное, сохраняем, да?

Теперь нужно придумать, как их, эти странные закорючки, попросить работать.
Можно через меню Разработчик-Макросы-(в списке выделить нужный)-Выполнить. Но этой закладки может не быть на виду.
Поступаем проще: Вставка-Фигуры- выбираем ту, что по душе, вставляем.
Вставить нужно на тот лист, в котором предполагается обрабатывать примечания (макрос написан для активного листа).
Правый клик на вставленной фигуре-Назначить_макрос-(в списке выбрать нужный- FormatComments)-ОК. Сохранить не забыли? Правильно.

Вот теперь нежно жмем на кнопочку и наблюдаем за происходящим.

Цитата:

---

Сообщение от vikttur

В редакторе VBA вставить макрос в общий модуль и запустить выполнение.
Будет изменен шрифт всех примечаний указанного диапазона

Код:

---

Sub FormatComments()
Dim rRng As Range
Dim c
    ' диапазон для проверки и изменения формата комментариев
    Set rRng = Range("A1:K20")

    For Each c In rRng ' просматриваем ячейки диапазона
        If Not c.Comment Is Nothing Then  ' если есть комментарий
            ' меняем параметры шрифта
            With c.Comment.Shape.TextFrame.Characters.Font
                .Size = 12
                .Name = "Arial"
                .FontStyle = "полужирный"
            End With
        End If
    Next c
   
    Set rRng = Nothing
End Sub

---

---

Здравствуйте! Спасибо большое за макрос! Я тоже столкнулась с этой проблемой. Но есть еще затыка... А как написать макрос, чтобы и размер окошек примечаний тоже корректировать кнопочкой? Вы можете помочь? Огромное спасибо заранее!!!!!

Прошу модераторов удалить этот ответ.

Код:

---

Sub SizeAndFixComments()
    Dim oComm As Comment

    For Each oComm In ActiveSheet.Comments
        With oComm
            .Shape.Top = .Parent.Cells.Top - 10
            .Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
            .Shape.Height = 50
            .Shape.Width = 110
        End With
    Next oComm
End Sub

---

Top, Left - положение примечаний относительно ячеек
Height, Width - размеры примечаний

Цитата:

---

Сообщение от vikttur

В редакторе VBA вставить макрос в общий модуль и запустить выполнение.
Будет изменен шрифт всех примечаний указанного диапазона

Код:

---

Sub FormatComments()
Dim rRng As Range
Dim c
    ' диапазон для проверки и изменения формата комментариев
    Set rRng = Range("A1:K20")

    For Each c In rRng ' просматриваем ячейки диапазона
        If Not c.Comment Is Nothing Then  ' если есть комментарий
            ' меняем параметры шрифта
            With c.Comment.Shape.TextFrame.Characters.Font
                .Size = 12
                .Name = "Arial"
                .FontStyle = "полужирный"
            End With
        End If
    Next c
   
    Set rRng = Nothing
End Sub

---

---

Здравствуйте. Спасибо большое за макрос. Он меняет уже существующие примечания, вопрос другого рода, как возможно сделать что бы каждое новое примечание которое Я добавляю, было большего размера по умолчанию стоит 9, а мне скажем 16 нужн, это возможно?

Цитата:

---

Сообщение от vikttur

Код:

---

Sub SizeAndFixComments()
    Dim oComm As Comment

    For Each oComm In ActiveSheet.Comments
        With oComm
            .Shape.Top = .Parent.Cells.Top - 10
            .Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
            .Shape.Height = 50
            .Shape.Width = 110
        End With
    Next oComm
End Sub

---

Top, Left - положение примечаний относительно ячеек
Height, Width - размеры примечаний

---

Все получилось гораздо быстрее чем с первым, спасибо гуру Экселя! Радости как будто дерево посадил лично!)))

Цитата:

---

Сообщение от vikttur

Код:

---

Sub SizeAndFixComments()
    Dim oComm As Comment

    For Each oComm In ActiveSheet.Comments
        With oComm
            .Shape.Top = .Parent.Cells.Top - 10
            .Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
            .Shape.Height = 50
            .Shape.Width = 110
        End With
    Next oComm
End Sub

---

Top, Left - положение примечаний относительно ячеек
Height, Width - размеры примечаний

---

"Top, Left - положение примечаний относительно ячеек" это только при редактировании,при просмотре примечания(наведении курсора на ячейку) ничего не меняется-примечание всегда появляется справа и чуть выше ячейки..

и еще,как добавить диапазон ячеек в последний код?

Цитата:

---

Сообщение от vikttur

Код:

---

Sub SizeAndFixComments()
    Dim oComm As Comment

    For Each oComm In ActiveSheet.Comments
        With oComm
            .Shape.Top = .Parent.Cells.Top - 10
            .Shape.Left = .Parent.Cells.Left + .Parent.Cells.Width + 10
            .Shape.Height = 50
            .Shape.Width = 110
        End With
    Next oComm
End Sub

---

Top, Left - положение примечаний относительно ячеек
Height, Width - размеры примечаний

---

Спасибо ОГРОМЕННЕЙШЕЕ!!! Все работает! )