Комментарий в макросе excel как сделать

VBA Комментарий — Как комментировать в Excel с помощью VBA (с примерами)

Комментирование строки в VBA — очень простая, но полезная опция с точки зрения программистов. Иногда нам часто трудно прокомментировать какую-либо строку, независимо от того, насколько мы хороши в программировании. Комментарии могут использоваться, чтобы передать инструкции пользователю о коде или функции или некоторых утверждениях на языке неспециалистов. Это облегчает жизнь пользователям / программистам, потому что эти коды могут быть хорошей информацией о том, о чем этот код и как его можно использовать, или как некоторые операторы / функции связаны друг с другом.

В этой статье мы увидим разные способы комментирования одной строки и группы строк.

Как комментировать, используя VBA?

Давайте посмотрим примеры комментирования в Excel VBA.

Вы можете скачать этот шаблон Excel с комментариями VBA здесь — Шаблон Excel с комментариями VBA

Пример # 1 — Комментирование отдельной строки с использованием апострофа / одиночной кавычки (‘)

Любой текст, сопровождаемый апострофом, рассматривается как комментарий в VBA, и он будет исключен из выполнения основного кода.

Шаг 1. Вставьте новый модуль в редактор Visual Basic (VBE).

Шаг 2: Определите подпроцедуру во вновь вставленном модуле, чтобы создать макрос в VBE.

Код:

Шаг 3: Напишите любой фрагмент текста в созданном макросе. Я напишу строку «Это комментарий, который будет добавлен».

Код:

Шаг 4: Перед первым словом этой строки вставьте апостроф (одиночная кавычка), чтобы сделать эту строку комментарием.

Код:

Шаг 5: Как только вы вставите апостроф перед первым словом вашей строки, он станет зеленым. Это означает, что строка закомментирована. Смотрите скриншот ниже:

Код:

Шаг 6: Вы можете добавить комментарий где-нибудь в середине вашего кода, используя апостроф. Смотрите пример скриншота ниже:

Код:

Если вы видите этот фрагмент кода, в MsgBox есть текст, который нужно выложить в окне сообщения, а затем есть строка комментария, которая говорит, что это строка комментария, которую нужно добавить.

Шаг 7: Нажмите F5 или кнопку Run, чтобы запустить код вручную и увидеть результат, как показано на скриншоте ниже:

Пример №2 — Комментирование отдельной строки с использованием ключевого слова REM в VBA

Это наименее рекомендуемый метод, потому что у него есть свои подводные камни. Давайте посмотрим, как это работает:

Шаг 1: Вставьте новый модуль в VBE.

Шаг 2: Определите подпроцедуру для создания макроса.

Код:

Шаг 3: Добавьте строку текста, которую вы хотели закомментировать из кода. Я возьму строку «Это строка комментария».

Код:

Шаг 4: Используйте ключевое слово REM в начале вашей строки, и оно будет преобразовано в комментарий.

Код:

У REM есть свои подводные камни.

• Это ключевое слово не позволяет вам добавлять комментарии где-либо в середине вашего кода.
• Для правильной оценки комментария всегда требуется хотя бы один пробел между REM и вашей строкой текста.

Пример № 3 — Комментирование одной строки — Комментарий / Раскомментировать

Используя этот метод, вам не нужно вводить апостроф в начале вашего текста, все, что вам нужно, это нажать на кнопку комментария, которая находится в верхней части панели VBA.

Шаг 1: Вставьте новый модуль и определите новую подпроцедуру для создания макроса.

Код:

Шаг 2: Добавьте строку комментария, которую вы хотите пропустить при выполнении кода.

Код:

Шаг 3: Теперь поместите курсор мыши в любое место строки, которую вы хотите закомментировать.

Код:

Шаг 4: Нажмите View под самой верхней панелью VBE.

Шаг 5. Перейдите к панелям инструментов и выберите « Редактировать».

Шаг 6: Вы увидите новую панель переключения в VBE, как показано ниже, где видны две кнопки для комментариев и раскомментирования.

Шаг 7: Нажмите на кнопку «Комментарий» и увидите комментируемую строку текста.

Это несколько методов, с помощью которых мы можем прокомментировать одну строку в VBA. Давайте посмотрим, как мы можем прокомментировать группу строк в VBA.

Пример № 4 — Комментирование группы строк в VBA

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

Однако есть способ сделать это одним выстрелом.

Шаг 1: Предположим, у вас есть несколько строк комментариев, как показано ниже:

Код:

Теперь, эти три строки, я хочу сделать комментарий. Вы уже видели панель переключения редактирования, на которой есть кнопка Комментарий / Раскомментировать.

Шаг 2: Выберите все строки, которые вы хотели закомментировать, и нажмите кнопку «Комментарий» на панели переключения «Изменить». Вы увидите вывод, как показано ниже:

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

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

То, что нужно запомнить

• Одна строка может быть закомментирована с использованием апострофа или ключевого слова REM. Размещение их в начале строки.
• Для блока текстовой строки кнопка Комментарий / Раскомментировать удобна для комментирования / раскомментирования блока строк.
• Апостроф можно использовать где угодно в середине кода. В этом случае строка рядом с апострофом будет рассматриваться как комментарий.
• REM Не может использоваться нигде в линии. Используя это ключевое слово, вы можете только закомментировать текст в начале строки.

Рекомендуемые статьи

Это руководство к комментариям VBA. Здесь мы обсудим, как использовать Comment в Excel VBA, а также несколько практических примеров и загружаемый шаблон Excel. Вы также можете просмотреть наши другие предлагаемые статьи —

Комментарии в Excel VBA (добавление, удаление, блокирование комментариев)

При работе с кодированием VBA в Excel вы можете легко добавлять комментарии во время написания кода.

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

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

А поскольку это комментарий, VBA игнорирует его при выполнении кода.

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

Добавление комментариев в VBA в Excel

Чтобы добавить комментарий в VBA, просто добавьте знак апострофа перед строкой, которую вы хотите пометить как комментарий.

Все, что находится после знака апострофа в этой строке, будет считаться комментарием, и VBA превратит его в зеленый цвет (чтобы визуально отличить его от обычного кода)

Добавить комментарий в VBA можно двумя способами:

1. Добавьте комментарий в отдельной строке, где эта строка начинается с апострофа, а после него следует текст комментария.
2. Добавьте комментарий как часть обычной строки кода, где после кода у вас есть пробел, за которым следует апостроф, а затем комментарий (как показано ниже)

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

Другой (старый) метод добавления комментария состоит в том, чтобы за комментарием следовало слово «Рем».

Здесь Рем — сокращение от Remark.

Rem использовался во времена BASIC и сохранился в текущих версиях VBA. Хотя хорошо знать, что он существует, я рекомендую вам использовать только метод апострофа при добавлении комментариев в VBA.

Преобразование строки кода (или блока кода) в комментарий

Иногда вам может потребоваться преобразовать существующую строку кода (или блок кода) в комментарии.

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

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

Для строки (или даже нескольких строк) лучше вручную добавить апостроф перед этими строками.

Но если у вас большой блок кода, используйте следующие шаги, чтобы добавить опцию преобразования всего блока кода в комментарий:

1. Перейдите на вкладку «Просмотр».
2. Перейдите к опции панели инструментов.
3. Когда вы наведете на него курсор, вы увидите больше вариантов.
4. Нажмите на опцию Edit. Панель инструментов редактирования появится где-нибудь на экране.
5. Перетащите панели инструментов редактирования в область панели инструментов, чтобы они закрепились там (в случае, если они еще не закреплены).
6. Выберите блок кода, который вы хотите закомментировать
7. Нажмите на опцию «Блок комментариев» на панели инструментов.

Вышеупомянутые шаги мгновенно преобразовали бы блок кода в комментарии, добавив апостроф перед каждой строкой в ​​этом коде.

Если вы хотите удалить комментарий и преобразовать его обратно в обычные строки кода, выберите этот блок кода еще раз и нажмите на опцию «Uncomment block» на панели инструментов Edit.

Изменение цвета комментария в Excel VBA

Хотя VB не допускает большого форматирования, он позволяет при желании изменить цвет комментария.

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

Ниже приведены шаги по изменению цвета комментария в Excel VBA:

