Макросы для Excel

Настройка макросов в Параметрах программы

1. Заходим в меню «Файл», и выбираем в нем пункт «Параметры» – аналогично первому пункту в рассмотренном ранее примере.
2. Но теперь вместо настроек ленты, выбираем раздел “Центр управления безопасностью”. В правой части окна щелкаем на кнопку “Параметры центра управления безопасностью…”
3. В итоге система нас направит в окно с настройками макросов, которое открывалось и при выполнении операции во вкладке Разработчика. Далее выбираем нужную нам опцию и кликаем “OK”.

Встроенная функция рабочего листа

Функция VBA Trim удаляет пробелы только по краям строки, не затрагивая двойные, тройные и т.д. пробелы внутри текста. Для удаления всех лишних пробелов следует использовать встроенную функцию Trim рабочего листа Excel.

Пользовательская функция

Можно бороться с лишними пробелами и с помощью пользовательской функции:

Удаление при помощи сортировки

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

Удаление при помощи выделения группы ячеек

Для того чтобы удалить пустые строки в Excel 2007 и 2010 можно использовать возможностью выделения группы ячеек. Для этого выделяем столбец, содержащий пустые ячейки, после чего находим на ленте Excel вкладку “Главная”, в группе “Редактирование” выбираем кнопку “Найти и выделить” и выбираем пункт “Выделение группы ячеек”. В появившемся диалоговом окне “Выделение группы ячеек” включаем опцию “Пустые ячейки” и нажимаем кнопку ОК. В предварительно выделенном столбце будут выделены все пустые ячейки. Остается кликнуть правой кнопкой мыши в любом месте выделенного поля и выбрать пункт “Удалить…” в контекстном меню, а в появившемся диалоговом окне “Удаление ячеек” выбрать пункт “Строка” и нажать ОК. При этом, строго говоря, удаляются не пустые строки, а строки, содержащие пустые ячейки в предварительно выделенном столбце.

Макрос для удаления пустых строк

Как удалить строку макросом? Если нужно сделать так чтобы макрос автоматически не только выделял, но и сам удалял пустые целые и смежные диапазоны ячеек без использования других инструментов, тогда в конце кода для переменной diapaz2.Select следует изменить метод на [Delete]:

diapaz2.[Delete]

Удалить:

SubDelLine()
DimiAs Long
Dimdiapaz1AsRange
Dimdiapaz2AsRange
Setdiapaz1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
Fori = 1Todiapaz1.Rows.Count
IfWorksheetFunction.CountA(diapaz1.Rows(i).EntireRow) = 0Then
Ifdiapaz2Is Nothing Then
Setdiapaz2 = diapaz1.Rows(i).EntireRow
Else
Setdiapaz2 = Application.Union(diapaz2, diapaz1.Rows(i).EntireRow)
End If
End If
Next
Ifdiapaz2Is Nothing Then
MsgBox"Ненайдено ниодной пустой строки!"
Else
diapaz2.[Delete]
End If
End Sub


Пример второго VBA-кода:

Макрос для скрытия пустых строк

Как скрыть пустые строки макросом? Но если вам нужно не удалить, а только скрыть (например, при подготовке документа на печать), тогда эту строку кода следует модифицировать несколько иначе:

diapaz2.EntireRow.Hidden = True

Скрыть:

SubHidLine()
DimiAs Long
Dimdiapaz1AsRange
Dimdiapaz2AsRange
Setdiapaz1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
Fori = 1Todiapaz1.Rows.Count
IfWorksheetFunction.CountA(diapaz1.Rows(i).EntireRow) = 0Then
Ifdiapaz2Is Nothing Then
Setdiapaz2 = diapaz1.Rows(i).EntireRow
Else
Setdiapaz2 = Application.Union(diapaz2, diapaz1.Rows(i).EntireRow)
End If
End If
Next
Ifdiapaz2Is Nothing Then
MsgBox"Ненайдено ниодной пустой строки!"
Else
diapaz2.EntireRow.Hidden =True
End If
End Sub


Пример третьего VBA-кода:

Метод 1 из 2: Windows

1. 

   1
   Откройте таблицу Excel с макросами. Дважды щелкните по файлу Excel с макросом, который вы хотите удалить. Файл откроется в Excel.

2. 

   2
   Нажмите Включить содержимое. Эта опция находится на желтой полосе в верхней части окна Excel. Макросы, встроенные в файл, будут активированы.

   • Если не включить макрос, удалить его не получится.
3. 

   3
   Щелкните по вкладке Вид. Она находится на зеленой ленте в верхней части окна Excel.

4. 

   4
   Щелкните по Макросы. Это значок

   

   в правой части вкладки «Вид». Раскроется меню.
5. 

   5
   Нажмите Макросы. Эта опция находится в меню. Откроется всплывающее окно «Макрос».

6. 

   6
   Откройте меню «Находится в». Вы найдете его в нижней части окна.

7. 

   7
   Выберите Все открытые книги. Эта опция находится в меню.

8. 

   8
   Выберите макрос. Нажмите на имя макроса, который вы хотите удалить.

9. 

   9
   Щелкните по Удалить. Эта опция находится в правой части окна.

10. 

    10
    Нажмите Да, когда появится запрос. Макрос будет удален.

11. 

    11
    Сохраните изменения. Нажмите Ctrl+S. Теперь макрос не восстановится, когда вы закроете Excel.

Метод 2 из 2: Mac OS X

1. 

   1
   Откройте таблицу Excel с макросами. Дважды щелкните по файлу Excel с макросом, который вы хотите удалить. Файл откроется в Excel.

2. 

   2
   Нажмите Включить содержимое. Эта опция находится на желтой полосе в верхней части окна Excel. Макросы, встроенные в файл, будут активированы.

   • Если не включить макрос, удалить его не получится.
3. 

   3
   Откройте меню Инструменты. Оно находится в верхней части окна Excel.

4. 

   4
   Щелкните по Макрос. Эта опция находится внизу меню «Инструменты». Откроется новое меню.

5. 

   5
   Нажмите Макросы. Эта опция находится в меню. Откроется всплывающее окно «Макрос».^[1]

6. 

   6
   Откройте меню «Находится в». Вы найдете его в нижней части окна.

7. 

   7
   Выберите Все открытые книги. Эта опция находится в меню.

8. 

   8
   Выберите макрос. Нажмите на имя макроса, который вы хотите удалить.

9. 

   9
   Щелкните по —. Этот значок находится под списком макросов.

10. 

    10
    Нажмите Да, когда появится запрос. Макрос будет удален.

11. 

    11
    Сохраните изменения. Нажмите ⌘ Command+S. Теперь макрос не восстановится, когда вы закроете Excel.

Заключение

Благодаря отключению макросов разработчики пытаются обезопасить пользователей от возможных рисков. Однако, в некоторых случаях, их все же, требуется включить. В зависимости от версии программы, и даже в одной и той же версии это может выполняться по-разному. Но независимого от выбранного способа, процедура достаточно проста и не требует глубоких знаний и навыков работы с ПК.