×
×

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

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

Ваше сообщение

Для входа нажмите здесь

 
 

Вы можете выбрать иконку, характеризующую сообщение

Дополнительные опции

  • Преобразит www.example.com в [URL]http://www.example.com[/URL].

Просмотр темы (новые вначале)

  • 14.12.2023, 09:58
    Аноним
    Цитата Сообщение от 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 - размеры примечаний
    Спасибо ОГРОМЕННЕЙШЕЕ!!! Все работает! )
  • 22.09.2023, 11:34
    Аноним
    и еще,как добавить диапазон ячеек в последний код?
  • 22.09.2023, 01:25
    ggwp
    Цитата Сообщение от 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 - положение примечаний относительно ячеек" это только при редактировании,при просмотре примечания(наведении курсора на ячейку) ничего не меняется-примечание всегда появляется справа и чуть выше ячейки..
  • 20.02.2021, 14:27
    Дмитрий 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 - размеры примечаний
    Все получилось гораздо быстрее чем с первым, спасибо гуру Экселя! Радости как будто дерево посадил лично!)))
  • 20.02.2021, 12:44
    Дмитрий 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 нужн, это возможно?
  • 21.01.2021, 16:23
    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 - размеры примечаний
  • 21.01.2021, 16:16
    vikttur Biruk
    Прошу модераторов удалить этот ответ.
  • 21.01.2021, 15:12
    Oyum
    Цитата Сообщение от 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
    Здравствуйте! Спасибо большое за макрос! Я тоже столкнулась с этой проблемой. Но есть еще затыка... А как написать макрос, чтобы и размер окошек примечаний тоже корректировать кнопочкой? Вы можете помочь? Огромное спасибо заранее!!!!!
  • 17.06.2016, 22:33
    vikttur
    Вах...
    Ничего, будем считать, что первые шаги к программированию Вы осилите

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

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

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

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

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

    Вот теперь нежно жмем на кнопочку и наблюдаем за происходящим.
  • 17.06.2016, 21:18
    Таня GH2
    Цитата Сообщение от vikttur Посмотреть сообщение
    В редакторе VBA вставить макрос в общий модуль и запустить выполнение.
    Здравствуйте! Вай-вай-вай....дык это ж наверно для программиста.Я вроде пользователь ничего так,но макросы для меня уже..типа там уже "программист начинается". Вот в бизнеспак там тоже редактор есть,там как то понятно кое что. А тут уж:
    "редакторе VBA"- он где? в компьтере где то чтоль?);
    "вставить макрос в общий модуль "-макрос -это слова,то что вы написали?
    А общий модуль-он где? Ох... Нет,если вы подробно объясните мне -где найти что,я думаю что пойму. Спасибо.Мне так нужно эти примечания добить,чтоб увеличить шрифт...Большущее спасибо,если не оставите мой вопрос без внимания.
  • 13.06.2016, 22:34
    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
  • 03.06.2016, 16:00
    Таня GH2
    Здравствуйте!
    Замучилась менять формат примечаний в каждой ячейке...Где то стоит в настройках что ли у них свой мелкий шрифт для примечаний.. Кто то посоветовал типа мол "копируй " и ячейку...Так мне не нужна эта ячейка,мне нужно примечание просто в других сделать крупно жирно и тд и тп...Как можно исправить эту оплошность,достало уже... В инете по эксель не нашла,вернее не понимают, что мне надо. Пожалуйста помогите, кто грамотен в этом деле.Спасибо огромное заранее.

Ваши права

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