На нашем сайте мы используем cookie для сбора информации технического характера и обрабатываем IP-адрес вашего местоположения. Продолжая использовать этот сайт, вы даете согласие на использование файлов cookies. Здесь вы можете узнать, как мы пользуемся файлами cookies.
Я согласен
логотип upread.ru

Шпаргалки по макросам 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 при наборе вручную:




тегизаметки, макросы, exсel, vba

Читайте также:




Простейший компилятор на C#
Разбор ошибок валидации сайта


© upread.ru 2013-2019
При перепечатке активная ссылка на сайт обязательна.
Задать вопрос
письмо
Здравствуйте! Вы можете задать мне любой вопрос. Если не получается отправить сообщение через эту форму, то пишите на почу up777up@yandex.ru
Отправляя сообщение я подтверждаю, что ознакомлен и согласен с политикой конфиденциальности данного сайта.