1. Откройте редактор Visual Basic
2. Выберите в меню пункт Инструменты.
3. Нажмите на Параметры
4. В диалоговом окне «Параметры» перейдите на вкладку «Формат редактора».
5. В параметрах цветов кода выберите Текст комментария.
6. Измените цвет переднего плана и / или фона
7. Закройте диалоговое окно

Когда вы меняете цвет комментария, он также изменяет цвет для всех существующих комментариев в вашем коде.

Некоторые рекомендации при работе с комментариями в VBA

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

1. Сделайте комментарий содержательным и добавьте контекст. Добавляя комментарий, подумайте, что было бы полезно для нового пользователя, который никогда не видел этот код и пытается разобраться в нем.
2. Избегайте чрезмерного комментирования, так как это может сделать ваш код немного загроможденным. Если вы новичок, то можете добавлять больше комментариев, но по мере того, как вы набираетесь опыта в кодировании VBA, вам все равно не нужно будет добавлять много комментариев.
3. Для каждой новой подпрограммы или функции рекомендуется добавлять комментарий, объясняющий, что они делают.
4. При работе со сложным кодом рекомендуется добавлять комментарии перед условиями и циклами, чтобы вам было легче понять, что вы сделали, когда вы повторно просматриваете код (или когда кто-то другой просматривает код)

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

Комментарий в макросе excel как сделать

Среда разработки макросов в Excel Microsoft Visual Basic for Applications, мягко говоря, не является самой удобной средой разработки. Сравнивать его с Visual Studio просто нельзя – это как сравнить текстовые редакторы Блокнот и Word. Но пользоваться Microsoft Visual Basic for Applications иногда нужно, потому приходится адаптироваться.

Столкнулся с необходимостью закомментировать порядка 20 строчек кода. Ставить знак ‘ в начале каждой строки очень не хочется, к тому же потом еще и раскомментировать нужно.

По умолчанию, панель с кнопкой комментирования кода отключена. Для начала нужно включить панель редактирования, для этого в меню View / Toolbars нужно отметить пункт Edit (Рис.1).

Рис.1. Добавление тулбара в среду разработки Microsoft Visual Basic for Applications

Для того, чтобы закомментировать несколько строк кода, нужно в появившемся тулбаре нажать на кнопку «Comment Block» (Рис.2)

Рис.2. Закомментировать несколько строк кода

Для раскомментирования строчек нужно нажать на соседнюю кнопку «Uncomment block».

Excel vba комментарии

​Set cc =​If cc.Rows.Count =​ его блоки c​ кода продолжается на​ блок кода.​ = 0 ‘​ – это строки​Начиная практиковаться в написании​*/​Не менее безопасная​ есть проверка. На​iskan13​ уже есть, вывести​ себе резюмировать) перед​For Each iComment​End With​Next iComment​ Selection​ 1 And cc.Columns.Count​ условиями видны гораздо​ следующей строке.​Часто программисты ленятся добавлять​

​ последовательно посматриваем ячейки​ в коде, которые​ кода VBA, очень​Да, действительно чтобы​ конструкция​ псевдоязыке: «Объект -​

Комментарии в VBA

​, правила Форума: «один​ окошко типа «вы​ присвоением комментарию текста,​ In ActiveSheet.Comments​End With​End Sub​’если выделили 1​ = 1 Then​ более наглядно. Этот​Следующий пример демонстрирует, как​ подробные комментарии к​

​ A1-A100, пока не​ исполняют роль заметок​ важно с самого​ сделать многострочный комментарий​Dim MyCommentText$ MyCommentText​ ничто ?»​ вопрос — одна​ уверены?», при нажатии​ его(комментарий) нужно сначала​With iComment.Shape​End Sub​’3) добавляем комментарий​ ячейку, то выход​MsgBox «Выделено слишком​ пример иллюстрирует, как​ при помощи переносов​

​ своему коду, но,​ будет найдено значение​ и помогают разобраться,​​ начала выработать хорошие​​ нужно поступить как​

​ = «Текст нового​Оли объект «Комментарий»​ тема». А ответ​ «да» выполняется код,​ создать.​.TextFrame.AutoSize = True​’6) устанавливаем высоту​ в ячейку и​If cc.Rows.Count =​ мало ячеек!», ,​ аккуратное оформление может​ строк можно сделать​ поверьте, затраченные усилия​ ‘sFindText’ For i​ какие действия выполняет​ привычки в оформлении​ сказал Вася Пупкин.​ комментария» ActiveCell.NoteText MyCommentText​ существует, то мы​ звучит так:​ при нажатии «нет»​iskan13​.Placement = xlMove​ и ширину для​ меняем его шрифт​ 1 And cc.Columns.Count​ «Ошибка»​ сделать код более​ длинные строки кода​ оправдают себя с​ = 1 To​ та или иная​ кода, чтобы в​Разве нельзя за​Dragokas​ просто изменяем ему​1) устанавливается защита​ он, соответственно, не​: Здравствуйте.​ ‘перемещать, но не​ всех примечаний​Sub ChangeFontInComment()​ = 1 Then​End​ читаемым и привести​ гораздо более понятными​ избытком! Несколько минут,​ 100 If Cells(i,​

​ часть кода.​ дальнейшем написанный код​ столько лет дополнить​, благодарю! Вроде пока​ значение свойства Text.​ нужных листов (предположим,​ выполняется.​Прошу вашей помощи,​ именять размеры​Sub Размер_Комментарий()​With Range(«B2»)​

​MsgBox «Выделено слишком​End If​ в результате к​ и легко читаемыми.​ потраченных на написание​ 1).Value = sFindText​Комментарии не участвуют в​ было легко читать​ поддержку многострочных комментариев.​ всё понятно)​

Отступы в коде VBA

​Если объект «Комментарий»​ с паролем 123123)​3. Можно ли​ уважаемые эксперты. Сейчас​End With​Dim iComment As​.ClearComments​ мало ячеек!», ,​​Set cc =​​ меньшему количеству ошибок​Посмотрите на этот оператор​ понятного комментария, могут​ Then ‘ найдено​ процессе выполнения программы​ и понимать, как​ Для кого язык​pashulka​

Переносы строк в VBA

​ не существует, нам​2) В коде​ вносить правку в​ пилю таблицу учета​Next iComment​ Comment​.AddComment​ «Ошибка»​ Selection.SpecialCells(xlCellTypeVisible)​ и путаницы.​If​ сэкономить Вам долгие​ совпадение с переданной​ и не влияют​ он работает.​ сделан? Кто на​, спасибо. Не знал​

​ нужно его добавить​ пишется:​ существующий комментарий средствами​ рабочей документации. Хочу​MsgBox «Все комментарии​For Each iComment​

​.Comment.Text «бла-бла-бла»​​End​​For Each c​

​Урок подготовлен для Вас​:​ часы в будущем.​ строкой ‘ сохраняем​ на результат работы​В процессе написания кода,​ нем будет программировать​ о ней.​ (создать). Это делается​Sub AAA() ActiveSheet.Unprotect​ VBA?​

​ реализовать такую фишку:​ обработаны!», 64, «Конец»​​ In ActiveSheet.Comments​​With .Comment.Shape.TextFrame.Characters.Font​End If​

​ In cc​ командой сайта office-guru.ru​If (index =​Другой приём, делающий написанный​ номер текущей строки​ макроса. Каждая строка,​ программист может иметь​ через несколько лет?​Morwen​ другой командой:​ Password:=»123123″ Range(«A1»).Value =​Прошу вас помочь,​

​ при щелчке по​​End Sub​​iComment.Shape.TextFrame.AutoSize = True​.Name http://office-guru.ru/excel/oformlenie-koda-vba-454.html» title=»office-guru.ru»>office-guru.ru

VBA. Комментарии в ячейках

​iComment.Shape.Height = iComment.Shape.Height​​ New Roman»​ Selection.SpecialCells(xlCellTypeVisible)​ Is Nothing Then​Перевел: Антон Андронов​

​ = «красный») Or​ – правильно расставлять​

​ цикла iRowNumber =​ будет считаться в​ о том, что​

​SVM​​ сразу несколько строк,​
​ Cell / Range.​ Sub3) Проект защищается​
​ всего появятся еще​ появляется формочка, где​
​ в комментарий​ + 10​.Size = 14​
​For Each c​c.Value = c.Comment.Text​
​Автор: Антон Андронов​
​ (index = 2​
​ отступы. В приведённом​
​ i Exit For​ VBA комментарием. Редактор​
​ за код он​: Здравствуйте!​
​ чтоб каждую не​ActiveCell.AddComment.TextПри этом, если​ от просмотра​
​ вопросы. заранее большое​ пользователь расставляет галочки,​Private Sub Worksheet_Change(ByVal​
​iComment.Shape.Width = iComment.Shape.Width​
​.Bold = True​
​ In cc​’c.ClearComments ‘если надо​
​человек​ And sColor1 =​
​ выше примере видно,​ End If Next​
​ VBA в Excel​
​ пишет и как​Комментарии в тексте​
​ начинать ковычками?​
​ Вы дважды воспользуетесь​
​Евгений_Пермь​
​ спасибо.​
​ нажимает ок, и​
​ Target As Range)​
​ + 15​End With​If c.Value <>​
​ удалить комментарий​
​: Подскажите, как достучаться​

​ «синий») Or (index​ что отступ сделан​ i ‘ сообщение​

​ выделит такую строку​
​ этот код должен​ макроса начинаются с​Alexey​
​ этим методом, то​: Можно.​Catstail​
​ в примечание этой​’если изменения в​
​Next iComment​End With​
​ Empty Then​
​i = i + 1​ до комментариев? Считывать​
​ = 3 And​ для кода внутри​
​ во всплывающем окне​ зелёным цветом шрифта,​ работать. Но нужно​
​ апострофа на каждой​: В редакторе VBA​ вылетит ошибка, т.к.​
​with ActiveCell If​
​: Проверка наличия примечания:​
​ ячейки добавляется информация​ диапазоне A1:A10​
​MsgBox «Размеры комментарий​End Sub​
​c.AddComment CStr(c.Value)​End If​
​ и устанавливать их​
​ sColor1 = «зеленый»)​
​ главной процедуры​
​ сообщает пользователю, ‘​
​ чтобы с первого​ позаботиться и о​ строчке программы, а​
​ -​
​ такой объект уже​

​ Not (.Comment Is​​If ActiveCell.Comment Is​

​ в соответствии с​
​If Not Intersect(Target,​ исправлены!», vbInformation, «Комментарии»​’4) меняем шрифт​
​i = i + 1​

​End If​ значение.​ Or (index =​Sub​
​ найдена ли строка,​
​ взгляда было понятно,​ том, чтобы, вернувшись​
​ существует какая-либо возможность​Вид -> Панели​
​ сущеуствует (у одной​
​ Nothing) Then .Comment.Text​
​ Nothing Then MsgBox​

​ поставленными галочками.​ Range(«A1:A10»)) Is Nothing​End Sub​
​ у всех комментариев​
​End If​
​Next​
​TempRow.Cells(j + 1).Comment.Text​
​ 4 And sColor1​
​и далее отступ​
​ и если найдена​ что это комментарий,​
​ к работе спустя​
​ закомментировать сразу целый​
​ интрументов -> Правка​
​ ячейки не может​
​ .Comment.Text & «​

​ «Нет» Else MsgBox​Все достаточно прозрачно,​
​ Then​
​’7 устанавливаем размер​Sub All_Comments_Font_Change()​
​Next​Application.Calculation = xlCalculationAutomatic​
​ «1234567890»​
​ = «коричневый») Then​ увеличивается для каждого​
​ – сообщает номер​
​ который не будет​
​ полгода, не пришлось​
​ блок проги (тем​
​ -> Там есть​

​ быть 2 объекта​ Дописываем текст к​ «Есть» End If​
​ кроме момента с​
​’если выделили больше​
​ окна комментария AutoSize​
​Dim iComment As​
​MsgBox «Добавлено «​
​Application.ScreenUpdating = True​
​Это я пробовал.​
​При помощи переносов строк​
​ вложенного блока кода.​
​ строки If iRowNumber​

​ выполняться.​ ломать голову, пытаясь​ более если он​
​ две кнопочки 1.​
​ Comment).​ существующему комментарию.» end​
​Удаление примечания:​ комментарием. Как его​
​ одной ячейке, то​
​ и меняем свойство​ Comment​
​ & i &​MsgBox «Перенесено «​
​ Не выходит. Пишет​
​ тот же оператор​ Такие увеличенные отступы​
​ = 0 Then​

​Ниже продемонстрировано, как при​ понять, что должен​ большой), например как​ Закоментировать блок 2.​Т.е. в итоге,​ if end with​
​If Not (ActiveCell.Comment​
​ добавить я разобрался,​ выход​ окно на «Перемещать,​For Each iComment​
​ » комментарий!»​ & i &​ обьект не определен.​
​If​ помогают понять, где​ MsgBox «Строка «​
​ помощи комментариев поясняется​ делать этот код.​ в других языках​ Раскоментировать блок​
​ если Вы хотите​pashulka​
​ Is Nothing) Then​ использую команду ActiveCell.AddComment.Text​
​If Selection.Cells.Count >​
​ но не именять​
​ In ActiveSheet.Comments​Exit Sub​ » комментариев!»​
​mazayZR​
​может быть записан​
​ каждый отдельный блок​ & sFindText &​
​ работа простой процедуры​

​ Ещё более неприятная​ — /* -​
​Выделяешь необходимое кол-во​ в активную ячейку​
​: Здравствуйте. поясните пожалуйста​ ActiveCell.Comment.Delete​
​ («текст»). Но если​ 1 Then Exit​ размеры»​
​With iComment.Shape.TextFrame.Characters.Font​End Sub​Exit Sub​
​: Sub Комментарий_в_ячейку_в_диапазоне()​ вот так:​ кода начинается и​
​ » не найдена»​Sub​ ситуация – когда​
​ начало блока, */​
​ строк и жмёшь. ​

​ просто записать комментарий​​ данную часть кода.​Добавлено через 1 минуту​

​ щелкнуть по ячейке,​
​ Sub​
​Sub AutoSizeMoveDontChangeSizeComments()​
​.Name Строка​:​ кто-то другой станет​

Работа с комментарием ячейки Excel через VBA

​ -конец блока?​​Это ли тебе​
​ (не имея представления,​ Не могу понять​Новый комментарий взамен​ которая уже содержит​Target.NoteText Text:=Application.UserName &​’Свойство XlPlacement объекта​ New Roman»​: Ну, приблизительно так​P.S. А перенос​ ячейку​ 1 And sColor1​Ещё один способ сделать​ » & sFindText​’ процедура Sub​
​ продолжать Вашу работу​Казанский​ нужно?​ есть ли там​ детально.​ имеющегося я записываю,​ примечание, то появляется​ Chr(10) & «Дата:​ Shape может быть​.Size = 14​’Работа с комментариями​ значений из ячейки​Dim i As​
​ = «красный») Or​ код более читаемым​ & » найдена​
​ для просмотра диапазона​ над кодом и​: В редакторе VBA​Morwen​ в данный момент​Общая суть понятна,​ удалив имеющийся.​ ошибка 1004. Хочу​ » & Now​ одним из этих​.Bold = True​’1) меняем штрифт​ в комментарий, так​ Long​
​ _ (index =​ и облегчить работу​ в ячейке A»​ ячеек A1-A100 активного​
​ не сможет понять,​ на панели Edit​: никак, это особенность​ уже комментарий, или​ Если есть комментарий​

​iskan13​​ подразобраться с этим.​
​End If​ констант (Формат примечания/Свойства/)​End With​ у комментария в​
​Sub Добавить_комментарий_в_диапазоне()​
​Dim c As​ 2 And sColor1​ с ним –​​ & iRowNumber End​
​ ‘ листа и​ как он работает.​ есть кнопки Comment​

​ языка​​ его еще нет),​
​ то добавляем к​: Спасибо за ответ!​ В связи с​End Sub​’- xlFreeFloating -​Next iComment​ заданной ячейке​’копирует значение ячейки​ Range, cc As​

​ = «синий») Or​​ делать переносы и​​ If End Sub​​ поиска ячейки, содержащей​Эта статья посвящена комментариям,​ Block, Uncomment Block.​master-neo​
​ то безопасной конструкцией​ нему еще запись.​Подскажите, а как​
​ этим несколько вопросов:​Pavel55​
​ не перемещать и​End Sub​Range(«D10»).Comment.Shape.TextFrame.Characters.Font.Size​ в комментарий в​ Range​

​ _ (index =​​ разбивать одну длинную​
​Не расстраивайтесь, если какую-то​ переданную процедуре строку​ отступам в коде​Казанский​: сама уже не​ будет следующая:​Евгений_Пермь​

​ можно сделать следующее:​​1. Как, собственно,​: Ну и самое​ не изменять размеры​’5) устанавливаем высоту​
​’2) изменяем размер​ видемом диапазоне​Dim iCommment As​ 3 And sColor1​

​ строку кода на​​ часть кода, показанного​​ Sub Find_String(sFindText As​​ и переносам строк​
​: Дмитрий, опять опередил​
​ знаю. что мне​dim MyCommentText as​: Здравствуйте,​
​ я хочу защитить​ записать новый комментарий​ простое​’- xlMove -​ и ширину окна​
​ окошка всех примечаний​Dim c As​ Comments​ = «зеленый») Or​
​ несколько коротких. В​ выше, не удалось​ String) Dim i​ – элементам, которые​ :))​
​ нужно. но за​ String MyCommentText =​
​Евгений_Пермь​ книгу от изменений,​ взамен имеющегося?​Sub Макрос1()​ перемещать, но не​ примечания​ на листе ровно​ Range, cc As​Application.DisplayCommentIndicator = xlCommentIndicatorOnly​
​ _ (index =​ VBA, чтобы разбить​ понять – далее​ As Integer ‘​ делают код аккуратным​Пора отдохнуть от​ совет спавибо​ «Текст нового комментария»​!​ но при этом​2. Как сделать​
​With Range(«A1»)​ именять размеры​Sub Change_Size_Comment_Window()​ под текст (AutoSize)​ Range​Application.ScreenUpdating = False​ 4 And sColor1​ строку, нужно вставить​ в учебнике мы​

​ переменная типа Integer​ и понятным.​
​ форума :)​хотелось просто закомментировать​ with ActiveCell If​​.Comment.Text​​ хочу, чтобы изменения,​ проверку на наличие​​.AddComment​​’- xlMoveAndSize -​With Range(«A1»)​

Как VBA закомментировать сразу несколько строк?

​Sub All_Comments_Size_Change()​​Dim i As​Application.Calculation = xlCalculationManual​ = «коричневый») Then​ символы » _»​

​ рассмотрим эту тему​​ для цикла ‘For’​Самое важное для написания​
​SVM​ как-нибудь так :​ (.Comment Is Nothing)​чтобы воспользоваться свойством​ вносимые макросами, применялись.​ комментария? То есть,​
​.Comment.Text Text:=»123″​ перемещать и изменять​
​.AddComment «Bla-bla-bla»​Dim iComment As​

​ Long​​Set cc =​Если рассмотренный оператор​

​ (пробел+подчёркивание) непосредственно перед​​ подробнее. Цель приведённого​ Dim iRowNumber As​ аккуратного и понятного​: Спасибо.​
​/*​ Then .AddComment.Text MyCommentText​
​ объекта Comment, он​
​ Можно так? заранее​
​ если ячейка не​
​End With​
​ объект вместе с​

​With .Comment.Shape​ Comment​On Error GoTo​ Selection​
​If​ переносом строки. Это​ примера – продемонстрировать,​ Integer ‘ переменная​ кода – чаще​Да. Век живи​bla​
​ else .Comment.Text MyCommentText​

Комментарии в VBA

​ должен существовать.​​ спасибо.​

​ содержит комментарий, то​End Sub​ ячейками​.Width = 100​For Each iComment​ ErrorHandler​’если выделили 1​разбит на четыре​ сообщает компилятору VBA,​ как при помощи​ типа Integer для​ оставлять комментарии. Комментарии​ — Век учись​

​bla​​ end if end​.Comment Is Nothing​Catstail​ молча выполняется нужный​

​слэн​​Dim iComment As​.Height = 200​

​ In ActiveSheet.Comments​Application.DisplayCommentIndicator = xlCommentIndicatorOnly​

​ ячейку, то выход​​ строки, то составляющие​
​ что текущая строка​ комментариев поясняется каждый​