×
×
+ Ответить в теме
Показано с 1 по 9 из 9
  1. #1
    Клерк
    Регистрация
    10.04.2015
    Сообщений
    522

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

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

  2. #2
    Клерк
    Регистрация
    17.12.2010
    Сообщений
    169
    В редакторе 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

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

  4. #4
    Клерк
    Регистрация
    17.12.2010
    Сообщений
    169
    Вах...
    Ничего, будем считать, что первые шаги к программированию Вы осилите

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

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

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

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

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

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

  5. #5
    Клерк
    Регистрация
    21.01.2021
    Сообщений
    1

    Помогите ПОМОГИТЕ!

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

  6. #6
    Клерк
    Регистрация
    10.06.2019
    Сообщений
    2
    Прошу модераторов удалить этот ответ.

  7. #7
    Клерк
    Регистрация
    17.12.2010
    Сообщений
    169
    Код:
    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; 21.01.2021 в 16:28.

  8. #8
    Дмитрий exel
    Гость

    Информация Работает , но.

    Цитата Сообщение от 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 нужн, это возможно?

  9. #9
    Дмитрий exel
    Гость

    Вверх Получилось ! ОГОНЬ!

    Цитата Сообщение от 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 - размеры примечаний
    Все получилось гораздо быстрее чем с первым, спасибо гуру Экселя! Радости как будто дерево посадил лично!)))

+ Ответить в теме

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права

  • Вы можете создавать новые темы
  • Вы можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •