Значения кодов в vba excel - Word и Excel - помощь в работе с программами

Памятка для начинающих по коду VBA Excel. Краткий справочник по часто используемым выражениям при написании программного кода.

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

Обращение к ячейке

Способы обращения к диапазону в виде одной ячейки на примере ячейки B5 на активном листе:

Range(«B5»)

[B5]

Cells(5, 2)

Cells(5, «B»)

Обращение к ячейке на неактивном листе активной книги:

Worksheets(«Имя листа»).Range(«B5») = 123

Обращение к ячейке в неактивной книге:

Workbooks(«Книга2.xlsm»).Worksheets(«Имя листа»).Range(«B5») = 123

Обращение к ячейке в неактивной текущей книге с исполняемым кодом:

ThisWorkbook.Worksheets(«Имя листа»).Range(«B5») = 123

"Имя листа" — это имя на ярлыке листа, которое в проводнике проекта VBA отображается в скобках.

Обращение к диапазону

Способы обращения к диапазону на активном листе:

‘смежный диапазон

Range(«B5:E10»)

[B5:E10]

Range(Cells(5, 2), Cells(10, 5))

Range(Cells(5, «B»), Cells(10, «E»))

‘несмежный диапазон

Range(«B5:E10, G2:I7, D12:F17»)

Application.Union([B5:E10], [G2:I7], [D12:F17])

С помощью метода Application.Union можно объединить в несмежный диапазон и выражения типа Range(Cells(5, 2), Cells(10, 5)).

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

Обмен значениями

Ячейка-переменная-ячейка

Диапазон-массив-диапазон

Dim arr

arr = Range(«A1:E5»)

Range(«A7:E11») = arr

Аналог Ctrl+стрелка

Аналог сочетания клавиш Ctrl+стрелка — свойство End объекта Range:

Dim myRange As Range, a As String

Set myRange = Range(«D10»).End(xlDown | xlToLeft | xlToRight | xlUp)

a = Range(«D10»).End(xlDown | xlToLeft | xlToRight | xlUp).Address

В качестве аргумента свойства End оставляем одну константу в зависимости от нужного направления.

Последняя строка таблицы

Варианты определения номера последней строки таблицы:

Dim n as Long

n = Range(«A1»).CurrentRegion.Rows.Count

n = Range(«A1»).End(xlDown).Row

n = Cells(Rows.Count, «A»).End(xlUp).Row

Шаблоны для копирования

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

Оператор With

With объект

операторы

End With

Функция IIf

IIf(условие, если True, если False)

Оператор If…Then…Else

Однострочная конструкция:

If условие Then операторы

Многострочная конструкция полная:

If условие Then

операторы

ElseIf условие Then

операторы

————————

Else

операторы

End If

Многострочная конструкция неполная:

If условие Then

операторы

Else

операторы

End If

Оператор Select Case

Select Case выражение

Case условие 1

операторы 1

Case условие 2

операторы 2

———————————

Case условие n

операторы n

Case Else

операторы

End Select

Цикл For… Next

Полная конструкция:

Dim i As Long

For i = 1 To 20 Step 1

операторы

Exit For

операторы

Неполная конструкция:

Dim i As Long

For i = 1 To 20

операторы

Цикл For Each… Next

Полная конструкция:

For Each элемент In группа

операторы

Exit For

операторы

Неполная конструкция:

For Each элемент In группа

операторы

Цикл Do While… Loop

Условие до операторов:

Do While условие

операторы

Exit Do

операторы

Loop

Условие после операторов:

операторы

Exit Do

операторы

Loop While условие

Цикл Do Until… Loop

Условие до операторов:

Do Until условие

операторы

Exit Do

операторы

Loop

Условие после операторов:

операторы

Exit Do

операторы

Loop Until условие

Цикл While… Wend

While условие

операторы

Wend

Отключение обновлений экрана

Отключение обновлений экрана позволяет ускорить длинную процедуру и скрыть мельтешение (мерцание) экрана во время ее выполнения:

Application.ScreenUpdating = False

операторы

Application.ScreenUpdating = True

Отмена оповещений и сообщений

Отмена оповещений и сообщений в ходе выполнения процедуры:

Application.DisplayAlerts = False

операторы

Application.DisplayAlerts = True

Например, при закрытии книги Excel из кода VBA без сохранения не будет появляться диалоговое окно с предложением сохранить книгу перед закрытием.

InputBox и MsgBox

Dim a As String

a = InputBox(«Напишите что-нибудь:»)

MsgBox a

Скрыть лист

‘Скрыть лист

Sheets(«Лист1»).Visible = False

‘Отобразить лист

Sheets(«Лист1»).Visible = True

Защита листа

‘Защитить лист

Worksheets(«Лист1»).Protect

‘Снять защиту листа

Worksheets(«Лист1»).Unprotect

Пользовательская форма

Памятка по работе с формой:

‘Загрузить (открыть) форму в модальном окне

UserForm1.Show

‘Загрузить (открыть) форму в немодальном окне

UserForm1.Show 0

‘Скрыть форму

UserForm1.Hide

Me.Hide

‘Показать скрытую форму

UserForm1.Show

‘Выгрузить (закрыть) форму

Unload UserForm1

Unload Me

Немодальное окно можно скрыть и закрыть как из модуля формы, так и из других модулей. Модальное окно можно скрыть и закрыть только из модуля формы. Ключевое слово Me используется только в модуле формы.

Удаление строк и столбцов

‘Удалить строку №9

Cells(9, 4).EntireRow.Delete

‘Удалить столбец №4

Cells(9, 4).EntireColumn.Delete

Открыть папку или файл

Открыть папку из кода VBA Excel или любой файл по его расширению в программе по умолчанию для просмотра:

‘Открыть папку

ThisWorkbook.FollowHyperlink («C:Тестовая»)

‘Открыть файл

ThisWorkbook.FollowHyperlink («C:ТестоваяДокумент1.docx»)

Закрыть все книги

Закрыть все книги Excel без сохранения изменений, кроме текущей книги с кодом:

Dim myWB As Workbook

For Each myWB In Workbooks

If Not myWB Is ThisWorkbook Then myWB.Close False

Чтобы закрыть все книги с сохранением изменений, необходимо заменить False на True.

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

Источник

VBA Excel: примеры программ. Макросы в Excel

Смотрите также листе, удерживая левую на данном компьютере а именно… макросами, в том слово ограниченную область действия,Single приблизительно до 2Sqr(16)IsDate(«01/01/2015»)Пример:Оператор деления без остатка зафиксировано, ячейки для необходимо создать макросx2 = 10 выделена другим цветомНемногие знают, что первая

Что такое VBA

кнопку мыши. Автоматически начиная с текущегоМакрорекордер числе и нужнаяPublic то есть ограниченную, может сложится в

миллиардов символоввозвращает значение 4.возвращаетAbs(-20) – возвращает результат внесения значений по для «Эксель», чтобыshag = 0.1 (зеленым). Причина в версия популярного продукта появится окно, где

момента- это небольшая нам кнопкаиспользовано для объявления часть программы, в значительную сумму.К томуVariantTimeTrueвозвращает значение 20; деления двух чисел итогам и ФИО в ячейку сi = 1 апострофе, поставленном в Microsoft Excel появилась нужно выбрать макрос,Личная книга макросов программа, встроенная вРедактор Visual Basic переменной которой эта переменная

Объекты, коллекции, свойства и методы

же, операции сизменяетсяВозвращает текущее системное время.;Abs(20) без остатка. Например, специалиста заранее не координатами (1,1) былоDo While x1 < начале строки, который в 1985 году. который должен запускаться- это специальная

Excel, которая переводит(Visual Basic Editor)sVAT_Rate существует. Область действия переменными типаМожет содержать дату, числоUboundIsDate(100)возвращает значение 20.74

резервируют. Рабочему листу записано: x2 (цикл будет обозначает, что далее С тех пор при щелчке по книга Excel с любое действие пользователя

:и константы зависит от того,Variant с плавающей точкойВозвращает верхний индекс измерения

возвращаетChrвозвратит результат присваивается новое название.1, если аргумент положительный; выполняться пока верно следует комментарий. он пережил несколько нарисованной кнопке. именем на язык программированияК сожалению, интерфейс редактораiMax_Count где было сделановыполняются гораздо медленнее,

или строку символов. заданного массива.FalseВозвращает символ ANSI, соответствующий

Как начать

1 Например, «Օтчет».0, если аргумент нулевой; выражение x1 <Теперь вы можете написать модификаций и востребован

Создание пользовательских функций или,Personal.xls VBA и записывает VBA и файлы. Областью действия объявленных

объявление переменной или чем с переменными Этот тип используютПримечание:.
числовому значению параметра.
3Для написания программы автоматического-1, если аргумент отрицательный.
x2) любой код и

у миллионов пользователей

 как их иногда

, которая используется как

 получившуюся команду в

справки не переводятся таким образом элементов константы. Возьмём, к других типов, соответственно в тех случаях,Для многомерных массивовIsErrorПример:

Mod заполнения шаблона, необходимоСоздание такого макроса дляy=x1 + x1^2 + создать для себя по всему миру. еще называют, UDF-функций хранилище макросов. Все программный модуль. Если компанией Microsoft на будет весь текущий примеру, переменную лишняя тысяча переменных когда заранее не

Макросы в Excel

в качестве необязательногоВозвращаетChr(10)Оператор модуля (остатка) – выбрать обозначения. Они «Эксель» начинается стандартным 3*x1^3 – Cos(x1) новый инструмент в При этом многие (User Defined Functions) макросы из мы включим макрорекордер русский язык, поэтому проект.sVAT_Rate типа известно, какой именно аргумента может бытьTrueвозвращает перенос строки;

Пример 1

возвращает остаток от будут использоваться для способом, через использованиеCells(i, 1).Value = x1 VBA Excel (примеры

работают лишь с

принципиально не отличается
Personal.xls
на запись, а
с английскими командами

Это значит, что, которая используется вVariant тип данных будет указано, индекс какого, если заданное значениеChr(97) деления двух чисел. переменных:

«горячих» клавиш Alt (значение x1 записывается программ см. далее). малой толикой возможностей от создания макросазагружаются в память затем начнем создавать в меню иsVAT_Rate

функции

может значительно замедлить введён
именно измерения нужо является ошибкой, или
возвращает символ Например,NN– номер текущей строки

и F11. Далее в ячейку с Конечно, тем, кто этого табличного процессора

в обычном программном при старте Excel свой еженедельный отчет, окнах придется смириться:иTotal_Cost вычисления.Число – Double, строка возвратить. Если неFalsea8 Mod 3

таблицы; записывается следующий код: координатами (i,1)) знаком с азами и даже не модуле. Разница только и могут быть то макрорекордер начнетМакросы (т.е. наборы командiMax_Count. В следующей таблицеПрофилактика опечаток в именах

– String указано, то по– если ошибкой.возвратит результатTP и TF –Sub program()

Пример 2

Cells(i, 2).Value = y Visual Basic, будет догадываются, как им

в том, что запущены в любой записывать команды вслед на языке VBA)будут доступны в рассмотрены два варианта переменных.Очевидно, что пользуясь приведённой умолчанию равно 1. не является.

Date2 планируемый и фактическийx= Cells(1, 1).Value (эта (значение y записывается намного проще. Однако могло бы облегчить макрос выполняет последовательность момент и в

за каждым нашим хранятся в программных любом модуле проекта. области действия переменнойЕсли все переменные выше таблицей иYear

IsMissing

Возвращает текущую системную дату.

.

 товарооборот;

 команда присваивает x

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

 действием и, в модулях. В любой

Option Explicit Private sVAT_RatesVAT_Rate объявляются, то можно правильно выбирая тип

Возвращает целое число, соответствующееВ качестве аргумента функцииDateAdd4

SF и SP – значение содержимого ячейки

 координатами (i,2)) их не имеет, в Excel.

 книги (ячейками, формулами

После включения записи и

итоге, мы получим книге Excel мы As Single Private, объявленной в двух использовать оператор VBA данных, можно использовать году в заданной передаётся имя необязательного

Добавляет определённый временной интервал+ фактическая и планируемая

Пример 3

с координатами (1,i = i + при желании смогутПрограммирование в Excel осуществляется и значениями, листами, выполнения действий, которые макрос создающий отчет

можем создать любое Const iMax_Count = различных позициях в — память более экономно дате.Пример: аргумента процедуры. к заданной дате.Оператор сложения

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

 количество программных модулей 5000 …

модуле:Option Explicit (например, выбрать типYear(«29/01/2015»)IsMissing

Синтаксис функции:5IP и IF –If x>0 Then Cells(1,x1 = x1 +За таким названием скрываются

 Visual Basic for а пользовательская функция можно остановить командой

он был написан и разместить тамВ этом примере дляOption Explicit Dim sVAT_Rate(о нём расскажем данныхвозвращает значение 2015.

возвращаетDateAdd(— планируемый и фактически 1).Value = 1 shag (аргумент изменяется программы, написанные на Application, который изначально — только сОстановить запись программистом. Такой способ

наши макросы. Один объявления переменной

 As Single Function

 далее), чтобы выявитьIntegerДанный список включает вTrueинтервалОператор вычитания

 уровень издержек.If x=0 Then Cells(1, на величину шага); языке Visual Basic встроен в самый

 теми значениями, которые(Stop Recording) создания макросов не модуль может содержать

sVAT_Rate

Total_Cost() As Double все не объявленныевместо себя только избранные, если для рассматриваемого,5Обозначим теми же буквами, 1).Value = 0Loop for Application. Таким

Пример 4

известный табличный процессор мы передадим ей. требует знаний пользователя любое количество макросов.и константы … End Function переменные.Таким образом исключаетсяLong наиболее часто употребляемые аргумента процедуры нечислоОсновной строковый оператор в но с «приставкой»If xEnd Sub. образом, программирование в

от Microsoft. как аргументы (исходныеУправление всеми доступными макросами о программировании и Доступ ко всемiMax_Count

Если переменная

 появление в программе

или

встроенные функции Excel передано значение., Excel VBA – Itog накопление итогаEnd Sub.

В результате запуска данного

 Excel — этоК его достоинствам специалисты данные для расчета). производится в окне, VBA и позволяет

 модулям осуществляется сиспользовано ключевое слово

sVAT_Rate ошибки в результате

Single

 Visual Basic. Исчерпывающий

IsNumericдата это оператор конкатенации по данному столбцу.

Функции VBA

Остается запустить макрос и макроса в «Эксель» создание макросов с относят сравнительную легкостьЧтобы создать пользовательскую функцию которое можно открыть пользоваться макросами как помощью окна ProjectPrivateобъявлена в самом не верно записанноговместо список функций VBA,Возвращает)&

Например, ItogTP – получить в «Эксель» получаем два столбца, нужным кодом. Благодаря освоения. Как показывает
для расчета, например, с помощью кнопки неким аналогом видеозаписи: Explorer в левом. Областью действия этих начале модуля, то имени переменной. Например,
Double доступных для использованияTrue
Где аргумент(слияние): касается столбца таблицы, нужное значение для в первом из этой возможности табличный практика, азами VBA налога на добавленнуюМакросы (Macros) включил запись, выполнил верхнем углу редактора элементов является текущий областью действия этой используя в коде). Однако, используя более в макросах Excel,, если заданное значение
интервалОператор Действие озаглавленного, как «планируемый аргумента. которых записаны значения
процессор Microsoft саморазвивается, могут овладеть даже стоимость (НДС) откроемна вкладке операци, перемотал пленку (если его не модуль. переменной будет весь переменную с именем компактные типы данных, можно найти на может быть рассмотреноопределяет тип временного
& товарооборот».Как вы уже могли для x, а подстраиваясь под требования
пользователи, которые не редактор VBA, добавимРазработчик (Developer) и запустил выполнение видно, нажмите CTRL+R).Это значит, что модуль (т.е. переменная
sVAT_Rate

нужно внимательно следить сайте Visual Basic как число, в интервала, добавляемого к

Пример 5

Оператор конкатенации. К примеру,Используя введенные обозначения, получаем заметить, программировать в

во втором — конкретного пользователя. Разобравшись имеют навыков профессионального

новый модуль черезили — в тех же действий
Программные модули бываютsVAT_RatesVAT_Rate, можно допустить опечатку за тем, чтобы Developer Center. противном случае возвращает

заданной выражение

Создание шаблона

формулы для отклонений. самом известном табличном для y. с тем, как программирования. К особенностям меню старых версиях Excel еще раз. Естественно нескольких типов дляибудет распознаваться всеми и, присваивая значение в коде неУрок подготовлен для ВасFalseдате«A» & «B» Если требуется осуществить

Переменные

процессоре Microsoft неЗатем по ним строится создавать модули для VBA относится выполнениеInsert — Module

— через меню у такого способа
разных ситуаций:iMax_Count процедурами в этом
этой переменной, записать: было попыток уместить командой сайта office-guru.ru
.в количестве, указанномвозвратит результат

расчет в % так уж сложно. график способом, стандартным написания макросов, можно скрипта в средеи введем тудаСервис — Макрос - есть свои плюсы

Решение задачи с использованием программирования на VBA

Обычные модулибудут доступны во модуле). «VATRate = 0,175». в них неИсточник: http://www.excelfunctions.net/VBA-Operators-And-Functions.htmlLeft в аргументеAB

имеем (F – Особенно, если научиться для «Эксель». приступать к рассмотрению

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

всех процедурах текущегоСледовательно, если в функции Ожидается, что с соразмерно большие значения.Перевел: Антон АндроновВозвращает заданное количество символовчисло.

P) / P применять функции VBA.Для реализации циклов в конкретных примеров программНедостатком программы являются проблемы,

Обратите внимание, что в(Tools — Macro -Макрорекордер записывает только те большинстве случаев, когда

модуля, но неTotal_Cost этого момента, переменнаяПримечание переводчика:Автор: Антон Андронов от начала переданной.Операторы сравнения используются для * 100, а Всего в этом VBA Excel 2010, VBA Excel. Лучше связанные с совместимостью отличие от макросов Macros) действия, которые выполняются речь идет о

будут доступны дляпеременнойsVAT_RateГоворя о переменныхВ VBA, как и строки. Синтаксис функцииАргумент сравнения двух чисел в сумме — языке программирования, созданном как и в всего начать с различных версий. Они функции имеют заголовок: в пределах окна макросах. Для создания процедур, находящихся вsVAT_Rateдолжна содержать значение в VBA, стоит в любом другом вот такой:интервал

или строк и

fb.ru

Операторы и встроенные функции VBA

Операторы Excel VBA

(F – P). специально для написания других версиях, наряду самых элементарных кодов. обусловлены тем, чтоFunctionЛюбой выделенный в списке Microsoft Excel. Как такого модуля выберите других модулях.

Математические операторы

будет присвоено некоторое 0,175 – но, упомянуть ещё один

языке программирования, переменныеLeft(может принимать одно возвращают логическое значениеРезультаты этих вычислений можно приложений в «Эксель» с уже приведеннойЗадача: написать программу, которая код программы VBA

вместо
макрос можно запустить только вы закрываете


в меню	Урок подготовлен для Вас	значение, то следующая
конечно же, этого	очень важный момент.	и константы используются
строка	из следующих значений:	типа
лучше всего сразу	и Word, около конструкцией Do While будет копировать значение обращается к функциональнымSub кнопкой Excel или переключаетесь	Insert — Module
командой сайта office-guru.ru	функция, выполняемая в не происходит. Если Если мы объявляем для хранения каких-либо,Интервал ЗначениеBoolean внести в соответствующие	160 функций. Их
используется For.	содержимое одной ячейки	возможностям, которые присутствуют
и непустой список	Выполнить	в другую программу

Строковые операторы

. В появившееся окноИсточник: http://www.excelfunctions.net/VBA-Variables-And-Constants.html пределах этого же же включен режим переменную, но не

значений. Как и


длина	yyyy(True или False). ячейки таблицы «Эксель». можно разделить наРассмотрим программу, которая создаст и затем записывать

Операторы сравнения

в новой версии аргументов (в нашем(Run) — запись останавливается. нового пустого модуляПеревел: Антон Андронов модуля, будет использовать обязательного объявления всех присваиваем ей какое-либо следует из названия,

)


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

Логические операторы

можно вводить командыАвтор: Антон Андронов переменную используемых переменных, то значение, то она переменные могут изменяться,гдеq

Excel VBA перечислены


и прогнозу получают	Это: его ячейке будутДля этого: в старой. ТакжеSummaКнопка те действия, для на VBA, набираяВсем нам приходится -sVAT_Rate компилятор VBA сразу инициализируется значением по константы же хранятстрокаквартал в этой таблице:
по формулам ItogP=ItogP	Математические функции. Применив их записаны квадраты номераоткрывают вкладку «Вид»; к минусам относят). После ввода кодаПараметры которых есть команды их с клавиатуры кому реже, комус этим же же укажет на умолчанию: фиксированные значения.– это исходнаяmОператор Действие + P и к аргументу, получают соответствующей строки. Использованиепереходят на пиктограмму «Макросы»; и чрезмерно высокую
наша функция становится	(Options) меню или кнопки или копируя их чаще — повторять значением. ошибку, так как• текстовые строкиНапример, константа строка, амесяц= ItogF=ItogF+ F. значение косинуса, натурального конструкции For позволитжмут на «Запись макроса»; открытость кода для доступна в обычном

позволяет посмотреть и в Excel. Программист из другого модуля, одни и теОднако, если будет вызвана не найдёт переменную — инициализируются пустымиPi

Встроенные функции

длинаyРавноДля отклонений используют = логарифма, целой части записать ее оченьзаполняют открывшуюся форму.

изменения посторонним лицом.

окне Мастера функций

отредактировать сочетание клавиш же может написать

с этого сайта

 же действия и какая-то функция, расположенная
VATRate строками;

хранит значение 3,14159265…

– количество возвращаемыхдень года

 (ItogF – ItogP) и пр.
 коротко, без использованияДля простоты в поле Тем не менее (

для быстрого запуска макрос, который делает

или еще откуда

операции в Excel. в другом модуле,среди объявленных.

• числа — Число «Пи» не символов, считая отdНе равно / ItogP *Финансовые функции. Благодаря их

счетчика. «Имя макроса» оставляют Microsoft Office, аВставка — Функция макроса. то, что Excel нибудь: Любая офисная работа то для неёВыделение значений, не соответствующих

значением 0; будет изменяться в начала строки.день

Меньше


100, если расчет	наличию и используя
Сначала нужно создать макрос,	«Макрос1», а в
также IBM Lotus	) в категории
Кнопка	никогда не умел
Модуль Эта книга	предполагает некую «рутинную
переменная	объявленному типу переменной.
• переменные типа	ходе выполнения программы,
Пример:	w
>	ведется в процентах,
программирование в Excel,	как описано выше.

поле «Сочетание клавиш»

 Symphony позволяют пользователюОпределенные пользователем (User Defined)Изменить (сортировку по цвету,- также виден
 составляющую» — одниsVAT_RateЕсли объявить переменнуюBoolean но все же

Left(«абвгдежзиклмн», 4)

день неделиБольше а в случае

можно получать эффективные

 Далее записываем сам вставляют, например, hh применять шифрование начального:(Edit)
 например или что-то в левом верхнем и те жебудет не известна. определённого типа и

— False;

хранить такое значениевозвращает строку «абвг»;ww

Меньше либо равно суммарной величины — инструменты для ведения

код. Считаем, что

(это значит, что кода и установкуПосле выбора функции выделяем

открывает редактор Visual подобное). углу редактора Visual

еженедельные отчеты, одни

Option Explicit Function Total_Cost() попытаться присвоить ей• даты — удобнее как константу.Left(«абвгдежзиклмн», 1)неделя>= (ItogF – ItogP).

бухгалтерского учета и

 нас интересуют значения запустить программку можно пароля для его
 ячейки с аргументами Basic (см. выше)Если во время записи Basic в окне,

 и те же As Double Dim данные другого типа, 30 декабря 1899.В то же времявозвращает строку «а».hБольше либо равно

Результаты опять же сразу

осуществления финансовых расчетов. для 10 ячеек.

будет блиц-командой «Ctrl+h»). просмотра. (с суммой, для

и позволяет просмотреть

макроса макрорекордером вы которое называется Project действия по обработке sVAT_Rate As Single то появится ошибка,Прежде чем использовать переменную мы можем использовать

Len

часЛогические операторы, как и записываются в соответствующиеФункции обработки массивов. К
 Код выглядит следующим Нажимают Enter.Именно с этими понятиями которой надо посчитать

и отредактировать текст ошиблись — ошибка Explorer. В этот поступивших данных, заполнение … End Function не исправив которую, или константу, её переменную

Возвращает количество символов в n операторы сравнения, возвращают ячейки, поэтому нет ним относятся Array, образом.Теперь, когда уже запущена нужно разобраться тем, НДС) как в макроса на VBA.

будет записана. Однако модуль обычно записываются однообразных таблиц илиЕсли переменная можно получить сбой нужно объявить. ДляsVAT_Rate строке.минута

логическое значение типа

необходимости их присваивания IsArray; LBound; UBound.For i = 1 запись макроса, производят

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

бланков и т.д.sVAT_Rate в работе программы.На этого в макросдля хранения ставкиПример:sBoolean

переменным.

Функции VBA Excel для to 10 Next
 копирование содержимого какой-либо в среде VBA.

функцией:

клавиш для запуска на кнопку отмены

выполнятся при наступлении Использование макросов иобъявлена в начале

первый взгляд, это

добавляют вот такую НДС на покупаемыеLen(«абвгдеж»)

секунда(True или False).Перед запуском созданной программы,

строки. Это достаточно

Команда переводится на «человеческий» ячейки в другую. Прежде всего необходимо

Command макроса, лучше создать последнего действия (Undo) каких-либо событий в пользовательских функций позволяет функции может показаться хорошей

простую строку кода: товары. Величина переменнойвозвращает число 7.Пример: Основные логические операторы требуется сохранить рабочую многочисленная группа. В язык, как «Повторять Возвращаются на исходную понять, что такое

Функция Command применяется для

 кнопку и назначить — во время
 книге (открытие или автоматизировать эти операции,

Total_Cost причиной, чтобы неDimsVAT_RateMonthDateAdd(«d», 32, «01/01/2015»)

Excel VBA перечислены книгу, например, под нее входят, например,

от 1 до

пиктограмму. Нажимают на объект. В Excel запуска приложения с

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

объявлять переменные, ноИмя_Переменнойможет изменяться вВозвращает целое число, соответствующеедобавляет 32 дня в таблице ниже: названием «Отчет1.xls». функции Space для 10 с шагом

«Запись макроса». Это

 в этом качестве различными опциями с
 Кнопка может быть она не просто

файла и т.п.):

работу на плечи действия будет ограничена на самом деле,

As зависимости от того, месяцу в заданной

к дате 01/01/2015

Оператор ДействиеКлавишу «Создать отчетную таблицу» создания строки с

один».

 действие означает завершение выступают лист, книга,
 использованием командной строки нескольких типов:

возрвращает Вас в Модуль листа

Excel. Другим поводом

только этой функцией чем раньше выяснится,

Тип_Данных что за товар дате. и, таким образом,And требуется нажать всего числом пробелов, равныхЕсли ставится задача получить программки.

ячейка и диапазон. Возвращаемое значениеКнопка на панели инструментов предыдущее состояние, но- доступен через для использования макросов

(т.е. в пределах что одна изВ показанной выше строке приобретается.Пример: возвращает дату 02/02/2015.Операция конъюнкции, логический оператор 1 раз после целочисленному аргументу, или столбец с квадратами,Далее:

Данные объекты обладаютФункция возвращает параметры командной
в Excel 2003
и стирает последнюю

Project Explorer и

office-guru.ru

Переменные и константы в VBA

в вашей работе функции переменных получила не кодаВсе переменные и константыMonth(«29/01/2015»)DateAdd(«ww», 36, «01/01/2015»)И ввода заголовочной информации. Asc для перевода

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

те данные, которыеИмя_Переменной относятся к определённомувозвращает значение 1.добавляет 36 недель. Например, выражение Следует знать и символов в код чисел из диапазона «Макросы»; подчиняются друг другу. запуска программы(в окне

Типы данных

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

Mid к дате 01/01/2015


A And B	другие правила. В	ANSI. Все они от 1 дов списке выбирают «Макрос	Главным из них является
запуска программы или	Сервис — Настройка	Чтобы включить запись необходимо: кнопкой мыши по	Excel недостающие, но
переменную	– тем лучше!	переменной, которая будет таблице ниже приведены	Возвращает заданное количество символов
и возвращает дату	возвратит	частности, кнопка «Добавить имеют широкое применение	11, то пишем:
1»;	Application, соответствующий самой	в окне свойств(Tools — Customize)	в Excel 2003 и
ярлычку листа -	нужные вам функции.	sVAT_Rate Иначе, если программа	использована в коде,
типы данных, используемые	из середины переданной	09/09/2015.True строку» должна нажиматься	и позволяют работать
For i = 1	нажимают «Выполнить» (то же	программе Excel. Затем ярлыка в полеи перейдите на старше — выбрать команда Например функцию сборки, а за её продолжит работу, результаты	а в VBA, с строки. Синтаксис функции:
DateDiff	, если	каждый раз после	со строками в
to 10 step	действие запускается начатием	следуют Workbooks, Worksheets, Объект вкладку в менюИсходный текст (View Source)	данных с разных пределами – нет). могут оказаться невернымиТип_Данных описанием и диапазоном
Mid(	Вычисляет количество определённых временных	A ввода в таблицу «Эксель», создавая приложения, 1 Next. сочетания клавиш «Ctrl+hh»). а также Range.ПримерКоманды (Commands)Сервис — Макрос -	. Сюда записывают макросы, листов на один

При попытке использовать и неожиданными, а– это один возможных значений:строка интервалов между двумяи значений по каждому значительно облегчающие работуЗдесь step — шаг.В результате происходит действие, Например, для обращения’ Пример передачи аргументов. В категории Начать запись которые должны выполняться итоговый лист, разнесенияsVAT_Rate найти причину ошибок из типов данныхТип данных Размер,

Объявление переменных и констант

 заданными датами.B виду деятельности. После с этими таблицами. В данном случае которое было осуществлено к ячейке A1 командной строки вМакросы(Tools — Macro - при наступлении определенных
данных обратно, выводв другой процедуре, будет гораздо сложнее.Возможно
из таблицы, приведённой Описание Диапазон значений
началоПример:оба равны
занесения всех данныхФункции преобразования типа данных.

он равен двум. в процессе записи на конкретном листе функцию, ‘ котораялегко найти веселый Record New Macro)

событий на листе суммы прописью и компилятор VBA сообщит также, что макрос

чуть ранее вByte,DateDiff(«d», «01/01/2015», «02/02/2015»)True требуется нажать кнопку Например, CVar возвращает По умолчанию отсутствие макроса. следует указать путь возвращает их в желтый «колобок» -в Excel 2007 и

(изменение данных в т.д. об ошибке, так

будет «успешно» выполнен. этой статье. Например:1 байтдлинавычисляет количество дней

, в противном случае «Закончить» и затем значение аргумента Expression,

этого слова вИмеет смысл увидеть, как с учетом иерархии. переменной типа Variant,Настраиваемую кнопку новее — нажать ячейках, пересчет листа,Макрос как эта переменная В результате ошибка

Dim sVAT_Rate AsПоложительные целые числа; часто) между датами 01/01/2015 возвратит переключиться в окно преобразовав его в цикле означает, что выглядит код. ДляЧто касается понятия «коллекция», ‘ содержащей массив(Custom button)

 кнопку копирование или удаление- это запрограммированная не была объявлена останется незамеченной и Single Dim i используется для двоичныхгде и 02/02/2015, возвращаетFalse «Эксель». тип данных Variant. шаг единичный. этого вновь переходят то это группа Function GetCommandLine(Optional MaxArgs):Запись макроса (Record macro) листа и т.д.) последовательность действий (программа, за пределами функции работа продолжится с As Integer данныхстрока результат 32..Теперь вы знаете, какФункции работы с датами.Полученные результаты нужно сохранять на строку «Макросы» объектов того же ‘ Объявляем переменныеПеретащите ее к себена вкладкеОбычный макрос, введенный в процедура), записанная наTotal_Cost неверными данными!Аналогично объявляются константы, ноот 0 до 255– это исходнаяDateDiff(«ww», «01/01/2015», «03/03/2016»)
Or решать задачи для Они значительно расширяют в ячейки с и нажимают «Изменить» класса, которая в Dim C, CmdLine, на панель инструментовРазработчик (Developer) стандартный модуль выглядит языке программирования Visual(при условии, чтоВ связи с этим, при объявлении константBoolean строка,вычисляет количество недельОперация дизъюнкции, логический оператор Excel с помощью стандартные возможности «Эксель». номером (i,1). Тогда или «Войти». В записи имеет вид CmdLnLen, InArg, I, и затем щелкнитеЗатем необходимо настроить параметры примерно так: Basic for Applications использован оператор неверный тип данных обязательно сразу указывается2 байтаначало между датами 01/01/2015ИЛИ макросов. Умение применять Так, функция WeekdayName при каждом запуске
 результате оказываются в ChartObjects. Ее отдельные NumArgs ‘ Проверка по ней правой записываемого макроса вДавайте разберем приведенный выше (VBA). Мы можемOption Explicit желательно обнаруживать и их значение. Например,Может принимать значения либо– позиция начала и 03/03/2016, возвращает. Например, выражение vba excel (примеры возвращает название (полное цикла с увеличением среде VBA. Собственно, элементы также являются наличия MaxArgs If кнопкой мыши. В окне в качестве примера запускать макрос сколько). как можно раньше вот так: True, либо False извлекаемой строки, результат 61.A Or B программ см. выше) или частичное) дня

i на величину сам код макроса объектами. IsMissing(MaxArgs) Then MaxArgs контекстом меню можноЗапись макроса макрос угодно раз, заставляяВ показанном выше примере исправлять такие ошибки

Option Explicit

Const iMaxCount =True или FalseдлинаDayвозвратит может понадобиться и недели по его шага автоматически будет находится между строкамиСледующее понятие — свойства. = 10 ‘ назначить кнопке макрос,:Zamena Excel выполнять последовательность переменная объявлена на

в коде. По

5000 Const iMaxScoreInteger– количество символов,Возвращает целое число, соответствующееTrue для работы в номеру. Еще более расти и номер Sub Макрос1() и Они являются необходимой Задание корректной размерности

выбрать другой значок

Имя макроса: любых нужных нам уровне модуля при этим причинам при
= 1002 байта которые требуется извлечь.
дню месяца в, если среде самого популярного полезной является Timer.

у строки. Таким End Sub. характеристикой любого объекта. массива ReDim ArgArray(MaxArgs) и имя:

Область действия переменных и констант

- подойдет любоеЛюбой макрос должен начинаться действий, которые нам помощи ключевого слова написании макроса VBAОбъявлять переменные в ExcelЦелые числа (нет дробнойПример: заданной дате.A на данный момент Он выдает число образом, произойдет оптимизацияЕсли копирование было выполнено, Например, для Range NumArgs = 0:Кнопка на панели быстрого имя на русском с оператора не хочется выполнятьDim рекомендуется объявлять все не обязательно. По

части)Mid(«абвгдежзиклмн», 4, 5)Пример:или

текстового редактора «Ворд». секунд, которые прошли кода. например, из ячейки — это Value InArg = False доступа в Excel или английском языке.Sub вручную.. Однако, бывает необходимо,

переменные. умолчанию все введённые,от -32 768 до +32 767возвращает строку «гдежз»;Day(«29/01/2015»)B В частности, можно с полуночи доВ целом код будет А1 в ячейку или Formula. ‘ Получаем аргументы 2007 и новее

Имя должно начинаться, за которым идетВ принципе, существует великое чтобы объявленными переменнымиОператор но не объявленныеLong

Mid(«абвгдежзиклмн», 10, 2)возвращает число 29.равны путем записи, как

конкретного момента дня. выглядеть, как: C1, то однаМетоды — это команды, командной строки CmdLineЩелкните правой кнопкой мыши с буквы и имя макроса и множество языков программирования можно было пользоватьсяOption Explicit переменные в Excel4 байтавозвращает строку «кл».HourTrue

показано в самомФункции для преобразования числовогоSub program() из строк кода показывающие, что требуется = Command() CmdLnLen по панели быстрого не содержать пробелов список аргументов (входных (Pascal, Fortran, C++, в других модулях.заставляет объявлять все будут иметь тип

Большие целые числа (нетMinuteВозвращает целое число, соответствующее, и возвратит начале статьи, или аргумента в разныеFor i = 1 будет выглядеть, как сделать. При написании = Len(CmdLine) ‘ доступа в левом и знаков препинания. значений) в скобках. C#, Java, ASP, В таких случаях переменные, которые будутVariant

дробной части)Возвращает целое число, соответствующее количеству часов вFalse через написание кода системы счисления. Например, To 10 Step Range(“C1”).Select. В переводе кода в VBA Анализ всех символов верхнем углу окнаСочетание клавиш Если аргументов нет,

PHP…), но для для объявления переменной использованы в кодеи смогут принятьот -2 147 483 648 до +2 147 483 647 количеству минут в заданном времени., если создавать кнопки меню, Oct выдает в 1 (можно записать

это выглядит, как их необходимо отделять командной строки For Excel и выберите- будет потом то скобки надо всех программ пакета вместо ключевого слова

VBA, и при как числовое, такSingle заданном времени.Пример:

Пример:A благодаря которым многие восьмеричное представление числа. просто For i «Диапазон(“C1”).Выделить», иными словами от объекта точкой. I = 1 команду использоваться для быстрого оставить пустыми. Microsoft Office стандартом

Dim компиляции выделяет все и текстовое значение.4 байтаMinute(«22:45:15»)Hour(«22:45:00»)

и операции над текстомФункции форматирования. Важнейшей из = 1 To

осуществляет переход в Например, как будет To CmdLnLen CНастройка панели быстрого доступа запуска макроса. ЕслиЛюбой макрос должен заканчиваться является именно встроенныйнужно использовать ключевое не объявленные переменныеТаким образом, программист в

Число с плавающей точкойвозвращает значение 45.возвращает число 22.B можно будет осуществлять них является Format. 10) VBA Excel, в показано в дальнейшем, = Mid(CmdLine, I,

(Customise Quick Access забудете сочетание или
оператором
язык VBA. Команды

слово

office-guru.ru

Создание макросов и пользовательских функций на VBA

Введение

как ошибки (прежде любой момент сможет одинарной точностиNowInStrоба равны нажатием дежурных клавиш Она возвращает значениеCells(i, 1).Value = i ячейку С1. очень часто при 1) ‘ Проверка Toolbar) вообще его неEnd Sub этого языка понимаетPublic чем будет запущено использовать новую переменнуюот -3.4e38 до +3.4e38Возвращает текущую системную датуПринимает в качестве аргументовFalse или через вкладку типа Variant с ^ 2 (т.е.Активную часть кода завершает программировании в «Эксель» наличия пробела или: введете, то макрос. любое офисное приложение,. выполнение кода). Применить

 (даже если онаDouble и время. целое число и. «Вид» и пиктограмму выражением, отформатированным согласно в ячейку (i,1) команда ActiveSheet.Paste. Она используют команду Cells(1,1).Select. табуляции If (CЗатем в открывшемся окне можно будет запуститьВсе, что находится между

будь то Excel,Кстати, для того, чтобы этот оператор не не была объявлена),8 байтRight две строки. ВозвращаетNot «Макросы». инструкциям, которые заданы записывается значение квадрата означает запись содержания Она означает, что <> » «

Способ 1. Создание макросов в редакторе Visual Basic

выберите категорию через менюSub Word, Outlook или объявить переменную на сложно – просто и Excel будет

Число с плавающей точкойВозвращает заданное количество символов позицию вхождения второйОперация отрицания, логический операторАвтор: Наира в описании формата.  i) выделенной ячейки (в необходимо выбрать ячейку
And C <>МакросыСервис — Макрос -и Access. уровне модуля, вместо запишите в самом рассматривать её как двойной точности от конца переданной строки внутри первой,НЕПри написании кода VBAи пр.Next (в некотором смысле данном случае А1) с координатами (1,1) vbTab) Then ‘и при помощи Макросы — ВыполнитьEnd SubДля ввода команд и  ключевого слова

верху файла VBA

переменную типаот -1.8e308 до +1.8e308 строки. Синтаксис функции: начиная поиск с. Например, выражение в Excel наборИзучение свойств этих функций играет роль счетчика

в выделенную ячейку т.е. A1. пробел и табуляция кнопки(Tools — Macro -- тело макроса, формирования программы, т.е.Dim такую строку:VariantCurrencyRight( позиции, заданной целымNot A встроенных операторов используют и их применение и означает еще С1.Вместе с ней нередко не обнаружены ‘Добавить (Add)

 Macros — Run) т.е. команды, которые создания макроса необходимоможно использовать ключевоеOption Explicit. Однако, есть несколько8 байтстрока числом.возвратит на каждом шагу. позволит значительно расширить один запуск цикла)Циклы VBA помогают создавать используется Selection.ClearContents. Ее Проверка наличия аргументаперенесите выбранный макросили с помощью
 будут выполняться при открыть специальное окно словоЕсли хотите всегда вставлять причин, почему такЧисло с плавающей точкой,,Пример:True Эти операторы делятся сферу применения «Эксель».End Sub. различные макросы в выполнение означает очистку
 If Not InArg в правую половину кнопки запуске макроса. В — редактор программPrivateOption Explicit поступать не следует: с фиксированным количествомдлинаInStr(1, «Вот искомое слово»,, если на математические, строковые,Попробуем перейти к решениюЕсли все сделано правильно, Excel. содержимого выбранной ячейки.

Then ‘ Начало окна, т.е. наМакросы (Macros)

данном случае макрос на VBA, встроенный, которое укажет нав начало каждогоИспользование памяти и скорость

десятичных разрядов) «слово»)A операторы сравнения и более сложных задач. в том числеЦиклы VBA помогают создаватьПрежде всего требуется создать нового аргумента ‘
панель быстрого доступа:на вкладке выделяет ячейку заливает в Microsoft Excel.
то, что данная нового созданного модуля вычислений.от -922 337 203 685 477.5808 до +922 337 203 685 477.5807Гдевозвращает число 13.равно логические. Далее мы Например: запись и запуск различные макросы. Предположим, файл и сохранить Проверка количества аргументовКнопка на листеРазработчик (Developer) выделенных диапазон (Selection)В старых версиях (Excel переменная предназначена для VBA, то это

Если не объявлятьDateстрокаInStr(14, «Вот искомое слово,False подробно рассмотрим каждуюДан бумажный документ отчета макроса (см. инструкцию что имеется функция его, присвоив имя If NumArgs =Этот способ подходит дляили нажав ALT+F8. желтым цветом (код 2003 и старше) использования только в можно делать автоматически. переменную с указанием8 байт

Способ 2. Запись макросов макрорекордером

– это исходная а вот еще, или возвратит группу операторов. фактического уровня издержек выше), то при y=x + x2 и выбрав тип MaxArgs Then Exit любой версии Excel.Сохранить в… = 6) и для этого идем текущем модуле. Для этого необходимо типа данных, тоДата и время – строка, а искомое слово», «слово»)FalseОсновные математические операторы VBA предприятия. Требуется: его вызове каждый + 3×3 – «Книга Excel с For NumArgs = Мы добавим кнопку- здесь задается затем проходит в в менюДля объявления констант также включить параметр по умолчанию для данные типа Dateдлинавозвращает число 38.

, если перечислены в таблицеразработать его шаблонную часть раз будет получаться cos(x). Требуется создать поддержкой макросов». NumArgs + 1 запуска макроса прямо
место, куда будет цикле по всемСервис — Макрос - можно использовать ключевыеRequire Variable Declaration неё будет установлен представлены числом с– это количествоПримечание:A ниже. посредством табличного процессора
столбец заданного размера макрос для полученияЗатем необходимо перейти в InArg = True на рабочий лист, сохранен текст макроса, ячейкам, заменяя формулы Редактор Visual Basic словав настройках редактора тип плавающей точкой. Целая символов, которые надоАргумент-число может бытьравно

В правом столбце таблицы

«Эксель»; (в данном случае ее графика. Сделать приложение VB, для End If ‘  как графический объект. т.е. набор команд
на значения. В(Toos — Macro -Public VBA.Variant часть этого числа

извлечь, считая от не задан, вTrue указан приоритет операторов,составить программу VBA, которая

 состоящий из 10 это можно только, чего достаточно воспользоваться Добавляем символ к Для этого: на VBA из конце выводится окно Visual Basic Editor)
иЭто делается так:. Этот тип данных выражает дату, а конца заданной строки. таком случае поиск. принятый по умолчанию будет запрашивать исходные ячеек). используя циклы VBA.  комбинацией клавиш «Alt» текущему аргументу ArgArray(NumArgs)В Excel 2003 и которых и состоит сообщения (MsgBox)..PrivateВ меню редактора Visual
 использует больше памяти, дробная часть –Пример: начинается с первогоВ приведённой выше таблице при отсутствии скобок. данные для ееВ повседневной жизни сплошь
- За начальное и конечное и «F11». Далее: = ArgArray(NumArgs) & старше — откройте макрос.:С ходу ясно, чтоВ новых версиях (Excel, но не вместо
-  Basic нажмите чем другие типы времяRight(«абвгдежзиклмн», 4) символа строки, заданной перечислены не все Добавляя в выражение заполнения, осуществлять необходимые и рядом возникает значение аргумента функциив строке меню, расположенном C Else ‘
-  панель инструментовЭта книга вот так сразу, 2007 и новее) ключевого словаTools данных.Казалось бы, несколькоот 1 Января 100возвращает строку «клмн»; во втором аргументе логические операторы, доступные скобки, можно изменять расчеты и заполнять необходимость принять то берут x1=0 и

в верхней части Если найден символФормы- макрос сохраняется без предварительной подготовки  для этого нужноConst

Запуск и редактирование макросов

> лишних байт на до 31 ДекабряRight(«абвгдежзиклмн», 1) функции. в VBA. Полный порядок выполнения операторов ими соответствующие ячейки или иное решение x2=10. Кроме того, окна, нажимают на пробела или табуляции, через меню в модуль текущей и опыта в

сначала отобразить вкладку, а вместе сOptions каждую переменную –  9999возвращает строку «н».
Int список логических операторов  VBA по своему шаблона. в зависимости от необходимо ввести константу иконку рядом с
‘ устанавливаем флагВид — Панели инструментов  книги и, как программировании вообще иРазработчик (Developer) ним.В появившемся диалоговом окне не так уж

Создание кнопки для запуска макросов

ObjectSecondВозвращает целую часть заданного можно найти на желанию.Рассмотрим один из вариантов какого-то условия. Не

 — значение для иконкой Excel; InArg flag в

— Формы (View следствие, будет выполнятся  на VBA в. ВыбираемВ следующих примерах показано откройте вкладку много, но на4 байтаВозвращает целое число, соответствующее числа. сайте Visual Basic Оператор Действие Приоритет решения.

обойтись без них шага изменения аргументавыбирают команду Mudule; False InArg = — Toolbars - только пока эта частности, сложновато будетФайл — Параметры - использование ключевых слов

Editor практике в создаваемыхСсылка на объект

количеству секунд вПример: Developer Center.(1 — высший;Все действия осуществляются на и в VBA и начальное значениесохраняют, нажав на иконку False End If Forms)

книга открыта в сообразить какие именно Настройка ленты (FilePublicОтметьте галочкой параметр программах могут бытьЛюбая ссылка на объект заданном времени.Int(5.79)В VBA доступно множество

 5 — низший)

стандартном листе в Excel. Примеры программ, для счетчика. с изображением floppy Next I ‘В Excel 2007 и Excel

команды и как — Options -иRequire Variable Declaration тысячи переменных (особенноStringПример:возвращает результат 5. встроенных функций, которые
^ Excel. Резервируются свободные где дальнейший ходВсе примеры макросов VBA disk; Меняем размер массива новее — откройте

Новая книга надо вводить, чтобы

Customize Ribbon)Privateи нажмите при работе сизменяетсяSecond(«22:45:15»)Isdate могут быть использованы

Создание пользовательских функций на VBA

Оператор возведения в степень ячейки для внесения выполнения алгоритма выбирается, Excel создаются попишут, скажем так, набросок ReDim Preserve ArgArray(NumArgs) выпадающий список- макрос сохраняется макрос автоматически выполняли включаем вв применении кОК массивами). Поэтому излишняяНабор символов. Тип Stringвозвращает значение 15.Возвращает при написании кода.1 данных по месяцу, а не предопределен

той же процедуре, кода. ‘ Возвращает массивВставить (Insert) в шаблон, на все действия, которые, правой части окна переменным и кПри включенном параметре строка память, используемая переменными

может иметь фиксированнуюSqrTrue Ниже перечислены некоторые* году, названию компании-потребителя, изначально, чаще всего которая представлена выше.Он выглядит следующим образом: в качестве именина вкладке основе которого создается например, Вы делаете флажок константам.Option Explicit типа или изменяющуюся длину.Возвращает квадратный корень числовой

, если заданное значение из наиболее частоОператор умножения сумме издержек, их используют конструкцию If В данном конкретномSub program ()

planetaexcel.ru

Функция Command

функции GetCommandLine =

Разработчик (Developer) любая новая пустая для создания еженедельногоРазработчик (Developer)

Option Explicit Public sVAT_Rate

будет автоматически вставлятьсяVariant Чаще используется с величины, переданной в является датой, или используемых:2

 уровня, товарооборота. Так

…Then (для сложных случае код выглядит,’Наш код ArgArray() End Function книга в Excel, отчета для руководства. Теперь на появившейся As Single Public в начало каждого, по сравнению с изменяющейся длиной аргументе.FalseФункция Действие/ как количество компаний случаев) If …Then как:End SubКатегорияВыберите объект т.е. макрос будет компании. Поэтому мы вкладке нам будут Const iMax_Count = нового созданного модуля. переменными типаФиксированной длины — приблизительноПример:– если датойAbsОператор деления (обществ), относительно которых …END If.Sub programm()Обратите внимание, что строкаФункции обработки системныхКнопка (Button): содержаться во всех переходим ко второму доступны основные инструменты 5000 …Каждая объявленная переменная илиInteger до 65 500 символов.Sqr(4) не является.Возвращает абсолютную величину заданного2 составляется отчет, неРассмотрим конкретный случай. Предположим,x1 = 1 «’Наш код» будет параметровЗатем нарисуйте кнопку на новых книгах, создаваемых способу создания макросов, для работы сВ этом примере ключевое константа имеет своюили Переменной длины —

возвращает значение 2;
Пример: числа.

Источник

Время на прочтение
7 мин

Количество просмотров 312K

Приветствую всех.

В этом посте я расскажу, что такое VBA и как с ним работать в Microsoft Excel 2007/2010 (для более старых версий изменяется лишь интерфейс — код, скорее всего, будет таким же) для автоматизации различной рутины.

VBA (Visual Basic for Applications) — это упрощенная версия Visual Basic, встроенная в множество продуктов линейки Microsoft Office. Она позволяет писать программы прямо в файле конкретного документа. Вам не требуется устанавливать различные IDE — всё, включая отладчик, уже есть в Excel.

Еще при помощи Visual Studio Tools for Office можно писать макросы на C# и также встраивать их. Спасибо, FireStorm.

Сразу скажу — писать на других языках (C++/Delphi/PHP) также возможно, но требуется научится читать, изменять и писать файлы офиса — встраивать в документы не получится. А интерфейсы Microsoft работают через COM. Чтобы вы поняли весь ужас, вот Hello World с использованием COM.

Поэтому, увы, будем учить Visual Basic.

Чуть-чуть подготовки и постановка задачи

Итак, поехали. Открываем Excel.

Для начала давайте добавим в Ribbon панель «Разработчик». В ней находятся кнопки, текстовые поля и пр. элементы для конструирования форм.

Появилась вкладка.

Теперь давайте подумаем, на каком примере мы будем изучать VBA. Недавно мне потребовалось красиво оформить прайс-лист, выглядевший, как таблица. Идём в гугл, набираем «прайс-лист» и качаем любой, который оформлен примерно так (не сочтите за рекламу, пожалуйста):

То есть требуется, чтобы было как минимум две группы, по которым можно объединить товары (в нашем случае это будут Тип и Производитель — в таком порядке). Для того, чтобы предложенный мною алгоритм работал корректно, отсортируйте товары так, чтобы товары из одной группы стояли подряд (сначала по Типу, потом по Производителю).

Результат, которого хотим добиться, выглядит примерно так:

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

Кодим

Для начала требуется создать кнопку, при нажатии на которую будет вызываться наша програма. Кнопки находятся в панели «Разработчик» и появляются по кнопке «Вставить». Вам нужен компонент формы «Кнопка». Нажали, поставили на любое место в листе. Далее, если не появилось окно назначения макроса, надо нажать правой кнопкой и выбрать пункт «Назначить макрос». Назовём его FormatPrice. Важно, чтобы перед именем макроса ничего не было — иначе он создастся в отдельном модуле, а не в пространстве имен книги. В этому случае вам будет недоступно быстрое обращение к выделенному листу. Нажимаем кнопку «Новый».

И вот мы в среде разработки VB. Также её можно вызвать из контекстного меню командой «Исходный текст»/«View code».

Перед вами окно с заглушкой процедуры. Можете его развернуть. Код должен выглядеть примерно так:

Sub FormatPrice()End Sub

Напишем Hello World:

Sub FormatPrice() MsgBox "Hello World!" End Sub

И запустим либо щелкнув по кнопке (предварительно сняв с неё выделение), либо клавишей F5 прямо из редактора.

Тут, пожалуй, следует отвлечься на небольшой ликбез по поводу синтаксиса VB. Кто его знает — может смело пропустить этот раздел до конца. Основное отличие Visual Basic от Pascal/C/Java в том, что команды разделяются не ;, а переносом строки или двоеточием (:), если очень хочется написать несколько команд в одну строку. Чтобы понять основные правила синтаксиса, приведу абстрактный код.

Примеры синтаксиса

' Процедура. Ничего не возвращает ' Перегрузка в VBA отсутствует Sub foo(a As String, b As String) ' Exit Sub ' Это значит "выйти из процедуры" MsgBox a + ";" + b End Sub' Функция. Вовращает Integer Function LengthSqr(x As Integer, y As Integer) As Integer ' Exit Function LengthSqr = x * x + y * y End FunctionSub FormatPrice() Dim s1 As String, s2 As String s1 = "str1" s2 = "str2" If s1 <> s2 Then foo "123", "456" ' Скобки при вызове процедур запрещены End IfDim res As sTRING ' Регистр в VB не важен. Впрочем, редактор Вас поправит Dim i As Integer ' Цикл всегда состоит из нескольких строк For i = 1 To 10 res = res + CStr(i) ' Конвертация чего угодно в String If i = 5 Then Exit For Next iDim x As Double x = Val("1.234") ' Парсинг чисел x = x + 10 MsgBox xOn Error Resume Next ' Обработка ошибок - игнорировать все ошибки x = 5 / 0 MsgBox xOn Error GoTo Err ' При ошибке перейти к метке Err x = 5 / 0 MsgBox "OK!" GoTo ne


Err:

    MsgBox 
"Err!"
ne:

On Error GoTo 0 ' Отключаем обработку ошибок ' Циклы бывает, какие захотите Do While True Exit DoLoop 'While True Do 'Until False Exit Do Loop Until False ' А вот при вызове функций, от которых хотим получить значение, скобки нужны. ' Val также умеет возвращать Integer Select Case LengthSqr(Len("abc"), Val("4")) Case 24 MsgBox "0" Case 25 MsgBox "1" Case 26 MsgBox "2" End Select' Двухмерный массив. ' Можно также менять размеры командой ReDim (Preserve) - см. google Dim arr(1 to 10, 5 to 6) As Integer arr(1, 6) = 8Dim coll As New Collection Dim coll2 As Collection coll.Add "item", "key" Set coll2 = coll ' Все присваивания объектов должны производится командой Set MsgBox coll2("key") Set coll2 = New Collection MsgBox coll2.Count End Sub

Грабли-1. При копировании кода из IDE (в английском Excel) есь текст конвертируется в 1252 Latin-1. Поэтому, если хотите сохранить русские комментарии — надо сохранить крокозябры как Latin-1, а потом открыть в 1251.

Грабли-2. Т.к. VB позволяет использовать необъявленные переменные, я всегда в начале кода (перед всеми процедурами) ставлю строчку Option Explicit. Эта директива запрещает интерпретатору заводить переменные самостоятельно.

Грабли-3. Глобальные переменные можно объявлять только до первой функции/процедуры. Локальные — в любом месте процедуры/функции.

Еще немного дополнительных функций, которые могут пригодится: InPos, Mid, Trim, LBound, UBound. Также ответы на все вопросы по поводу работы функций/их параметров можно получить в MSDN.

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

Кодим много и под Excel

В этой части мы уже начнём кодить нечто, что умеет работать с нашими листами в Excel. Для начала создадим отдельный лист с именем result (лист с данными назовём data). Теперь, наверное, нужно этот лист очистить от того, что на нём есть. Также мы «выделим» лист с данными, чтобы каждый раз не писать длинное обращение к массиву с листами.

Sub FormatPrice() Sheets("result").Cells.Clear Sheets("data").Activate End Sub

Работа с диапазонами ячеек

Вся работа в Excel VBA производится с диапазонами ячеек. Они создаются функцией Range и возвращают объект типа Range. У него есть всё необходимое для работы с данными и/или оформлением. Кстати сказать, свойство Cells листа — это тоже Range.

Примеры работы с Range

Sheets("result").Activate Dim r As Range Set r = Range("A1") r.Value = "123" Set r = Range("A3,A5") r.Font.Color = vbRed r.Value = "456" Set r = Range("A6:A7") r.Value = "=A1+A3"

Теперь давайте поймем алгоритм работы нашего кода. Итак, у каждой строчки листа data, начиная со второй, есть некоторые данные, которые нас не интересуют (ID, название и цена) и есть две вложенные группы, к которым она принадлежит (тип и производитель). Более того, эти строки отсортированы. Пока мы забудем про пропуски перед началом новой группы — так будет проще. Я предлагаю такой алгоритм:

Считали группы из очередной строки.
Пробегаемся по всем группам в порядке приоритета (вначале более крупные)
1. Если текущая группа не совпадает, вызываем процедуру AddGroup(i, name), где i — номер группы (от номера текущей до максимума), name — её имя. Несколько вызовов необходимы, чтобы создать не только наш заголовок, но и всё более мелкие.
После отрисовки всех необходимых заголовков делаем еще одну строку и заполняем её данными.

Для упрощения работы рекомендую определить следующие функции-сокращения:

Function GetCol(Col As Integer) As String GetCol = Chr(Asc("A") + Col) End FunctionFunction GetCellS(Sheet As String, Col As Integer, Row As Integer) As Range Set GetCellS = Sheets(Sheet).Range(GetCol(Col) + CStr(Row)) End FunctionFunction GetCell(Col As Integer, Row As Integer) As Range Set GetCell = Range(GetCol(Col) + CStr(Row)) End Function

Далее определим глобальную переменную «текущая строчка»: Dim CurRow As Integer. В начале процедуры её следует сделать равной единице. Еще нам потребуется переменная-«текущая строка в data», массив с именами групп текущей предыдущей строк. Потом можно написать цикл «пока первая ячейка в строке непуста».

Глобальные переменные

Option Explicit ' про эту строчку я уже рассказывал Dim CurRow As Integer Const GroupsCount As Integer = 2 Const DataCount As Integer = 3

FormatPrice

Sub FormatPrice() Dim I As Integer ' строка в data CurRow = 1 Dim Groups(1 To GroupsCount) As String Dim PrGroups(1 To GroupsCount) As String


    Sheets(

"data").Activate I = 2 Do While True If GetCell(0, I).Value = "" Then Exit Do ' ... I = I + 1 Loop End Sub

Теперь надо заполнить массив Groups:

На месте многоточия

Dim I2 As Integer For I2 = 1 To GroupsCount Groups(I2) = GetCell(I2, I) Next I2 ' ... For I2 = 1 To GroupsCount ' VB не умеет копировать массивы PrGroups(I2) = Groups(I2) Next I2 I = I + 1

И создать заголовки:

На месте многоточия в предыдущем куске

For I2 = 1 To GroupsCount If Groups(I2) <> PrGroups(I2) Then Dim I3 As Integer For I3 = I2 To GroupsCount AddHeader I3, Groups(I3) Next I3 Exit For End If Next I2

Не забудем про процедуру AddHeader:

Перед FormatPrice

Sub AddHeader(Ty As Integer, Name As String) GetCellS("result", 1, CurRow).Value = Name CurRow = CurRow + 1 End Sub

Теперь надо перенести всякую информацию в result

For I2 = 0 To DataCount - 1 GetCellS("result", I2, CurRow).Value = GetCell(I2, I) Next I2

Подогнать столбцы по ширине и выбрать лист result для показа результата

После цикла в конце FormatPrice

Sheets("Result").Activate Columns.AutoFit

Всё. Можно любоваться первой версией.

Некрасиво, но похоже. Давайте разбираться с форматированием. Сначала изменим процедуру AddHeader:

Sub AddHeader(Ty As Integer, Name As String) Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow)).Merge ' Чтобы не заводить переменную и не писать каждый раз длинный вызов ' можно воспользоваться блоком With With GetCellS("result", 0, CurRow) .Value = Name .Font.Italic = True .Font.Name = "Cambria" Select Case Ty Case 1 ' Тип .Font.Bold = True .Font.Size = 16 Case 2 ' Производитель .Font.Size = 12 End Select .HorizontalAlignment = xlCenter End With CurRow = CurRow + 1 End Sub

Уже лучше:

Осталось только сделать границы. Тут уже нам требуется работать со всеми объединёнными ячейками, иначе бордюр будет только у одной:

Поэтому чуть-чуть меняем код с добавлением стиля границ:

Sub AddHeader(Ty As Integer, Name As String) With Sheets("result").Range("A" + CStr(CurRow) + ":C" + CStr(CurRow)) .Merge .Value = Name .Font.Italic = True .Font.Name = "Cambria" .HorizontalAlignment = xlCenterSelect Case Ty Case 1 ' Тип .Font.Bold = True .Font.Size = 16 .Borders(xlTop).Weight = xlThick Case 2 ' Производитель .Font.Size = 12 .Borders(xlTop).Weight = xlMedium End Select .Borders(xlBottom).Weight = xlMedium ' По убыванию: xlThick, xlMedium, xlThin, xlHairline End With CurRow = CurRow + 1 End Sub

Осталось лишь добится пропусков перед началом новой группы. Это легко:

В начале FormatPrice

Dim I As Integer ' строка в data CurRow = 0 ' чтобы не было пропуска в самом начале Dim Groups(1 To GroupsCount) As String

В цикле расстановки заголовков

If Groups(I2) <> PrGroups(I2) Then CurRow = CurRow + 1 Dim I3 As Integer

В точности то, что и хотели.

Надеюсь, что эта статья помогла вам немного освоится с программированием для Excel на VBA. Домашнее задание — добавить заголовки «ID, Название, Цена» в результат. Подсказка: ~~CurRow = 0~~ CurRow = 1.

Файл можно скачать тут (min.us) или тут (Dropbox). Не забудьте разрешить исполнение макросов. ~~Если кто-нибудь подскажет человеческих файлохостинг, залью туда.~~

Спасибо за внимание.

Буду рад конструктивной критике в комментариях.

UPD: Перезалил пример на Dropbox и min.us.

UPD2: На самом деле, при вызове процедуры с одним параметром скобки можно поставить. Либо использовать конструкцию Call Foo(«bar», 1, 2, 3) — тут скобки нужны постоянно.

Источник

Introduction

This is a tutorial about writing code in Excel spreadsheets using Visual Basic for Applications (VBA).

Excel is one of Microsoft’s most popular products. In 2016, the CEO of Microsoft said «Think about a world without Excel. That’s just impossible for me.” Well, maybe the world can’t think without Excel.

In 1996, there were over 30 million users of Microsoft Excel (source).
Today, there are an estimated 750 million users of Microsoft Excel. That’s a little more than the population of Europe and 25x more users than there were in 1996.

We’re one big happy family!

In this tutorial, you’ll learn about VBA and how to write code in an Excel spreadsheet using Visual Basic.

Prerequisites

You don’t need any prior programming experience to understand this tutorial. However, you will need:

Basic to intermediate familiarity with Microsoft Excel
If you want to follow along with the VBA examples in this article, you will need access to Microsoft Excel, preferably the latest version (2019) but Excel 2016 and Excel 2013 will work just fine.
A willingness to try new things

Learning Objectives

Over the course of this article, you will learn:

What VBA is
Why you would use VBA
How to get set up in Excel to write VBA
How to solve some real-world problems with VBA

Important Concepts

Here are some important concepts that you should be familiar with to fully understand this tutorial.

Objects: Excel is object-oriented, which means everything is an object — the Excel window, the workbook, a sheet, a chart, a cell. VBA allows users to manipulate and perform actions with objects in Excel.

If you don’t have any experience with object-oriented programming and this is a brand new concept, take a second to let that sink in!

Procedures: a procedure is a chunk of VBA code, written in the Visual Basic Editor, that accomplishes a task. Sometimes, this is also referred to as a macro (more on macros below). There are two types of procedures:

Subroutines: a group of VBA statements that performs one or more actions
Functions: a group of VBA statements that performs one or more actions and returns one or more values

Note: you can have functions operating inside of subroutines. You’ll see later.

Macros: If you’ve spent any time learning more advanced Excel functionality, you’ve probably encountered the concept of a “macro.” Excel users can record macros, consisting of user commands/keystrokes/clicks, and play them back at lightning speed to accomplish repetitive tasks. Recorded macros generate VBA code, which you can then examine. It’s actually quite fun to record a simple macro and then look at the VBA code.

Please keep in mind that sometimes it may be easier and faster to record a macro rather than hand-code a VBA procedure.

For example, maybe you work in project management. Once a week, you have to turn a raw exported report from your project management system into a beautifully formatted, clean report for leadership. You need to format the names of the over-budget projects in bold red text. You could record the formatting changes as a macro and run that whenever you need to make the change.

What is VBA?

Visual Basic for Applications is a programming language developed by Microsoft. Each software program in the Microsoft Office suite is bundled with the VBA language at no extra cost. VBA allows Microsoft Office users to create small programs that operate within Microsoft Office software programs.

Think of VBA like a pizza oven within a restaurant. Excel is the restaurant. The kitchen comes with standard commercial appliances, like large refrigerators, stoves, and regular ole’ ovens — those are all of Excel’s standard features.

But what if you want to make wood-fired pizza? Can’t do that in a standard commercial baking oven. VBA is the pizza oven.

Yum.

Why use VBA in Excel?

Because wood-fired pizza is the best!

But seriously.

A lot of people spend a lot of time in Excel as a part of their jobs. Time in Excel moves differently, too. Depending on the circumstances, 10 minutes in Excel can feel like eternity if you’re not able to do what you need, or 10 hours can go by very quickly if everything is going great. Which is when you should ask yourself, why on earth am I spending 10 hours in Excel?

Sometimes, those days are inevitable. But if you’re spending 8-10 hours everyday in Excel doing repetitive tasks, repeating a lot of the same processes, trying to clean up after other users of the file, or even updating other files after changes are made to the Excel file, a VBA procedure just might be the solution for you.

You should consider using VBA if you need to:

Automate repetitive tasks
Create easy ways for users to interact with your spreadsheets
Manipulate large amounts of data

Getting Set Up to Write VBA in Excel

Developer Tab

To write VBA, you’ll need to add the Developer tab to the ribbon, so you’ll see the ribbon like this.

To add the Developer tab to the ribbon:

On the File tab, go to Options > Customize Ribbon.
Under Customize the Ribbon and under Main Tabs, select the Developer check box.

After you show the tab, the Developer tab stays visible, unless you clear the check box or have to reinstall Excel. For more information, see Microsoft help documentation.

VBA Editor

Navigate to the Developer Tab, and click the Visual Basic button. A new window will pop up — this is the Visual Basic Editor. For the purposes of this tutorial, you just need to be familiar with the Project Explorer pane and the Property Properties pane.

Excel VBA Examples

First, let’s create a file for us to play around in.

Open a new Excel file
Save it as a macro-enabled workbook (. xlsm)
Select the Developer tab
Open the VBA Editor

Let’s rock and roll with some easy examples to get you writing code in a spreadsheet using Visual Basic.

Example #1: Display a Message when Users Open the Excel Workbook

In the VBA Editor, select Insert -> New Module

Write this code in the Module window (don’t paste!):

Sub Auto_Open()
MsgBox («Welcome to the XYZ Workbook.»)
End Sub

Save, close the workbook, and reopen the workbook. This dialog should display.

Ta da!

How is it doing that?

Depending on your familiarity with programming, you may have some guesses. It’s not particularly complex, but there’s quite a lot going on:

Sub (short for “Subroutine): remember from the beginning, “a group of VBA statements that performs one or more actions.”
Auto_Open: this is the specific subroutine. It automatically runs your code when the Excel file opens — this is the event that triggers the procedure. Auto_Open will only run when the workbook is opened manually; it will not run if the workbook is opened via code from another workbook (Workbook_Open will do that, learn more about the difference between the two).
By default, a subroutine’s access is public. This means any other module can use this subroutine. All examples in this tutorial will be public subroutines. If needed, you can declare subroutines as private. This may be needed in some situations. Learn more about subroutine access modifiers.
msgBox: this is a function — a group of VBA statements that performs one or more actions and returns a value. The returned value is the message “Welcome to the XYZ Workbook.”

In short, this is a simple subroutine that contains a function.

When could I use this?

Maybe you have a very important file that is accessed infrequently (say, once a quarter), but automatically updated daily by another VBA procedure. When it is accessed, it’s by many people in multiple departments, all across the company.

Problem: Most of the time when users access the file, they are confused about the purpose of this file (why it exists), how it is updated so often, who maintains it, and how they should interact with it. New hires always have tons of questions, and you have to field these questions over and over and over again.
Solution: create a user message that contains a concise answer to each of these frequently answered questions.

Real World Examples

Use the MsgBox function to display a message when there is any event: user closes an Excel workbook, user prints, a new sheet is added to the workbook, etc.
Use the MsgBox function to display a message when a user needs to fulfill a condition before closing an Excel workbook
Use the InputBox function to get information from the user

Example #2: Allow User to Execute another Procedure

In the VBA Editor, select Insert -> New Module

Write this code in the Module window (don’t paste!):

Sub UserReportQuery()
Dim UserInput As Long
Dim Answer As Integer
UserInput = vbYesNo
Answer = MsgBox(«Process the XYZ Report?», UserInput)
If Answer = vbYes Then ProcessReport
End Sub

Sub ProcessReport()
MsgBox («Thanks for processing the XYZ Report.»)
End Sub

Save and navigate back to the Developer tab of Excel and select the “Button” option. Click on a cell and assign the UserReportQuery macro to the button.

Now click the button. This message should display:

Click “yes” or hit Enter.

Once again, tada!

Please note that the secondary subroutine, ProcessReport, could be anything. I’ll demonstrate more possibilities in example #3. But first…

How is it doing that?

This example builds on the previous example and has quite a few new elements. Let’s go over the new stuff:

Dim UserInput As Long: Dim is short for “dimension” and allows you to declare variable names. In this case, UserInput is the variable name and Long is the data type. In plain English, this line means “Here’s a variable called “UserInput”, and it’s a Long variable type.”
Dim Answer As Integer: declares another variable called “Answer,” with a data type of Integer. Learn more about data types here.
UserInput = vbYesNo: assigns a value to the variable. In this case, vbYesNo, which displays Yes and No buttons. There are many button types, learn more here.
Answer = MsgBox(“Process the XYZ Report?”, UserInput): assigns the value of the variable Answer to be a MsgBox function and the UserInput variable. Yes, a variable within a variable.
If Answer = vbYes Then ProcessReport: this is an “If statement,” a conditional statement, which allows us to say if x is true, then do y. In this case, if the user has selected “Yes,” then execute the ProcessReport subroutine.

When could I use this?

This could be used in many, many ways. The value and versatility of this functionality is more so defined by what the secondary subroutine does.

For example, maybe you have a file that is used to generate 3 different weekly reports. These reports are formatted in dramatically different ways.

Problem: Each time one of these reports needs to be generated, a user opens the file and changes formatting and charts; so on and so forth. This file is being edited extensively at least 3 times per week, and it takes at least 30 minutes each time it’s edited.
Solution: create 1 button per report type, which automatically reformats the necessary components of the reports and generates the necessary charts.

Real World Examples

Create a dialog box for user to automatically populate certain information across multiple sheets
Use the InputBox function to get information from the user, which is then populated across multiple sheets

Example #3: Add Numbers to a Range with a For-Next Loop

For loops are very useful if you need to perform repetitive tasks on a specific range of values — arrays or cell ranges. In plain English, a loop says “for each x, do y.”

In the VBA Editor, select Insert -> New Module

Write this code in the Module window (don’t paste!):

Sub LoopExample()
Dim X As Integer
For X = 1 To 100
Range(«A» & X).Value = X
Next X
End Sub

Save and navigate back to the Developer tab of Excel and select the Macros button. Run the LoopExample macro.

This should happen:

Etc, until the 100th row.

How is it doing that?

Dim X As Integer: declares the variable X as a data type of Integer.
For X = 1 To 100: this is the start of the For loop. Simply put, it tells the loop to keep repeating until X = 100. X is the counter. The loop will keep executing until X = 100, execute one last time, and then stop.
Range(«A» & X).Value = X: this declares the range of the loop and what to put in that range. Since X = 1 initially, the first cell will be A1, at which point the loop will put X into that cell.
Next X: this tells the loop to run again

When could I use this?

The For-Next loop is one of the most powerful functionalities of VBA; there are numerous potential use cases. This is a more complex example that would require multiple layers of logic, but it communicates the world of possibilities in For-Next loops.

Maybe you have a list of all products sold at your bakery in Column A, the type of product in Column B (cakes, donuts, or muffins), the cost of ingredients in Column C, and the market average cost of each product type in another sheet.

You need to figure out what should be the retail price of each product. You’re thinking it should be the cost of ingredients plus 20%, but also 1.2% under market average if possible. A For-Next loop would allow you to do this type of calculation.

Real World Examples

Use a loop with a nested if statement to add specific values to a separate array only if they meet certain conditions
Perform mathematical calculations on each value in a range, e.g. calculate additional charges and add them to the value
Loop through each character in a string and extract all numbers
Randomly select a number of values from an array

Conclusion

Now that we’ve talked about pizza and muffins and oh-yeah, how to write VBA code in Excel spreadsheets, let’s do a learning check. See if you can answer these questions.

What is VBA?
How do I get set up to start using VBA in Excel?
Why and when would you use VBA?
What are some problems I could solve with VBA?

If you have a fair idea of how to you could answer these questions, then this was successful.

Whether you’re an occasional user or a power user, I hope this tutorial provided useful information about what can be accomplished with just a bit of code in your Excel spreadsheets.

Happy coding!

Learning Resources

Excel VBA Programming for Dummies, John Walkenbach
Get Started with VBA, Microsoft Documentation
Learning VBA in Excel, Lynda

A bit about me

I’m Chloe Tucker, an artist and developer in Portland, Oregon. As a former educator, I’m continuously searching for the intersection of learning and teaching, or technology and art. Reach out to me on Twitter @_chloetucker and check out my website at chloe.dev.

Learn to code for free. freeCodeCamp’s open source curriculum has helped more than 40,000 people get jobs as developers. Get started

Источник

Всё о работе с ячейками в Excel-VBA: обращение, перебор, удаление, вставка, скрытие, смена имени.

Содержание:

Table of Contents:

Что такое ячейка Excel?
Способы обращения к ячейкам
- Выбор и активация
- Получение и изменение значений ячеек
  - Ячейки открытой книги
  - Ячейки закрытой книги
- Перебор ячеек
- Перебор в произвольном диапазоне
Свойства и методы ячеек
- Имя ячейки
- Адрес ячейки
- Размеры ячейки
Запуск макроса активацией ячейки

2 нюанса:

Я почти везде стараюсь использовать ThisWorkbook (а не, например, ActiveWorkbook) для обращения к текущей книге, в которой написан этот код (считаю это наиболее безопасным для новичков способом обращения к книгам, чтобы случайно не внести изменения в другие книги). Для экспериментов можете вставлять этот код в модули, коды книги, либо листа, и он будет работать только в пределах этой книги.
Я использую английский эксель и у меня по стандарту листы называются Sheet1, Sheet2 и т.д. Если вы работаете в русском экселе, то замените Thisworkbook.Sheets(«Sheet1») на Thisworkbook.Sheets(«Лист1»). Если этого не сделать, то вы получите ошибку в связи с тем, что пытаетесь обратиться к несуществующему объекту. Можно также заменить на Thisworkbook.Sheets(1), но это менее безопасно.

Что такое ячейка Excel?

В большинстве мест пишут: «элемент, образованный пересечением столбца и строки». Это определение полезно для людей, которые не знакомы с понятием «таблица». Для того, чтобы понять чем на самом деле является ячейка Excel, необходимо заглянуть в объектную модель Excel. При этом определения объектов «ряд», «столбец» и «ячейка» будут отличаться в зависимости от того, как мы работаем с файлом.

Объекты в Excel-VBA. Пока мы работаем в Excel без углубления в VBA определение ячейки как «пересечения» строк и столбцов нам вполне хватает, но если мы решаем как-то автоматизировать процесс в VBA, то о нём лучше забыть и просто воспринимать лист как «мешок» ячеек, с каждой из которых VBA позволяет работать как минимум тремя способами:

по цифровым координатам (ряд, столбец),
по адресам формата А1, B2 и т.д. (сценарий целесообразности данного способа обращения в VBA мне сложно представить)
по уникальному имени (во втором и третьем вариантах мы будем иметь дело не совсем с ячейкой, а с объектом VBA range, который может состоять из одной или нескольких ячеек). Функции и методы объектов Cells и Range отличаются. Новичкам я бы порекомендовал работать с ячейками VBA только с помощью Cells и по их цифровым координатам и использовать Range только по необходимости.

Все три способа обращения описаны далее

Как это хранится на диске и как с этим работать вне Excel? С точки зрения хранения и обработки вне Excel и VBA. Сделать это можно, например, сменив расширение файла с .xls(x) на .zip и открыв этот архив.

Пример содержимого файла Excel:

Далее xl -> worksheets и мы видим файл листа

Содержимое файла:

То же, но более наглядно:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="x14ac xr xr2 xr3" xmlns:x14ac="http://schemas.microsoft.com/office/spreadsheetml/2009/9/ac" xmlns:xr="http://schemas.microsoft.com/office/spreadsheetml/2014/revision" xmlns:xr2="http://schemas.microsoft.com/office/spreadsheetml/2015/revision2" xmlns:xr3="http://schemas.microsoft.com/office/spreadsheetml/2016/revision3" xr:uid="{00000000-0001-0000-0000-000000000000}">
	<dimension ref="B2:F6"/>
	<sheetViews>
		<sheetView tabSelected="1" workbookViewId="0">
			<selection activeCell="D12" sqref="D12"/>
		</sheetView>
	</sheetViews>
	<sheetFormatPr defaultRowHeight="14.4" x14ac:dyDescent="0.3"/>
	<sheetData>
		<row r="2" spans="2:6" x14ac:dyDescent="0.3">
			<c r="B2" t="s">
				<v>0</v>
			</c>
		</row>
		<row r="3" spans="2:6" x14ac:dyDescent="0.3">
			<c r="C3" t="s">
				<v>1</v>
			</c>
		</row>
		<row r="4" spans="2:6" x14ac:dyDescent="0.3">
			<c r="D4" t="s">
				<v>2</v>
			</c>
		</row>
		<row r="5" spans="2:6" x14ac:dyDescent="0.3">
			<c r="E5" t="s">
				<v>0</v></c>
		</row>
		<row r="6" spans="2:6" x14ac:dyDescent="0.3">
			<c r="F6" t="s"><v>3</v>
		</c></row>
	</sheetData>
	<pageMargins left="0.7" right="0.7" top="0.75" bottom="0.75" header="0.3" footer="0.3"/>
</worksheet>

Как мы видим, в структуре объектной модели нет никаких «пересечений». Строго говоря рабочая книга — это архив структурированных данных в формате XML. При этом в каждую «строку» входит «столбец», и в нём в свою очередь прописан номер значения данного столбца, по которому оно подтягивается из другого XML файла при открытии книги для экономии места за счёт отсутствия повторяющихся значений. Почему это важно. Если мы захотим написать какой-то обработчик таких файлов, который будет напрямую редактировать данные в этих XML, то ориентироваться надо на такую модель и структуру данных. И правильное определение будет примерно таким: ячейка — это объект внутри столбца, который в свою очередь находится внутри строки в файле xml, в котором хранятся данные о содержимом листа.

Способы обращения к ячейкам

Выбор и активация

Почти во всех случаях можно и стоит избегать использования методов Select и Activate. На это есть две причины:

Это лишь имитация действий пользователя, которая замедляет выполнение программы. Работать с объектами книги можно напрямую без использования методов Select и Activate.
Это усложняет код и может приводить к неожиданным последствиям. Каждый раз перед использованием Select необходимо помнить, какие ещё объекты были выбраны до этого и не забывать при необходимости снимать выбор. Либо, например, в случае использования метода Select в самом начале программы может быть выбрано два листа вместо одного потому что пользователь запустил программу, выбрав другой лист.

Можно выбирать и активировать книги, листы, ячейки, фигуры, диаграммы, срезы, таблицы и т.д.

Отменить выбор ячеек можно методом Unselect:

Selection.Unselect

Отличие выбора от активации — активировать можно только один объект из раннее выбранных. Выбрать можно несколько объектов.

Если вы записали и редактируете код макроса, то лучше всего заменить Select и Activate на конструкцию With … End With. Например, предположим, что мы записали вот такой макрос:

Sub Macro1()
' Macro1 Macro
    Range("F4:F10,H6:H10").Select 'выбрали два несмежных диапазона зажав ctrl
    Range("H6").Activate          'показывает только то, что я начал выбирать второй диапазон с этой ячейки (она осталась белой). Это действие ни на что не влияет
    With Selection.Interior       
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535            'залили желтым цветом, нажав на кнопку заливки на верхней панели
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Почему макрос записался таким неэффективным образом? Потому что в каждый момент времени (в каждой строке) программа не знает, что вы будете делать дальше. Поэтому в записи выбор ячеек и действия с ними — это два отдельных действия. Этот код лучше всего оптимизировать (особенно если вы хотите скопировать его внутрь какого-нибудь цикла, который должен будет исполняться много раз и перебирать много объектов). Например, так:

Sub Macro11()
'
' Macro1 Macro
    Range("F4:F10,H6:H10").Select '1. смотрим, что за объект выбран (что идёт до .Select)
    Range("H6").Activate
    With Selection.Interior       '2. понимаем, что у выбранного объекта есть свойство interior, с которым далее идёт работа
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub



Sub Optimized_Macro()
    With Range("F4:F10,H6:H10").Interior '3. переносим объект напрямую в конструкцию With вместо Selection
' ////// Здесь я для надёжности прописал бы ещё Thisworkbook.Sheet("ИмяЛиста") перед Range,
' ////// чтобы минимизировать риск любых случайных изменений других листов и книг
' ////// With Thisworkbook.Sheet("ИмяЛиста").Range("F4:F10,H6:H10").Interior
        .Pattern = xlSolid               '4. полностью копируем всё, что было записано рекордером внутрь блока with
        .PatternColorIndex = xlAutomatic
        .Color = 55555                   '5. здесь я поменял цвет на зеленый, чтобы было видно, работает ли код при поочерёдном запуске двух макросов
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Пример сценария, когда использование Select и Activate оправдано:

Допустим, мы хотим, чтобы во время исполнения программы мы одновременно изменяли несколько листов одним действием и пользователь видел какой-то определённый лист. Это можно сделать примерно так:

Sub Select_Activate_is_OK()
Thisworkbook.Worksheets(Array("Sheet1", "Sheet3")).Select 'Выбираем несколько листов по именам
Thisworkbook.Worksheets("Sheet3").Activate 'Показываем пользователю третий лист
'Далее все действия с выбранными ячейками через Select будут одновременно вносить изменения в оба выбранных листа

'Допустим, что тут мы решили покрасить те же два диапазона:
Range("F4:F10,H6:H10").Select
    Range("H6").Activate
    With Selection.Interior       
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

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

Получение и изменение значений ячеек

Значение ячеек можно получать/изменять с помощью свойства value.

'Если нужно прочитать / записать значение ячейки, то используется свойство Value
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value 'записать значение ячейки А1 листа "Sheet1" в переменную "a"
ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value = 1  'задать значение ячейки А1 (первый ряд, первый столбец) листа "Sheet1"

'Если нужно прочитать текст как есть (с форматированием), то можно использовать свойство .text:
ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text = "1" 
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text

'Когда проявится разница:
'Например, если мы считываем дату в формате "31 декабря 2021 г.", хранящуюся как дата
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Value 'эапишет как "31.12.2021"
a = ThisWorkbook.Sheets("Sheet1").Cells (1,1).Text  'запишет как "31 декабря 2021 г."

Ячейки открытой книги

К ячейкам можно обращаться:

'В книге, в которой хранится макрос (на каком-то из листов, либо в отдельном модуле или форме)
ThisWorkbook.Sheets("Sheet1").Cells(1,1).Value        'По номерам строки и столбца
ThisWorkbook.Sheets("Sheet1").Cells(1,"A").Value      'По номерам строки и букве столбца
ThisWorkbook.Sheets("Sheet1").Range("A1").Value       'По адресу - вариант 1
ThisWorkbook.Sheets("Sheet1").[A1].Value              'По адресу - вариант 2
ThisWorkbook.Sheets("Sheet1").Range("CellName").Value 'По имени ячейки (для этого ей предварительно нужно его присвоить)

'Те же действия, но с использованием полного названия рабочей книги (книга должна быть открыта)
Workbooks("workbook.xlsm").Sheets("Sheet1").Cells(1,1).Value 'По номерам строки и столбца
Workbooks("workbook.xlsm").Sheets("Sheet1").Cells(1,"A").Value                'По номерам строки и букве столбца
Workbooks("workbook.xlsm").Sheets("Sheet1").Range("A1").Value                 'По адресу - вариант 1
Workbooks("workbook.xlsm").Sheets("Sheet1").[A1].Value                        'По адресу - вариант 2
Workbooks("workbook.xlsm").Sheets("Sheet1").Range("CellName").Value           'По имени ячейки (для этого ей предварительно нужно его присвоить)

Ячейки закрытой книги

Если нужно достать или изменить данные в другой закрытой книге, то необходимо прописать открытие и закрытие книги. Непосредственно работать с закрытой книгой не получится, потому что данные в ней хранятся отдельно от структуры и при открытии Excel каждый раз производит расстановку значений по соответствующим «слотам» в структуре. Подробнее о том, как хранятся данные в xlsx см выше.

Workbooks.Open Filename:="С:closed_workbook.xlsx"    'открыть книгу (она становится активной)
a = ActiveWorkbook.Sheets("Sheet1").Cells(1,1).Value  'достать значение ячейки 1,1
ActiveWorkbook.Close False                            'закрыть книгу (False => без сохранения)

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

Код из файла:

Option Explicit
Sub get_value_from_closed_wb() 'достать значение из закрытой книги
Dim a, wb_path, wsh As String
wb_path = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value 'get path to workbook from sheet1
wsh = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value
Workbooks.Open Filename:=wb_path
a = ActiveWorkbook.Sheets(wsh).Cells(3, 3).Value
ActiveWorkbook.Close False
ThisWorkbook.Sheets("Sheet1").Cells(4, 3).Value = a
End Sub

Sub record_value_to_closed_wb() 'записать значение в закрытую книгу
Dim wb_path, b, wsh As String
wsh = ThisWorkbook.Sheets("Sheet1").Cells(3, 3).Value
wb_path = ThisWorkbook.Sheets("Sheet1").Cells(2, 3).Value 'get path to workbook from sheet1
b = ThisWorkbook.Sheets("Sheet1").Cells(5, 3).Value 'get value to record in the target workbook
Workbooks.Open Filename:=wb_path
ActiveWorkbook.Sheets(wsh).Cells(4, 4).Value = b 'add new value to cell D4 of the target workbook
ActiveWorkbook.Close True
End Sub

Перебор ячеек

Перебор в произвольном диапазоне

Скачать файл со всеми примерами

Пройтись по всем ячейкам в нужном диапазоне можно разными способами. Основные:

Цикл For Each. Пример:
```
Sub iterate_over_cells()

For Each c In ThisWorkbook.Sheets("Sheet1").Range("B2:D4").Cells
MsgBox (c)
Next c

End Sub
```
Этот цикл выведет в виде сообщений значения ячеек в диапазоне B2:D4 по порядку по строкам слева направо и по столбцам — сверху вниз. Данный способ можно использовать для действий, в который вам не важны номера ячеек (закрашивание, изменение форматирования, пересчёт чего-то и т.д.).

Ту же задачу можно решить с помощью двух вложенных циклов — внешний будет перебирать ряды, а вложенный — ячейки в рядах. Этот способ я использую чаще всего, потому что он позволяет получить больше контроля над исполнением: на каждой итерации цикла нам доступны координаты ячеек. Для перебора всех ячеек на листе этим методом потребуется найти последнюю заполненную ячейку. Пример кода:

Sub iterate_over_cells()

Dim cl, rw As Integer
Dim x As Variant

'перебор области 3x3
For rw = 1 To 3 ' цикл для перебора рядов 1-3

    For cl = 1 To 3 'цикл для перебора столбцов 1-3
        x = ThisWorkbook.Sheets("Sheet1").Cells(rw + 1, cl + 1).Value
        MsgBox (x)
    Next cl
Next rw



'перебор всех ячеек на листе. Последняя ячейка определена с помощью UsedRange
'LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
'LastCol = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
'For rw = 1 To LastRow 'цикл перебора всех рядов
'    For cl = 1 To LastCol 'цикл для перебора всех столбцов
'        Действия 
'    Next cl
'Next rw


End Sub

Если нужно перебрать все ячейки в выделенном диапазоне на активном листе, то код будет выглядеть так:
```
Sub iterate_cell_by_cell_over_selection()
    Dim ActSheet As Worksheet
    Dim SelRange As Range
    Dim cell As Range
    
 
    Set ActSheet = ActiveSheet
    Set SelRange = Selection
    
    'if we want to do it in every cell of the selected range
    For Each cell In Selection
    MsgBox (cell.Value)
    
    Next cell

End Sub
```
Данный метод подходит для интерактивных макросов, которые выполняют действия над выбранными пользователем областями.

Перебор ячеек в ряду

Sub iterate_cells_in_row()
    Dim i, RowNum, StartCell As Long
    
    RowNum = 3 'какой ряд
    StartCell = 0 ' номер начальной ячейки (минус 1, т.к. в цикле мы прибавляем i)
    
    For i = 1 To 10 ' 10 ячеек в выбранном ряду
    ThisWorkbook.Sheets("Sheet1").Cells(RowNum, i + StartCell).Value = i '(i + StartCell) добавляет 1 к номеру столбца при каждом повторении
    Next i

End Sub

Перебор ячеек в столбце

Sub iterate_cells_in_column()
    Dim i, ColNum, StartCell As Long
    
    ColNum = 3 'какой столбец
    StartCell = 0 ' номер начальной ячейки (минус 1, т.к. в цикле мы прибавляем i)
    
    For i = 1 To 10 ' 10 ячеек
    ThisWorkbook.Sheets("Sheet1").Cells(i + StartCell, ColNum).Value = i ' (i + StartCell) добавляет 1 к номеру ряда при каждом повторении
    Next i

End Sub

Свойства и методы ячеек

Имя ячейки

Присвоить новое имя можно так:

Thisworkbook.Sheets(1).Cells(1,1).name = "Новое_Имя"

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

ActiveWorkbook.Names("Старое_Имя").Delete

Пример кода для переименования ячеек:

Sub rename_cell()

old_name = "Cell_Old_Name"
new_name = "Cell_New_Name"

ActiveWorkbook.Names(old_name).Delete
ThisWorkbook.Sheets(1).Cells(2, 1).Name = new_name
End Sub

Sub rename_cell_reverse()

old_name = "Cell_New_Name"
new_name = "Cell_Old_Name"

ActiveWorkbook.Names(old_name).Delete
ThisWorkbook.Sheets(1).Cells(2, 1).Name = new_name
End Sub

Адрес ячейки

Sub get_cell_address() ' вывести адрес ячейки в формате буква столбца, номер ряда
  '$A$1 style
  txt_address = ThisWorkbook.Sheets(1).Cells(3, 2).Address
  MsgBox (txt_address)
End Sub

Sub get_cell_address_R1C1()' получить адрес столбца в формате номер ряда, номер столбца
  'R1C1 style
  txt_address = ThisWorkbook.Sheets(1).Cells(3, 2).Address(ReferenceStyle:=xlR1C1)
  MsgBox (txt_address)
End Sub

  'пример функции, которая принимает 2 аргумента: название именованного диапазона и тип желаемого адреса 
  '(1- тип $A$1 2- R1C1 - номер ряда, столбца)
Function get_cell_address_by_name(str As String, address_type As Integer)
  '$A$1 style
  Select Case address_type
    Case 1
      txt_address = Range(str).Address
    Case 2
      txt_address = Range(str).Address(ReferenceStyle:=xlR1C1)
    Case Else
      txt_address = "Wrong address type selected. 1,2 available"
    End Select
  get_cell_address_by_name = txt_address
End Function

'перед запуском нужно убедиться, что в книге есть диапазон с названием, 
'адрес которого мы хотим получить, иначе будет ошибка
Sub test_function() 'запустите эту программу, чтобы увидеть, как работает функция
  x = get_cell_address_by_name("MyValue", 2)
  MsgBox (x)
End Sub

Размеры ячейки

Ширина и длина ячейки в VBA меняется, например, так:

Sub change_size()
Dim x, y As Integer
Dim w, h As Double

'получить координаты целевой ячейки
x = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value
y = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value

'получить желаемую ширину и высоту ячейки
w = ThisWorkbook.Sheets("Sheet1").Cells(6, 2).Value
h = ThisWorkbook.Sheets("Sheet1").Cells(7, 2).Value

'сменить высоту и ширину ячейки с координатами x,y
ThisWorkbook.Sheets("Sheet1").Cells(x, y).RowHeight = h
ThisWorkbook.Sheets("Sheet1").Cells(x, y).ColumnWidth = w


End Sub

Прочитать значения ширины и высоты ячеек можно двумя способами (однако результаты будут в разных единицах измерения). Если написать просто Cells(x,y).Width или Cells(x,y).Height, то будет получен результат в pt (привязка к размеру шрифта).

Sub get_size()
Dim x, y As Integer
'получить координаты ячейки, с которой мы будем работать
x = ThisWorkbook.Sheets("Sheet1").Cells(2, 2).Value
y = ThisWorkbook.Sheets("Sheet1").Cells(3, 2).Value

'получить длину и ширину выбранной ячейки в тех же единицах измерения, в которых мы их задавали
ThisWorkbook.Sheets("Sheet1").Cells(2, 6).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).ColumnWidth
ThisWorkbook.Sheets("Sheet1").Cells(3, 6).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).RowHeight

