Шпаргалки по макросам VBA для Excel

И снова потребовалось одному заказчику написать макрос, в этот раз – для Exсel. Данная заметка является чем-то вроде шпаргалки, небольшого справочника по функциям VBA для Excel – чтобы не пришлось искать по всему интернету, просто занесите эту страницу в закладки.

Начало работы с макросами VBA в Excel

Разработчик – Visual Basic – откроется новое окно. Далее Insert -> Module, в него вставляем код:

Sub RunMe()
Dim frm As UserForm1
Set frm = New UserForm1
frm.Show
End Sub

Потом Insert -> UserForm. А теперь на форму уже можно накидывать элементы и писать их обработчики. Можно делать прямо на листе, но мне почему-то нравится больше так, отдельной формой.



Чтобы можно было работать и с формой и с документом одновременно в свойствах формы измените ShowModal на False.

Получить значение ячейки из произвольного листа Excel:

Dim predel1 As Integer
predel1 = Sheets("Процесс").Range("C1")

Убрать пробелы справа:

Dim frazaFirst As String
frazaFirst = RTrim(frazaFirst)

Подсчитать число строк в столбце A:

Dim Chislostrok As Integer
Chislostrok = Evaluate("COUNTA(A:A)")

Убрать любой символ (а также подстроку) из строки:

Dim frazaFirst As String
frazaFirst = Replace(frazaFirst, "+", "")

Здесь мы заменяем на ничего плюс.

Поменять первую букву в слове с нижнего регистра на верхний регистр (строчную на прописную, маленькую на большую) с помощью VBA:

Dim frazaFirst As String
frazaFirst = StrConv(frazaFirst, vbProperCase)

Узнать длину динамически созданного массива:

Dim mass() As String, dlina As Integer
dlina = UBound(mass) - LBound(mass) + 1

Узнать число символов в строке VBA Exel:

Dim frazaFirst As String, chislo As Integer
Chislo = Len(frazaFirst)

Объединить строки:

Dim frazaFirst As String
frazaFirst  = "G" 
frazaFirst  = frazaFirst & 4

Присвоить значение ячейке:

Range("G4") = "да"

Вывести окно с текстом:

MsgBox "Успешно!", vbOKOnly, "upread.ru"

Справочник будет обновляться. Чтобы узнать дополнительные параметры функции, можно воспользоваться всплывающими подсказками VBA при наборе вручную: