Remkomplekty.ru

IT Новости из мира ПК
29 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Vba excel как закомментировать несколько строк

Как комментировать и раскомментировать блоки кода в Редакторе Office VBA

В Редакторе VBA Office ( ALT + F11 ), как вы комментируете или раскомментируете блок кода?

8 Ответов

В Редакторе VBA перейдите к View , Toolbars , Customise. или щелкните правой кнопкой мыши на панели инструментов и выберите Customise.

На вкладке Commands выберите меню Edit слева.

Затем примерно на две трети пути вниз есть две иконки, Comment Block и Uncomment Block .

Перетащите их на панель инструментов, а затем у вас есть легкий доступ, чтобы выделить блок кода, закомментировать его и раскомментировать одним нажатием кнопки!

Смотрите ответ GauravSingh , если вы хотите назначить сочетания клавиш.

  1. Щелкните правой кнопкой мыши на панели инструментов и выберите пункт Настроить...
  2. Выберите вкладку команды .
  3. В разделе Категории нажмите кнопку Изменить, а затем выберите блок комментариев в командах listbox.
  4. Перетащите запись блока комментариев в строку меню (да! меню)
    Примечание: теперь вы должны увидеть новый значок в строке меню.
  5. Убедитесь, что новый значок выделен (он будет иметь черный квадрат вокруг него), а затем
    нажмите кнопку Изменить выбор в диалоговом окне Настройка.
  6. Появится интересное меню.
    В поле Имя добавьте амперсанд ( & ) в начало записи.
    Так что теперь вместо «Comment Block» он должен читать &Comment блок .
    Нажмите Enter , чтобы сохранить изменения.
  7. Снова нажмите кнопку Изменить выделение и выберите изображение и текст .
  8. Закройте диалоговое окно Настройка .
  9. Выделите любой блок кода и нажмите Alt — C . Вот.
  10. Сделайте то же самое для блока Раскомментирования или
    любые другие команды, которые вы часто используете.

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

Если щелкнуть правой кнопкой мыши любую панель инструментов или меню (или перейти в меню Вид > панели инструментов ), вы увидите список доступных панелей инструментов (над параметром «Customize. «). Стандартная панель инструментов выбрана по умолчанию. Выберите Панель редактирования , и появится новая панель инструментов с кнопками блока комментариев посередине.

*This-это более простой вариант для упомянутых выше.

Вы проверили MZTools? ? Он делает много крутых вещей.

Если я не ошибаюсь,одна из функций, которую он предлагает, — это установка собственных ярлыков.

Или просто нажмите View, ToolBars, Edit . Затем вы можете выбрать блок кода, а затем нажать кнопку комментарий или раскомментировать панель инструментов, чтобы сделать все в один клик.

Как сторонний наблюдатель, вы можете Tab / Shift + Tab также блок выделенного текста. Когда я был Нуби, я не знал этого долгое время и делал их по одной строке за раз.

Простой способ добавить кнопки в Comment или Un-Comment кодовый блок-это:

  • Перейти к View-Toolbars-Customise
  • Выберите вкладку команда
  • Выберите категорию редактирования слева
  • Перетащите значки “Comment Block” и “Uncomment Block” на панель инструментов.

После добавления значка на панель инструментов и при изменении выбранного значка амперсанд во входном имени указывает, что следующий символ является символом, используемым вместе с Alt для ярлыка. Поскольку вы должны выбрать опцию отображения в раскрывающемся меню изменить выбор, которая включает отображение текста, вы также можете написать &C в поле Имя и получить тот же результат, что и блок &Comment (без длинного текста).

Шаги для комментирования / раскомментирования

Нажмите alt + f11/ вкладка разработчика редактор visual basic просмотр вкладки-панель инструментов-правка-комментарии.

Похожие вопросы:

Новичок здесь. Я ищу более простой способ в VIM комментировать / раскомментировать (только одно строчное комментирование, которое является наиболее частым типом комментирования) для C++ кодов.

Недавно я сменил дистрибутив Enthought Canopy Python на Anaconda, который включает в себя Spyder IDE. В редакторе кода Canopy можно было комментировать и раскомментировать строки кода, нажимая.

WikiData предоставляет инструмент для построения запросов. https://query.wikidata.org / Но я не могу найти никакого ярлыка в редакторе, чтобы комментировать / раскомментировать массово (то есть.

У меня есть файл кода Ruby, открытый в vi, есть строки, закомментированные с # : class Search

Vba excel как закомментировать несколько строк

Добрый день! Возникла такая ситуация — по аналогии коду, который я представлю вам, нужно написать свой код. Но к сожалению он не прокомментирован и очень сложно ориентирвоаться! Немоглибы вы помочь с комментариями. Заранее огромное спасибо!

P.S/ Некоторые строки пробовала сама комментировать..

200?’200px’:»+(this.scrollHeight+5)+’px’);»>
Sub GetSheet()
‘процедура запуска кнопки Загрузка на лист
‘объявляем переменные
Dim R As Range, i&, j&, Clr&, Clr1&, cnt&, cnt1&, Lr&, EH
‘Dim Dict As Object
cnt = 1 ‘цикл выполняется до тех пор, пока соблюдается условие больше нуля
cnt1 = 1
With Sheets(«БД(ТЭП)») ‘ на листе БД(ТЭП)
Clr = .Range(«F4»).Interior.ColorIndex ‘ устанавливаем цветовой диапозон
‘Clr1 = .Range(«F3»).Interior.ColorIndex ‘ устанавливаем цветовой диапозон
Lr = .Cells(.Rows.Count, «A»).End(xlUp).Row ‘выделение столбца А и переход на другой лист
.Range(«a1»).Resize(Lr, 2).ClearContents ‘ если из ячейки а1 нужно удалить содержимое

Set R = Sheets(.Range(«F6»).Value).Range(.Range(«F5»).Value) ‘перход на новый лист
‘выводим название столбца «Показтель»
.Cells(1, 1).Value = «Показатель» ‘выводим название столбца «Значение»
.Cells(1, 2).Value = «Значение» ‘выводим название столбца «Значение»
.Cells(1, 8).Value = «Показатель» ‘выводим название столбца «Показтель»
.Cells(1, 9).Value = «Значение» ‘выводим название столбца «Значение»

Читать еще:  Application onkey vba excel

For i = 1 To R.Rows.Count
For j = 1 To R.Columns.Count
If R(i, j).Interior.ColorIndex = Clr Then
cnt = cnt + 1
.Cells(cnt, 1).Value = R(i, j).Name.Name
.Cells(cnt, 2).Value = R(i, j).Value
End If
Next
Next

Clr1 = .Range(«F20, F3»).Interior.ColorIndex ‘ устанавливаем цветовой диапозон
For i = 1 To R.Rows.Count
For j = 1 To R.Columns.Count
If R(i, j).Interior.ColorIndex = Clr1 Then
cnt1 = cnt1 + 1
.Cells(cnt1, 8).Value = R(i, j).Name.Name
.Cells(cnt1, 9).Value = R(i, j).Value
End If
Next
Next
End With
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»>
Sub LoadSheet()
‘процедура запуска кнопки Заполнение макета данными
‘объявление пременныых
Dim a, Lr&
With Sheets(«БД(ТЭП)»)
Lr = .Cells(.Rows.Count, «A»).End(xlUp).Row
a = .Range(«a1»).Resize(Lr, 2).Value
For i = 2 To UBound(a)

Range(a(i, 1)).Value = a(i, 2)
Next
End With
MsgBox «Данные заполнены» ‘отображение результата
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Sub ExportAccess() ‘процедура работы кнопки Экспорта
Dim cn_ As Object, rs As Object, sCon$, _
FilePath$, Dt As Date, sSql$, Lr&, a, i&
‘===========================================
With Sheets(«БД(ТЭП)») ‘ выбор перемнных с листа «БД(ТЭП)» и опредление пути к файлу
FilePath = .Range(«F7»).Value
Dt = .Range(«F8»).Value
Lr = .Cells(.Rows.Count, «A»).End(xlUp).Row

sSql = «select * from data where controldate=#» & Format(Dt, «mm/dd/yy hh:mm:ss») & «#»
sCon = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=»
sCon = sCon & FilePath & «;User Id=admin;Password=;» ‘Access
Set cn_ = CreateObject(«ADODB.Connection») ‘создаем данные
cn_.Open sCon
If Not cn_.State = 1 Then Exit Sub
Set rs = GetRs(cn_, sSql)
If rs.RecordCount = 0 Then
a = .Range(«a1»).Resize(Lr, 2).Value
With rs
For i = 2 To UBound(a)
.addnew
.Fields(«controldate»).Value = Dt
.Fields(«controlName»).Value = a(i, 1)
.Fields(«controlValue»).Value = a(i, 2)
.Update
Next
End With
Else
Select Case MsgBox(» Данные за эту дату уже есть в базе,заменить?», vbYesNo)
Case 6 ‘: Stop ‘yes
cn_.Execute («delete * from data where controldate=#» & Format(Dt, «mm/dd/yy hh:mm:ss») & «#»)
a = .Range(«a1»).Resize(Lr, 2).Value
With rs
.Requery
For i = 2 To UBound(a)
.addnew
.Fields(«controldate»).Value = Dt
.Fields(«controlName»).Value = a(i, 1)
.Fields(«controlValue»).Value = a(i, 2)
.Update
Next
End With
Case 7
Exit Sub ‘ no
End Select
End If
End With
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Sub ImportAccess()
Dim cn_ As Object, rs As Object, sCon$, _
FilePath$, Dt As Date, sSql$, Lr&
‘===========================================
With Sheets(«БД(ТЭП)»)

FilePath = .Range(«F7»).Value
Dt = .Range(«F8»).Value
Lr = .Cells(.Rows.Count, «A»).End(xlUp).Row
.Range(«a1»).Resize(Lr, 2).ClearContents
sSql = «select controlName, controlValue from data where controldate=#» & Format(Dt, «mm/dd/yy hh:mm:ss») & «#»
sCon = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=»
sCon = sCon & FilePath & «;User Id=admin;Password=;» ‘Access
Set cn_ = CreateObject(«ADODB.Connection») ‘создаем данные
cn_.Open sCon
If Not cn_.State = 1 Then Exit Sub
Set rs = GetRs(cn_, sSql)
If rs.RecordCount > 0 Then
.Cells(1, 1).Value = «Показатель»
.Cells(1, 2).Value = «Значение»
.Range(«a2»).CopyFromRecordset rs ‘помещаем данные в excel
Else
MsgBox » Данных нет. »
End If
End With
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Sub GetSheet()
‘процедура запуска кнопки Загрузка на лист
‘объявляем переменные
Dim R As Range, i&, j&, Clr&, Clr1&, cnt&, cnt1&, Lr&, EH
‘Dim Dict As Object
cnt = 1
cnt1 = 1
With Sheets(«БД(ТЭП)») ‘ на листе БД(ТЭП)
Clr = .Range(«F4»).Interior.ColorIndex ‘ запоминаем цветовой диапазон
‘Clr1 = .Range(«F3»).Interior.ColorIndex ‘ устанавливаем цветовой диапазон
Lr = .Cells(.Rows.Count, «A»).End(xlUp).Row ‘номер последней заполненной ячейки в столбце А
.Range(«a1»).Resize(Lr, 2).ClearContents ‘удаляем содержимое из столбцов А:В до последней заполненной ячейки в столбце А

Windows(«ТЭП15авт.xls»).Activate ‘Активируем книгу «ТЭП15авт.xls»
‘на листе с именем из Range(«F6») листа «БД(ТЭП)» диапазон из F5 запоминаем в переменную R
Set R = Sheets(.Range(«F6»).Value).Range(.Range(«F5»).Value)
‘выводим название столбцов (на лист БД(ТЭП))
.Cells(1, 1).Value = «Показатель» ‘выводим название столбца «Показатель»
.Cells(1, 2).Value = «Значение» ‘выводим название столбца «Значение»
.Cells(1, 8).Value = «Показатель» ‘выводим название столбца «Показатель»
.Cells(1, 9).Value = «Значение» ‘выводим название столбца «Значение»

For i = 1 To R.Rows.Count ‘по строкам диапазона R
For j = 1 To R.Columns.Count ‘по столбцам диапазона R
If R(i, j).Interior.ColorIndex = Clr Then ‘ Если ячейка имеет цвет Clr
cnt = cnt + 1 ‘ Прибавляем счетчик
.Cells(cnt, 1).Value = R(i, j).Name.Name ‘имя ячейки(в смысле имя диапазона из ctrl+f3)
.Cells(cnt, 2).Value = R(i, j).Value ‘значение ячейки
End If
Next
Next

Clr1 = .Range(«F20, F3»).Interior.ColorIndex ‘ запоминаем цветовой диапазон
For i = 1 To R.Rows.Count ‘по строкам диапазона R
For j = 1 To R.Columns.Count ‘по столбцам диапазона R
If R(i, j).Interior.ColorIndex = Clr1 Then ‘ Если ячейка имеет цвет Clr1
cnt1 = cnt1 + 1 ‘ Прибавляем счетчик
.Cells(cnt1, 8).Value = R(i, j).Name.Name ‘имя ячейки(в смысле имя диапазона из ctrl+f3)
.Cells(cnt1, 9).Value = R(i, j).Value ‘значение ячейки
End If
Next
Next
End With
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Sub LoadSheet()
‘процедура запуска кнопки Заполнение макета данными
‘объявление переменных
Dim a, Lr&
With Sheets(«БД(ТЭП)») ‘ на листе БД(ТЭП)
Lr = .Cells(.Rows.Count, «A»).End(xlUp).Row ‘номер последней заполненной ячейки в столбце А
‘запоминаем в «а» содержимое из столбцов А:В до последней заполненной ячейки в столбце А
a = .Range(«a1»).Resize(Lr, 2).Value
For i = 2 To UBound(a) ‘От 2 до верхней границы а (по строкам)

Windows(«ТЭП15авт.xls»).Activate ‘Активируем книгу «ТЭП15авт.xls»

Range(a(i, 1)).Value = a(i, 2) ‘пишем значение из а 2-го столбца
Next
End With
MsgBox «Данные заполнены» ‘отображение результата
End Sub

Если что-то не понятно, спрашивайте.

С аксессом мало работала, поэтому нормально прокомментировать немогу.
[p.s.]Вынесла Ваши макросы под отдельные спойлеры, имхо так нагляднее[/p.s.]

200?’200px’:»+(this.scrollHeight+5)+’px’);»> ‘——————————————-
‘ процедура запуска кнопки Загрузка на лист
‘——————————————-
Sub GetSheet()
‘объявляем переменные
Dim R As Range, i&, j&, Clr&, cnt&, Lr&, EH
‘Dim Dict As Object

Читать еще:  Vba excel округление до двух знаков

With Sheets(«БД(ТЭП)») ‘ на листе БД(ТЭП)
Clr = .Range(«F4»).Interior.ColorIndex ‘ сохраняем цвет ячейки F4 в переменную Clr
‘Clr1 = .Range(«F3»).Interior.ColorIndex ‘ сохраняем цвет ячейки F3 в переменную Clr1
Lr = .Cells(.Rows.Count, 1).End(xlUp).Row ‘ сохраняем в переменную Lr номер последней заполненной строки (проверяя по столбцу «A»)
.Range(«A1:B» & Lr).ClearContents ‘ удаляем содержимое ячеек в диапазоне «A1:Bxxx» (где xxx — номер последней заполненной строки, полученный в пред. строке кода)

Windows(«ТЭП15авт.xls»).Activate ‘ делаем активным документ «ТЭП15авт.xls»

Set R = Sheets(.Range(«F6»).Value).Range(.Range(«F5»).Value) ‘ переменной R присваиваем ссылку на диапазон, указанный в ячейке F5 и расположенный на листе, указанном в ячейке F6
‘ выводим названия столбцов A, B, H, I
.Cells(1, 1).Value = «Показатель» ‘ записываем в ячейку A1 — «Показатель»
.Cells(1, 2).Value = «Значение» ‘ записываем в ячейку B1 — «Значение»
.Cells(1, 8).Value = «Показатель» ‘ записываем в ячейку H1 — «Показатель»
.Cells(1, 9).Value = «Значение» ‘ записываем в ячейку I1 — «Значение»

cnt = 2 ‘ номер первой (для заполнения) строки таблицы (т.к. 1-я строка на листе — это шапка таблицы, т.е., заголовки столбцов)
‘ проходим в цикле по всем ячейка диапазона, присвоенного переменной R (см. выше)
For i = 1 To R.Rows.Count ‘ . здесь логичнее начинать сразу со 2-строки, а не с 1-й, т.к. в первой строке находится шапка таблицы
For j = 1 To R.Columns.Count
If R(i, j).Interior.ColorIndex = Clr Then ‘ если цвет ячейки совпадает с цветом ячейки F4 на листе «БД(ТЭП)»
.Cells(cnt, 1).Value = R(i, j).Name.Name ‘ то копируем Показатель
.Cells(cnt, 2).Value = R(i, j).Value ‘ и Значение из диапазона R (см. выше)
cnt = cnt + 1 ‘ это будет номер следующей (для заполнения) строки таблицы
End If
Next
Next