'получить длину и ширину с помощью свойств ячейки (только для чтения) в поинтах (pt)
ThisWorkbook.Sheets("Sheet1").Cells(7, 9).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).Width
ThisWorkbook.Sheets("Sheet1").Cells(8, 9).Value = ThisWorkbook.Sheets("Sheet1").Cells(x, y).Height

End Sub

Скачать файл с примерами изменения и чтения размера ячеек

Запуск макроса активацией ячейки

Для запуска кода VBA при активации ячейки необходимо вставить в код листа нечто подобное:

3 важных момента, чтобы это работало:

1. Этот код должен быть вставлен в код листа (здесь контролируется диапазон D4)

2-3. Программа, ответственная за запуск кода при выборе ячейки, должна называться Worksheet_SelectionChange и должна принимать значение переменной Target, относящейся к триггеру SelectionChange. Другие доступные триггеры можно посмотреть в правом верхнем углу (2).

Скачать файл с базовым примером (как на картинке)

Скачать файл с расширенным примером (код ниже)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        ' имеем в виду, что триггер SelectionChange будет запускать эту Sub после каждого клика мышью (после каждого клика будет проверяться:
          '1. количество выделенных ячеек и 
          '2. не пересекается ли выбранный диапазон с заданным в этой программе диапазоном.
        ' поэтому в эту программу не стоит без необходимости писать никаких других тяжелых операций

    If Selection.Count = 1 Then 'запускаем программу только если выбрано не более 1 ячейки


    'вариант модификации - брать адрес ячейки из другой ячейки:
    'Dim CellName as String
    'CellName = Activesheet.Cells(1,1).value 'брать текстовое имя контролируемой ячейки из A1 (должно быть в формате Буква столбца + номер строки)
    'If Not Intersect(Range(CellName), Target) Is Nothing Then
    'для работы этой модификации следующую строку надо закомментировать/удалить



        If Not Intersect(Range("D4"), Target) Is Nothing Then 
        'если заданный (D4) и выбранный диапазон пересекаются 
        '(пересечение диапазонов НЕ равно Nothing)

        'можно прописать диапазон из нескольких ячеек:
        'If Not Intersect(Range("D4:E10"), Target) Is Nothing Then
        'можно прописать несколько диапазонов:
        'If Not Intersect(Range("D4:E10"), Target) Is Nothing or Not Intersect(Range("A4:A10"), Target) Is Nothing Then

            Call program 'выполняем программу
        End If
    End If
End Sub

Sub program()

MsgBox ("Program Is running") 'здесь пишем код того, что произойдёт при выборе нужной ячейки


End Sub

Источник