Вы просматриваете: Главная > Компьютер для начинающих, Мои статьи > Как запустить код VBA в Excel 2010

Как запустить код VBA в Excel 2010

Обозначим задачу:

Допустим, что у Вас случилась проблема с неким документом Excel 2010. Вы посетили соответствующий форум, где вам дали некий скрипт в текстовом виде и посоветовали его запустить в Вашем документе.

Текст может иметь такой вид:

Sub Удалить_все_стили() ‘ Djon Player, 1 июня 2009 года.
Dim st As Style
Dim kol_stiley

With ActiveWorkbook

kol_stiley = .Styles.Count
MsgBox «Всего стилей в документе = » & kol_stiley & Chr(10) & » Для успешного удаления стилей нужно снять защиту на всех листах.», vbInformation

On Error Resume Next
For Each st In .Styles
If st.Name <> «Normal» Then
st.Delete
End If
Next st

On Error GoTo 0

MsgBox «Было удалено » & kol_stiley — .Styles.Count & » стилей, осталось » & .Styles.Count & » стилей», vbInformation

End With

End Sub

Как же его выполнить? Об этом данная статья (все картинки кликабельны)

  1. Откройте в Exel нужный лист или книгу.
  2. Вызовите редактор Visual Basic «горячими клавишами» Alt совместно с F11 Image 1
  3. Щелкаем правой кнопкой мыши (ПКМ) на панели Project-VBAProject на имени нужной книги (листа) и в выпавшем меню выбираем  Insert -> Module. см рис Image 2
  4. Копируем нужный код и вставляем его в правую часть редактора.
  5. Image 3
  6. Закрываем редактор и сохраняем документ.
  7. Если появится сообщение о том, что документ не возможно сохранить без поддержки макросов, нажмите «нет» и сохраните именно как документ с поддержкой макросов.
  8. Осталось запустить наш код. Нажмите «горячие клавиши» Alt совместно с F8
  9. В появившемся окне выберите нужный макрос и щелкните кнопку «запустить» Image 4

Все!

Метки:


Оставить отзыв