‘ . см комментарии пред. цикла (и, скорее всего, эти 2 цикла можно и нужно объединить в один и не тратить вдвое больше времени на обработку, как сейчас)(но нужно знать задачу)
cnt = 2
Clr = .Range(«F20, F3»).Interior.ColorIndex
For i = 1 To R.Rows.Count
For j = 1 To R.Columns.Count
If R(i, j).Interior.ColorIndex = Clr Then
.Cells(cnt, 8).Value = R(i, j).Name.Name
.Cells(cnt, 9).Value = R(i, j).Value
cnt = cnt + 1
End If
Next
Next
End With
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»> ‘—————————————
‘ экспортируем (сохраняем) записи в БД
‘—————————————
Sub ExportAccess() ‘ процедура работы кнопки Экспорта
Dim cn_ As Object, rs As Object, sCon$, FilePath$, Dt As Date, sSql$, Lr&, a, i&

With Sheets(«БД(ТЭП)») ‘ выбор перемнных с листа «БД(ТЭП)» и опредление пути к файлу
FilePath = .Range(«F7»).Value ‘ см. выше
Dt = .Range(«F8»).Value ‘ см. выше
Lr = .Cells(.Rows.Count, «A»).End(xlUp).Row ‘ см. выше

‘ составляем строку запроса
sSql = «select * from data where controldate=#» & Format(Dt, «mm/dd/yy hh:mm:ss») & «#»

‘ указываем параметры соединения с БД
sCon = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=»
sCon = sCon & FilePath & «;User Id=admin;Password=;» ‘Access

‘ устанавливаем соединение с БД
Set cn_ = CreateObject(«ADODB.Connection») ‘создаем данные
cn_.Open sCon

‘ если соединение с БД не установлено — выходим из процедуры экспорта
If Not cn_.State = 1 Then Exit Sub

‘ если соединение с БД установлено — получаем набор записей по запросу sSql
Set rs = GetRs(cn_, sSql)

‘ если в БД уже есть записи — спрашиваем о их замене
If rs.RecordCount Then
If MsgBox(» Данные за эту дату уже есть в базе, заменить?», vbQuestion Or vbYesNo) <> vbYes Then _
Exit Sub ‘ если пользователь ответил «Нет» — выходим из процедуры экспорта

‘ удаляем из БД старые записи за указанную дату
cn_.Execute («delete * from data where controldate=#» & Format(Dt, «mm/dd/yy hh:mm:ss») & «#»)
End If

‘ записываем в БД новые записи с указанной датой из таблицы Excel
a = .Range(«a1»).Resize(Lr, 2).Value
With rs
.Requery
For i = 2 To UBound(a)
.addnew ‘ добавляем новую запись
.Fields(«controldate»).Value = Dt ‘ заполняем поля
.Fields(«controlName»).Value = a(i, 1)
.Fields(«controlValue»).Value = a(i, 2)
.Update ‘ сохраняем запись
Next
End With
End With
End Sub

Vba excel как закомментировать несколько строк

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 10.10.2005
Где: Москва

Репутация: 1
Всего: 1

Советчик

Профиль
Группа: Модератор
Сообщений: 20437
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 24
Всего: 449

О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 10.10.2005
Где: Москва

Репутация: 1
Всего: 1

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль «Помогите!» таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в «Книге отзывов о работе администрации»
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

[ Время генерации скрипта: 0.1674 ] [ Использовано запросов: 21 ] [ GZIP включён ]

Оформление кода VBA

Начиная практиковаться в написании кода VBA, очень важно с самого начала выработать хорошие привычки в оформлении кода, чтобы в дальнейшем написанный код было легко читать и понимать, как он работает.

Читать еще:  Excel sub or function not defined

В процессе написания кода, программист может иметь совершенно чёткое представление о том, что за код он пишет и как этот код должен работать. Но нужно позаботиться и о том, чтобы, вернувшись к работе спустя полгода, не пришлось ломать голову, пытаясь понять, что должен делать этот код. Ещё более неприятная ситуация – когда кто-то другой станет продолжать Вашу работу над кодом и не сможет понять, как он работает.

Эта статья посвящена комментариям, отступам в коде и переносам строк – элементам, которые делают код аккуратным и понятным.

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

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

Комментарии не участвуют в процессе выполнения программы и не влияют на результат работы макроса. Каждая строка, начинающаяся апострофом (‘), будет считаться в VBA комментарием. Редактор VBA в Excel выделит такую строку зелёным цветом шрифта, чтобы с первого взгляда было понятно, что это комментарий, который не будет выполняться.

Ниже продемонстрировано, как при помощи комментариев поясняется работа простой процедуры Sub:

Не расстраивайтесь, если какую-то часть кода, показанного выше, не удалось понять – далее в учебнике мы рассмотрим эту тему подробнее. Цель приведённого примера – продемонстрировать, как при помощи комментариев поясняется каждый блок кода.

Часто программисты ленятся добавлять подробные комментарии к своему коду, но, поверьте, затраченные усилия оправдают себя с избытком! Несколько минут, потраченных на написание понятного комментария, могут сэкономить Вам долгие часы в будущем.

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

Другой приём, делающий написанный код более читаемым – правильно расставлять отступы. В приведённом выше примере видно, что отступ сделан для кода внутри главной процедуры Sub и далее отступ увеличивается для каждого вложенного блока кода. Такие увеличенные отступы помогают понять, где каждый отдельный блок кода начинается и заканчивается.

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

Ещё один способ сделать код более читаемым и облегчить работу с ним – делать переносы и разбивать одну длинную строку кода на несколько коротких. В VBA, чтобы разбить строку, нужно вставить символы ” _” (пробел+подчёркивание) непосредственно перед переносом строки. Это сообщает компилятору VBA, что текущая строка кода продолжается на следующей строке.

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

Посмотрите на этот оператор If:

При помощи переносов строк тот же оператор If может быть записан вот так:

Если рассмотренный оператор If разбит на четыре строки, то составляющие его блоки c условиями видны гораздо более наглядно. Этот пример иллюстрирует, как аккуратное оформление может сделать код более читаемым и привести в результате к меньшему количеству ошибок и путаницы.

Горячие клавиши комментирования в VBA

Опубликовано urc в 1 октября, 2017 1 октября, 2017

Сегодня расскажу про быстрое комментирование кода в VBA для офисных приложений MS Office.

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

Лично мне это удобно делать с помощью горячих клавиш. Сейчас настроим эти клавиши.

Первое.

Открываем редактор VBA (Alt+F11) из экселя, ворда или аутлука. Кликаем правой кнопкой мыши на любой из кнопок меню в верхней части окна: «File», «Edit», «View» и т.д.

Вызываем окно Customize

  1. В появившемся выпадающем меню выбираем «Customize…».

Второе.

Появится окно настроек «Customize».

  1. В левой части экрана выбираем пункт «Edit».
  2. В правой — функцию «Comment Block». Нажимаем (но не отпускаем), и переносим выбранный элемент к кнопкам меню «File», «Edit» и т.д.

Третье.

  1. После того как перенесли нужный элемент выделяем его одним кликом левой кнопки мышки.
  2. В окне Customize нажимаем кнопку «Modify Selection» и в выпадающем списке редактируем свойства элемента следующим образом:
  3. Ставим галочку на «Image and Text».
  4. В строке Name можно поменять название команды, которое будет отображаться, а также установить кнопку, по которой будет вызываться данная команда. Это делается с помощью вставки символа амперсанд перед необходимой буквой в названии. В примере показано, что перед буквой «C» стоит амперсанд. И в верхнем меню, куда мы положили нашу команду видно, что под буквой «C» есть подчеркивание. Это значит, что теперь кода при редактировании кода вы нажмете Alt+C, то выделенные строки кода будут закомментированы.

Также, для себя настроил команды раскомментирования кода (Alt+X) и выравнивание окон модулей по горизонтали и вертикали (Alt+1 и Alt+2) — очень удобно, для просмотра и редактирования кода сразу в нескольких модулях.

Здесь можно настроить выравнивание окон

Посмотри видео как это сделать:

Что думаешь об этом?

Автор: Овчинников Егор, 01/10/2017

Ссылка на основную публикацию
Adblock
detector