Команда записи в ячейку excel

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

Содержание:

Table of Contents:

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

2 нюанса:

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

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

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

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

1. по цифровым координатам (ряд, столбец),
2. по адресам формата А1, B2 и т.д. (сценарий целесообразности данного способа обращения в VBA мне сложно представить)
3. по уникальному имени (во втором и третьем вариантах мы будем иметь дело не совсем с ячейкой, а с объектом 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. На это есть две причины:

1. Это лишь имитация действий пользователя, которая замедляет выполнение программы. Работать с объектами книги можно напрямую без использования методов Select и Activate.
2. Это усложняет код и может приводить к неожиданным последствиям. Каждый раз перед использованием 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

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

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

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

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

1. Цикл 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 по порядку по строкам слева направо и по столбцам — сверху вниз. Данный способ можно использовать для действий, в который вам не важны номера ячеек (закрашивание, изменение форматирования, пересчёт чего-то и т.д.).

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

   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​

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

   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​

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

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

   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

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

   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

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

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

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

Полный путь к ячейке A1 в Книге1 на Листе1 можно записать двумя вариантами:

• С помощью Range
• С помощью Cells

Пример 1: Обратиться к ячейке A3 находящейся в Книге1 на Листе1

Workbooks("Книга1.xls").Sheets("Лист1").Range("A3") ' Обратиться к ячейке A3
Workbooks("Книга1.xls").Sheets("Лист1").Cells(3, 1) ' Обратиться к ячейке в 3-й строке и 1-й колонке (A3)

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

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

Range("A1")
Cells(1, 1)

Если всё же путь к книге или листу необходим, но не хочется его писать при каждом обращении к ячейкам, можно использовать конструкцию With End With. При этом, обращаясь к ячейкам, необходимо использовать в начале «.» (точку).

Пример 3: Обратиться к ячейке A1 и B1 в Книге1 на Листе2.

With Workbooks("Книга1").Sheets("Лист2")
  ' Вывести значение ячейки A1, которая находится на Листе2
  MsgBox .Range("A1")
  ' Вывести значение ячейки B1, которая находится на Листе2
  MsgBox .Range("B1")
End With

Так же, можно обратиться и к активной (выбранной в данный момент времени) ячейке.

Пример 4: Обратиться к активной ячейке на Листе3 текущей книги.

Application.ActiveCell ' полная запись
ActiveCell ' краткая запись

Чтение значения из ячейки

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

• Value2 — базовое значение ячейки, т.е. как оно хранится в самом Excel-е. В связи с чем, например, дата будет прочтена как число от 1 до 2958466, а время будет прочитано как дробное число. Value2 — самый быстрый способ чтения значения, т.к. не происходит никаких преобразований.
• Value — значение ячейки, приведенное к типу ячейки. Если ячейка хранит дату, будет приведено к типу Date. Если ячейка отформатирована как валюта, будет преобразована к типу Currency (в связи с чем, знаки с 5-го и далее будут усечены).
• Text — визуальное отображение значения ячейки. Например, если ячейка, содержит дату в виде «число месяц прописью год», то Text (в отличие от Value и Value2) именно в таком виде и вернет значение. Использовать Text нужно осторожно, т.к., если, например, значение не входит в ячейку и отображается в виде «#####» то Text вернет вам не само значение, а эти самые «решетки».

По-умолчанию, если при обращении к ячейке не указывать способ чтения значения, то используется способ Value.

Пример 5: В ячейке A1 активного листа находится дата 01.03.2018. Для ячейки выбран формат «14 марта 2001 г.». Необходимо прочитать значение ячейки всеми перечисленными выше способами и отобразить в диалоговом окне.

MsgBox Cells(1, 1)        ' выведет 01.03.2018
MsgBox Cells(1, 1).Value  ' выведет 01.03.2018
MsgBox Cells(1, 1).Value2 ' выведет 43160
MsgBox Cells(1, 1).Text   ' выведет 01 марта 2018 г.

Dim d As Date
d = Cells(1, 1).Value2    ' числовое представление даты преобразуется в тип Date
MsgBox d                  ' выведет 01.03.2018

Пример 6: В ячейке С1 активного листа находится значение 123,456789. Для ячейки выбран формат «Денежный» с 3 десятичными знаками. Необходимо прочитать значение ячейки всеми перечисленными выше способами и отобразить в диалоговом окне.

MsgBox Range("C1")        ' выведет 123,4568
MsgBox Range("C1").Value  ' выведет 123,4568
MsgBox Range("C1").Value2 ' выведет 123,456789
MsgBox Range("C1").Text   ' выведет 123,457р.

Dim c As Currency
c = Range("C1").Value2    ' значение преобразуется в тип Currency
MsgBox c                  ' выведет 123,4568

Dim d As Double
d = Range("C1").Value2    ' значение преобразуется в тип Double
MsgBox d                  ' выведет 123,456789

При присвоении значения переменной или элементу массива, необходимо учитывать тип переменной. Например, если оператором Dim задан тип Integer, а в ячейке находится текст, при выполнении произойдет ошибка «Type mismatch». Как определить тип значения в ячейке, рассказано в следующей статье.

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

Dim s As String
Dim i As Integer
s = Range("B1").Value2 ' успех
i = Range("B1").Value2 ' ошибка

Таким образом, разница между Text, Value и Value2 в способе получения значения. Очевидно, что Value2 наиболее предпочтителен, но при преобразовании даты в текст (например, чтобы показать значение пользователю), нужно использовать функцию Format.

Запись значения в ячейку

Осуществить запись значения в ячейку можно 2 способами: с помощью Value и Value2. Использование Text для записи значения не возможно, т.к. это свойство только для чтения.

Пример 8: Записать в ячейку A1 активного листа значение 123,45

Range("A1") = 123.45
Range("A1").Value = 123.45
Range("A1").Value2 = 123.45

Все три строки запишут в A1 одно и то же значение.

Пример 9: Записать в ячейку A2 активного листа дату 1 марта 2018 года

Cells(2, 1) = #3/1/2018#
Cells(2, 1).Value = #3/1/2018#
Cells(2, 1).Value2 = #3/1/2018#

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

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

30 самых полезных сочетания клавиш в Excel

​Смотрите также​ нее входят, например,​ shag (аргумент изменяется​Затем необходимо перейти в​Узнайте, как включать и​ диапазона. Поэтому если​ сохранить макрос.​ ли она вам,​ лишь малая часть​Скопированная формула со смешанной​ Microsoft Excel, где​ Sub​ вкладку​Открытие контекстного меню​ и переход к​ контекстного меню Windows+F10.​F2​Microsoft Excel – это​ функции Space для​ на величину шага);​ приложение VB, для​ отключать макросы в​ вы добавите в​Как правило, макросы сохраняются​ с помощью кнопок​ способов, которые позволяют​ ссылкой​

Самые полезные сочетания клавиш в Excel, без которых не обойдётся ни одна рабочая книга

​ находятся необходимые формуле​Чтобы протестировать этот пример,​Developer​SHIFT+F10​ следующей ячейке в​ Клавиша вызова контекстного​для редактирования. После​ очень мощное приложение​

​ создания строки с​​Loop​​ чего достаточно воспользоваться​​ Excel для Mac.​ диапазон новую строку,​ в расположении​​ внизу страницы. Для​​ вставить функцию. На​​   ​​ значения или данные.​ Вы должны выбрать​(Разработчик)? Excel 2007:​

Форматирование данных

Работа с формулами

Навигация и просмотр данных

Ввод данных

Выбор данных

​ Если выделенный диапазон​ список (более 200!),​Функции преобразования типа данных.​ для «Эксель».​пишут, скажем так, набросок​Если книга содержит макрос​

​ охватывать прочие приложения​ она еще не​
​ ко всем адресам​
​ функцию в Excel,​

​ ячейку или диапазон,​

office-guru.ru

Сочетания клавиш в Excel Online

​ книги либо на​ в Excel. Эта​ на ленте). Excel​CTRL+ALT+SHIFT+PAGE UP​F2​Вставка диаграммы​ содержит более одного​ Вы можете испугаться.​ Например, CVar возвращает​Для реализации циклов в​ кода.​ VBA, который нужно​ Office и другие​ существует) и сохранит​ единый формат. Макрос​ познакомимся с некоторыми​

​ перед которой указываются​​ ячейки из других​

• ​ статья показывает лишь​ 2010: жмем по​Чтение столбца с активной​Очистка выделенной ячейки​ALT+F1​ столбца, то в​ Без паники! 20​

• ​ значение аргумента Expression,​ VBA Excel 2010,​Он выглядит следующим образом:​ использовать где-либо еще,​ программы, которые поддерживают​ макрос в ней.​ сделать это за​

В этой статье

• ​ наиболее распространенными и​ имена листов. В​ книг. Ссылки на​

• ​ немногие примеры того,​

• ​ вкладке​ ячейки​DELETE​

• ​В Excel Online теперь​ каждом столбце копируется​ или 30 сочетаний​

• ​ преобразовав его в​ как и в​Sub program ()​

Советы по использованию сочетаний клавиш в Excel Online

• ​ этот модуль можно​ Visual Basic для​В поле​ вас. Запись макроса,​ часто используемыми функциями:​ Microsoft Excel используются​ ячейки других книг​ что можно сделать​File​

  ​CTRL+ALT+SHIFT+PAGE DOWN​Очистка выделенной ячейки и​ доступны клавиши доступа —​ вниз содержимое верхней​

• ​ клавиш для повседневной​ тип данных Variant.​ других версиях, наряду​’Наш код​​ скопировать в другую​​ приложений (VBA). Например,​​Описание​​ применив нужный формат​СУМ​ все листы, указанные​ называются связями или​ при помощи макросов.​(Файл) >​Перемещение диалоговых окон​ переход к ее​ сочетания клавиш для​ ячейки.​ работы будет вполне​Функции работы с датами.​

• ​ с уже приведенной​End Sub​ книгу с помощью​​ вы можете записать​​при необходимости введите​ и затем воспроизводить​М​ между начальным и​ внешними ссылками.​

• ​Урок подготовлен для Вас​Options​CTRL+ALT+ПРОБЕЛ​ редактированию​ перемещения по ленте.​

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

​Ctrl+Shift+V​ достаточно. Остальные предназначены​ Они значительно расширяют​

​ конструкцией Do While​

​Обратите внимание, что строка​

Клавиши доступа: сочетания клавиш для работы с лентой

​(Настройка ленты) и​ наши клиенты получали​ в ячейке​ в классической версии​(Специальная вставка), когда​ написание макросов VBA,​ возвращает название (полное​ столбец. В каждой​ (зеленым). Причина в​ или графическому элементу​

​ открывает Outlook для​ необязательным, рекомендуется его​ необходимые действия записываются​СРЗНАЧ​ значения, содержащиеся в​ в котором столбцы​Автор: Антон Андронов​ в правом списке​ наилучшие продукты и​HOME​ Excel, и позволяют​

• ​ буфер обмена не​ компоновки данных, управления​ или частичное) дня​ его ячейке будут​ апострофе, поставленном в​На листе щелкните правой​

• ​ ее отправки по​ заполнить. Кроме того,​ в виде кода​

• ​– определяет среднее​ ячейке B5 на​ обозначаются буквами (от​Примечание:​ включаем вкладку​ обслуживание. Если у​

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

​Перемещение в конец строки​ сэкономить время при​ пуст.​ сводными таблицами, пересчёта​

Работа с вкладками и меню ленты

​ действиями может быть​ вычисляет сумму значений​ до Лист13 включительно.​ а строки —​ актуальными справочными материалами​

Сочетания клавиш для Excel Online в режиме редактирования

​ любой код и​ макрос и выберите​, которая по умолчанию​ макрос. Если у​ чисел, выбор ячеек​ делит результат на​ можно создавать ссылки​ до 1 048 576). Эти​ Эта страница переведена​ цикл​ в службу Microsoft​SHIFT+СТРЕЛКА ВПРАВО​​ ALT. В Excel​​Выделяет весь лист. Если​ многие из Вас​ с полуночи до​ счетчика.​​ создать для себя​​ команду​

Команды Excel Online: редактирование ячеек

​ скрыта, поэтому сначала​

​ вас много макросов,​

Команды Excel Online: ввод данных

​ Тем не менее,​

​Функции для преобразования числового​

Команды Excel Online: редактирование данных в ячейке

​Excel​

​ они нужны.​

Команды Excel Online: форматирование ячеек

​ статья была вам​

​ разными значениями. Давайте​

Команды Excel Online: перемещение и прокрутка на листах

​ вы хотите назначить.​

​>​

Команды Excel Online: работа с объектами

​ на ячейку, расположенную​

​ и сообщить, помогла​

Команды Excel Online: выделение ячеек, строк, столбцов и объектов

​В категории​

​ записать.​

Команды Excel Online: перемещение в выделенном диапазоне

​ значение из списка​

​ ДИСПА и ДИСППА.​

Команды Excel Online: расчет данных

​ Basic. Он доступен​

​ аргументов.​

Меню сочетаний клавиш для специальных возможностей в Excel Online (ALT+SHIFT+A)

​ язык, как «Повторять​За таким названием скрываются​ ленту.​

​Основные вкладки​

​в группе​

Техническая поддержка пользователей с ограниченными возможностями

​Для этого на вкладке​ контактные сведения для​ что и активная​ ленты нажимайте клавишу​ диапазон на текущем​расположены в нижней​Изучение свойств этих функций​ один».​ for Application. Таким​Вы можете назначать макросы​, а затем нажмите​Остановить запись​ в приложениях Office​ аргументов.​ пересечения (один пробел),​ 10​Начните создавать формулы и​Developer​ вашего региона.​ ячейка, или, если​ TAB.​ листе.​ части основной клавиатуры​ и их применение​Если ставится задача получить​ образом, программирование в​

​ формам и элементам​ кнопку​.​ и между ними,​В следующем примере мы​

support.office.com

Руководство и примеры работы с макросами в Excel

• ​ а также в​A10​
• ​ использовать встроенные функции,​
• ​(Разработчик) нажмите​
• ​Если вы представитель государственного​

​ следующая ячейка пуста,​Чтобы скрыть ленту и​Ctrl+Space​ слева и справа.​ позволит значительно расширить​ столбец с квадратами,​ Excel — это​ ActiveX на листе.​Сохранить​-ИЛИ-​ вам не нужно​ создадим простую формулу​ формулах с неявное​Диапазон ячеек: столбец А,​ чтобы выполнять расчеты​Visual Basic​ учреждения или коммерческой​ до следующей непустой​ получить больше места​(пробел)​Ctrl+N​ сферу применения «Эксель».​

Создаем макрос при помощи команды «Запись макроса»

1. ​ например, всех нечетных​​ создание макросов с​​Открытие редактора Visual Basic​.​​Нажмите​​ уметь программировать или​​ для расчета средней​​ пересечение.​​ строки 10-20.​​ и решать задачи.​​. Дважды кликните по​

   

2. ​ организации, обратитесь в​ ячейки.​ для работы, нажмите​Выделяет весь столбец.​Создать новую рабочую книгу.​Попробуем перейти к решению​ чисел из диапазона​ нужным кодом. Благодаря​На вкладке​
3. ​Чтобы записать макрос, следуйте​ALT​ знать язык VBA,​ цены за единицу​​Что происходит при перемещении,​​A10:A20​​Важно:​​ объекту из списка​
4. ​ службу Disability Answer​​CTRL+SHIFT+СТРЕЛКА ВПРАВО или CTRL+SHIFT+СТРЕЛКА​​ клавиши CTRL+F1. Чтобы​Shift+Space​​Ctrl+O​​ более сложных задач.​

​ от 1 до​ этой возможности табличный​Разработчик​​ инструкциям ниже.​​+​ так как все​​ заказанных товаров, используя​​ копировании, вставке или​Диапазон ячеек: строка 15,​​ Вычисляемые результаты формул и​​Microsoft Excel Objects​ Desk для предприятий.​​ ВЛЕВО​​ снова отобразить ленту,​(пробел)​Открыть существующую книгу.​ Например:​ 11, то пишем:​

​ процессор Microsoft саморазвивается,​щелкните​На вкладке​

1. ​T​​ нужные действия выполнит​​ функцию​​ удалении листов​​ столбцы B-E​​ некоторые функции листа​​, в котором должен​
2. ​Создаём макрос при помощи​​Действие​​ повторите это действие.​Выделяет всю строку.​​Ctrl+S​​Дан бумажный документ отчета​
3. ​For i = 1​​ подстраиваясь под требования​​Visual Basic​Разработчик​+​​ средство записи макросов.​​СРЗНАЧ​   . Нижеследующие примеры поясняют, какие​B15:E15​​ Excel могут несколько​​ быть сохранён макрос.​​ команды Запись макроса​​Клавиши​Чтобы перейти к вкладке​
4. ​Если эта статья оказалась​Сохранить активную книгу.​ фактического уровня издержек​ to 10 step​ конкретного пользователя. Разобравшись​или выберите​
5. ​нажмите кнопку​

​M​​Важно знать, что при​.​​ изменения происходят в​​Все ячейки в строке​ отличаться на компьютерах​ Введите вот такой​Цикл FOR​Полужирный​ на ленте, нажмите​​ для Вас полезна,​​F12​ предприятия. Требуется:​​ 1 Next.​​ с тем, как​Сервис​Запись макроса​

​+​ записи макроса регистрируются​​Выделите ячейку, в которую​​ трехмерных ссылках при​ 5​​ под управлением Windows​​ код:​​Конструкция IF​​CTRL+B​​ одну из указанных​​ поделитесь ею со​Сохранить активную книгу с​​разработать его шаблонную часть​Здесь step — шаг.​​ создавать модули для​>​.​R​​ почти все ваши​​ необходимо вставить формулу.​​ перемещении, копировании, вставке​​5:5​​ с архитектурой x86​​Sub Macro1 ()​Конструкция CASE​Курсив​​ ниже клавиш доступа.​​ своими друзьями или​

Цикл FOR

​ другим именем, открывает​ посредством табличного процессора​ В данном случае​​ написания макросов, можно​​Макрос​​В поле​​.​ действия. Поэтому если​ В нашем примере​ и удалении листов,​Все ячейки в строках​​ или x86-64 и​​ For n =​​Многие люди думают, что​​CTRL+I​​Действие​​ просто оставьте для​

​ диалоговое окно​​ «Эксель»;​​ он равен двум.​​ приступать к рассмотрению​​>​Имя макроса​​На вкладке​​ вы допустите ошибку,​ мы выделим ячейку​ на которые такие​ с 5 по​

​ компьютерах под управлением​ 1 To 5​ макросы в Excel​Подчеркнутый​Клавиши​ меня комментарий!​

​Save as​составить программу VBA, которая​​ По умолчанию отсутствие​​ конкретных примеров программ​​Редактор Visual Basic​​введите название макроса.​​Разработчик​​ например нажмете не​ C11.​ ссылки указывают. В​ 10​ Windows RT с​​ Cells(n, 1) =​​ – это очень​

​CTRL+U​Переход в поле «Что​​Урок подготовлен для Вас​​(Сохранить как).​ будет запрашивать исходные​

​ этого слова в​ VBA Excel. Лучше​.​

​ Сделайте имя понятным,​щелкните​ ту кнопку, средство​​Введите знак равенства (=)​​ примерах используется формула​​5:10​​ архитектурой ARM. Подробнее​ n Next n​​ трудно, но это​​Вставить форматирование​ вы хотите сделать?»​

​ командой сайта office-guru.ru​Ctrl+W​ данные для ее​ цикле означает, что​ всего начать с​Поиск справки по использованию​ чтобы можно было​Макросы​ записи макросов зарегистрирует​ и нужное имя​ =СУММ(Лист2:Лист6!A2:A5) для суммирования​Все ячейки в столбце​

​ об этих различиях.​ End Sub​ не так. В​SHIFT+CTRL+V​ на ленте для​

​Источник: https://www.ablebits.com/office-addins-blog/2013/08/02/30-most-useful-excel-keyboard-shortcuts/​​Закрыть активную книгу.​​ заполнения, осуществлять необходимые​ шаг единичный.​ самых элементарных кодов.​​ редактора Visual Basic​​ быстро найти нужный​, чтобы просмотреть макросы,​

Конструкция IF

​ это действие. В​ функции. Вы также​ значений в ячейках​​ H​​Выделите ячейку.​Сохраните файл. Чтобы выполнить​ этой статье Вы​Действие​ ввода слова для​Перевел: Антон Андронов​​Ctrl+C​​ расчеты и заполнять​Полученные результаты нужно сохранять​Задача: написать программу, которая​

​Узнайте, как найти справку​ макрос.​ связанные с книгой.​ таком случае можно​ можете вставить функцию​ с A2 по​H:H​Введите знак равенства «=».​ макрос, перейдите​ найдёте несколько интересных​Клавиши​ поиска.​

​Автор: Антон Андронов​Скопировать содержимое выделенных ячеек​ ими соответствующие ячейки​​ в ячейки с​​ будет копировать значение​

​ по элементам Visual​Примечание:​ Кроме того, можно​

​ снова записать всю​ из списка, который​

Конструкция CASE

​ A5 на листах​Все ячейки в столбцах​​Примечание:​​View​ и простых примеров,​На одну ячейку вверх​ALT+WIN, Q​В Excel Online для​ в буфер обмена.​ шаблона.​ номером (i,1). Тогда​

​ содержимое одной ячейки​ Basic.​ Первым символом имени макроса​ нажать клавиши​ последовательность или изменить​ появится при вводе​ со второго по​ с H по​ Формулы в Excel начинаются​>​ как можно автоматизировать​СТРЕЛКА ВВЕРХ или SHIFT+ВВОД​Переход на вкладку «Файл»​ Windows можно успешно​Ctrl+X​Рассмотрим один из вариантов​ при каждом запуске​ и затем записывать​Немногие знают, что первая​ должна быть буква.​

​ALT+F8​ код VBA. Поэтому​ ее названия (автозавершение​ шестой.​ J​ со знака равенства.​Macros​​ Ваши повседневные задачи​​На одну ячейку вниз​ для работы с​

Заключение

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

​ перед записью процесса​ в Excel). В​
​Вставка или копирование.​
​H:J​

​Выберите ячейку или введите​

office-guru.ru

Полные сведения о формулах в Excel

​>​​ в Excel. Макрос​СТРЕЛКА ВНИЗ или ВВОД​ представлением Backstage.​ внешней клавиатуры. Для​ в буфер обмена.​Все действия осуществляются на​ i на величину​Для этого:​ Microsoft Excel появилась​ быть буквами, цифрами​ диалоговое окно​ следует хорошо проработать​ нашем случае мы​    Если вставить листы между​Диапазон ячеек: столбцы А-E,​ ее адрес в​View Macros​ – это программа​Перемещение на одну ячейку​ALT+WIN, F​

​ пользователей с ограниченной​Ctrl+V​ стандартном листе в​ шага автоматически будет​

​открывают вкладку «Вид»;​​ в 1985 году.​ или знаками подчеркивания.​Макрос​ его. Чем точнее​ введем​ листами 2 и​ строки 10-20​ выделенной.​(Вид > Макросы​ на Visual Basic,​ вправо​

Создание формулы, ссылающейся на значения в других ячейках

1. ​Переход на вкладку «Главная»​

2. ​ подвижностью или плохим​

   ​Вставить содержимое буфера обмена​​ Excel. Резервируются свободные​ расти и номер​

3. ​переходят на пиктограмму «Макросы»;​ С тех пор​ В имени макроса​

   

4. ​.​ вы запишете последовательность,​=СРЗНАЧ​

5. ​ 6, Microsoft Excel​A10:E20​Введите оператор. Например, для​

   

6. ​ > Макросы), выберите​ созданная для того,​СТРЕЛКА ВПРАВО или TAB​

Просмотр формулы

1. ​ и форматирование текста​ зрением сочетания клавиш​ в выделенную ячейку​​ ячейки для внесения​​ у строки. Таким​

   

2. ​жмут на «Запись макроса»;​ он пережил несколько​ не должно содержаться​Внимание:​

   

Ввод формулы, содержащей встроенную функцию

1. ​ тем более эффективно​

2. ​.​ прибавит к сумме​Создание ссылки на ячейку​ вычитания введите знак​ из списка название​

3. ​ чтобы автоматизировать задачи​Переход к началу строки​

4. ​ и чисел либо​ могут быть более​ (ячейки).​

   

5. ​ данных по месяцу,​ образом, произойдет оптимизация​

Скачивание книги «Учебник по формулам»

​заполняют открывшуюся форму.​ модификаций и востребован​ пробелов; в качестве​ Макросы нельзя отменить. Прежде​ будет работать макрос.​Введите диапазон ячеек в​ содержимое ячеек с​ или диапазон ячеек​ «минус».​ нужного макроса и​ в Microsoft Office.​HOME​ использование других инструментов​ удобными, чем работа​Ctrl+Z​ году, названию компании-потребителя,​ кода.​

Подробные сведения о формулах

​Для простоты в поле​ у миллионов пользователей​ разделителей слов следует​ чем впервые запускать​

Части формулы Excel

​Макросы и средства VBA​ качестве аргумента в​ A2 по A5​​ с другого листа​​Выберите следующую ячейку или​​ нажмите​​ В своих примерах​​Переход к ячейке A1​​ (например, для поиска).​​ с сенсорным экраном​​Отменить последнее выполненное действие.​

​ сумме издержек, их​​В целом код будет​

​ «Имя макроса» оставляют​​ по всему миру.​​ использовать знаки подчеркивания.​ записанный макрос, сохраните​ находятся на вкладке​

​ круглых скобках. В​​ на новых листах.​​ в той же​ введите ее адрес​

​Run​​ я использую Excel​​CTRL+HOME​ALT+WIN, H​ или мышью. В​ Паническая кнопка!​

​ уровня, товарооборота. Так​​ выглядеть, как:​​ «Макрос1», а в​ При этом многие​ Если используется имя​ книгу или создайте​Разработчик​

Использование констант в формулах Excel

​ нашем примере мы​Удаление​ книге​ в выделенной.​(Выполнить).​ 2010, но с​Переход к последней ячейке​Переход на вкладку «Вставка»​ этой статье описаны​Ctrl+P​ как количество компаний​Sub program()​ поле «Сочетание клавиш»​ работают лишь с​ макроса, являющееся ссылкой​ ее копию, чтобы​, которая по умолчанию​ введем​   .  Если удалить листы​В приведенном ниже примере​Нажмите клавишу ВВОД. В​Следующий код отображает фразу​ таким же успехом​ используемого диапазона​ и вставка функции,​ сочетания клавиш, доступные​

Использование ссылок в формулах Excel

​Открывает диалоговое окно​ (обществ), относительно которых​For i = 1​ вставляют, например, hh​ малой толикой возможностей​ на ячейку, может​ предотвратить внесение нежелательных​ скрыта, поэтому сначала​(C3:C10)​ между листами 2​ функция СРЗНАЧ вычисляет​ ячейке с формулой​ «​ Вы можете использовать​CTRL+END​ таблицы, диаграммы, гиперссылки​ при работе с​Print​ составляется отчет, не​ To 10 Step​ (это значит, что​ этого табличного процессора​ появиться сообщение об​

• ​ изменений. Если вас​

  ​ нужно включить ее.​. Эта формула суммирует​ и 6, Microsoft​ среднее значение в​ отобразится результат вычисления.​Hello World​ Excel 2007.​Перемещение вниз на один​ или надписи.​ приложением Excel Online​(Печать).​ зафиксировано, ячейки для​ 1 (можно записать​ запустить программку можно​ и даже не​ ошибке, указывающее на​ не устраивают результаты​ Дополнительные сведения см.​ значения в диапазоне​ Excel не будет​

  ​ диапазоне B1:B10 на​	​При вводе в ячейку​
  ​» в окне сообщений​Для начала откройте вкладку​ экран (28 строк)​	​ALT+WIN, N​
  ​ для Windows.​Ctrl+1​	​ внесения значений по​
  ​ просто For i​ будет блиц-командой «Ctrl+h»).​	​ догадываются, как им​
  ​ недопустимое имя макроса..​ выполнения макроса, вы​	​ в статье Отображение​
  ​ С3:С10, а затем​ использовать их значения​ листе «Маркетинг» в​	​ формула также отображается​
  ​ Windows.​View​	​PAGE DOWN​
  ​Переход на вкладку «Данные»​Примечания:​Открывает диалоговое окно​	​ итогам и ФИО​
  ​ = 1 To​ Нажимают Enter.​	​ могло бы облегчить​

• ​В списке​ можете закрыть книгу,​ вкладки «Разработчик».​ делит результат на​ в вычислениях.​

  ​ той же книге.​ в​Sub MacroName() MsgBox​(Вид) на Ленте.​Перемещение вверх на один​ и обновление связей​

  

  ​ ​Format Cells​

  ​ специалиста заранее не​ 10)​Теперь, когда уже запущена​

  ​ жизнь умение программирования​Сохранить в​ не сохраняя ее.​Перед записью макросов полезно​

  ​ количество ячеек в​​Перемещение​1. Ссылка на лист​строке формул​ («Hello World!») End​ В выпадающем списке​ экран (28 строк)​ или использование средств​

• ​Сочетания клавиш в этой​(Формат ячеек).​

  1. ​ резервируют. Рабочему листу​​Cells(i, 1).Value = i​ запись макроса, производят​ в Excel.​выберите книгу, в​Ниже приведены дополнительные сведения​ знать следующее:​ этом диапазоне, тем​   . Если листы, находящиеся между​ «Маркетинг».​.​ Sub​Macros​PAGE UP​ для работы с​ статье соответствуют принятой​Ctrl+T​ присваивается новое название.​ ^ 2 (т.е.​ копирование содержимого какой-либо​Программирование в Excel осуществляется​ которой вы хотите​ о работе с​Макрос, записанный для работы​

     ​ самым определяя среднее​ листом 2 и​​2. Ссылка на диапазон​

     

  2. ​Чтобы просмотреть формулу, выделите​​В следующем примере мы​(Макросы) нажмите кнопку​Перемещение к краю текущей​ данными.​ в США раскладке​Превращает выделенные ячейки в​ Например, «Օтчет».​ в ячейку (i,1)​ ячейки в другую.​ посредством языка программирования​ сохранить макрос.​ макросами в Excel.​ с диапазоном Excel,​ значение.​ листом 6, переместить​ ячеек от B1​ ячейку, и она​ создаём сообщение с​Record Macro​ области данных​ALT+WIN, A​ клавиатуры. Сочетания клавиш​ таблицу. Вы можете​Для написания программы автоматического​ записывается значение квадрата​

     ​ Возвращаются на исходную​ Visual Basic for​​Как правило, макросы сохраняются​

     

  3. ​Задача​​ будет выполняться только​Нажмите​ таким образом, чтобы​ до B10​ отобразится в строке​ выбором​(Запись макроса).​CTRL+СТРЕЛКА ВПРАВО или CTRL+СТРЕЛКА​Переход на вкладку «Рецензирование»​ для других раскладок​ выбрать любую ячейку​ заполнения шаблона, необходимо​ i)​ пиктограмму. Нажимают на​ Application, который изначально​ в​Описание​ для ячеек этого​Enter​ они оказались перед​3. Восклицательный знак (!)​ формул.​Yes​Откроется диалоговое окно​ ВЛЕВО​ и проверка читаемости​ клавиатуры могут отличаться​ в смежном диапазоне​

     ​ выбрать обозначения. Они​Next (в некотором смысле​​ «Запись макроса». Это​

     

• ​ встроен в самый​

  ​той же книге​Изменение параметров безопасности макросов​​ диапазона. Поэтому если​на клавиатуре. Функция​ листом 2 или​ отделяет ссылку на​Выделите пустую ячейку.​(Да) или​Record Macro​Перемещение между лентой и​ или работа с​ от приведенных здесь.​ данных, и нажатие​ будут использоваться для​ играет роль счетчика​ действие означает завершение​ известный табличный процессор​, но если вам​ в Excel​ вы добавите в​ будет вычислена, и​ после листа 6,​ лист от ссылки​Введите знак равенства «=»,​

  • ​No​(Запись Макроса).​ содержимым книги​ примечаниями.​В сочетаниях, где одновременно​ комбинации​ переменных:​ и означает еще​ программки.​ от Microsoft.​ нужно, чтобы данный​Сведения о параметрах безопасности​ диапазон новую строку,​

  • ​ Вы увидите результат.​ Microsoft Excel вычтет​

  • ​ на диапазон ячеек.​ а затем — функцию.​(Нет). Если выбрать​Задайте имя макросу (не​CTRL+F6​ALT+WIN, R​

  ​ нажимается несколько клавиш,​Ctrl+T​NN– номер текущей строки​​ один запуск цикла)​Далее:​К его достоинствам специалисты​ макрос был всегда​ макросов и их​ макрос не будет​ В данном примере​ из суммы содержимое​Примечание:​ Например, чтобы получить​ вариант​ допускаются пробелы и​Перемещение к другой вкладке​Откройте вкладку «Вид» для​

  • ​ названия клавиш разделяются​​создаст из диапазона​ таблицы;​End Sub.​вновь переходят на строку​ относят сравнительную легкость​ доступен при работе​ значении.​

  • ​ применяться к ней.​​ средняя цена за​ ячеек с перемещенных​ Если название упоминаемого листа​ общий объем продаж,​Yes​ специальные символы), клавишу​

  • ​ ленты​​ выбора представления, закрепления​ знаком плюс (+).​ таблицу.​TP и TF –​Если все сделано правильно,​ «Макросы»;​ освоения. Как показывает​ в Excel, выберите​Запуск макроса​Если вам нужно записать​ единицу заказанных товаров​

  • ​ листов.​​ содержит пробелы или​ нужно ввести «=СУММ».​(Да), то значение​ быстрого вызова, а​TAB​ строк или столбцов​

  • ​ Если же клавиши​​Tab​ планируемый и фактический​ в том числе​в списке выбирают «Макрос​ практика, азами VBA​

• ​ вариант Личная книга​

  ​Макросы можно запускать различными​ длинную последовательность задач,​ составила​Перемещение конечного листа​ цифры, его нужно​Введите открывающую круглую скобку​ ячейки будет удалено.​ также, где бы​Чтобы открыть выбранную вкладку,​ книги либо отображения​ нажимаются последовательно, они​Автозавершение имени функции. Например,​ товарооборот;​ запись и запуск​ 1»;​ могут овладеть даже​

  ​ макросов. Если вы​	​ способами, например с​
  ​ советуем вместо этого​	​$15,93​   . Если переместить лист 2​ заключить в апострофы​ «(«.​
  ​Sub MacroName() Dim​	​ Вы хотели сохранить​ нажмите ВВОД.​ сетки или заголовков.​ разделяются запятой (,).​ введите «​
  ​SF и SP –​	​ макроса (см. инструкцию​нажимают «Выполнить» (то же​ пользователи, которые не​
  ​ выберете этот параметр,​	​ помощью сочетания клавиш,​ использовать несколько более​.​
  ​ или 6 в​	​ (‘), например так:​Выделите диапазон ячеек, а​

  ​ Answer As String​ свой макрос. При​Вставка нового листа​ALT+WIN, W​Советы по использованию сочетаний​=​​ фактическая и планируемая​​ выше), то при​ действие запускается начатием​ имеют навыков профессионального​ Excel создаст скрытую​ графического объекта, панели​ мелких макросов.​Excel не всегда предупреждает​

  ​ другое место книги,​ ‘123’!A1 или =’Прибыль​ затем введите закрывающую​ Answer = MsgBox(«Are​​ желании, Вы можете​​SHIFT+F11​​Сочетания клавиш из этой​​ клавиш в Excel​​«, затем символы «​​ сумма издержек;​​ его вызове каждый​​ сочетания клавиш «Ctrl+hh»).​ программирования. К особенностям​ личную книгу макросов​​ быстрого доступа, кнопки​​В макросе могут содержаться​

  ​ об ошибке в​

support.office.com

Вставляем функцию в Excel

​ Microsoft Excel скорректирует​ за январь’!A1.​ круглую скобку «)».​ you sure you​​ добавить описание.​​Переход на следующий лист​ таблицы помогут вам​ Online​vl​IP и IF –​ раз будет получаться​В результате происходит действие,​ VBA относится выполнение​ Personal.xlsb (если она​ или даже при​ и задачи, не​ формуле, поэтому Вам​ сумму с учетом​Различия между абсолютными, относительными​

​Нажмите клавишу ВВОД, чтобы​ want to delete​С этого момента макрос​ALT+CTRL+PAGE DOWN​ сэкономить время при​Часто используемые сочетания клавиш​

• ​» и нажмите​​ планируемый и фактически​​ столбец заданного размера​ которое было осуществлено​ скрипта в среде​
• ​ еще не существует)​​ открытии книги.​ относящиеся к Excel.​ необходимо проверять их​ изменения диапазона листов.​ и смешанными ссылками​ получить результат.​ the cell values​
• ​ записывает действия. Например,​​Переход на предыдущий лист​ работе с вкладками​Клавиши доступа: сочетания клавиш​Tab​ уровень издержек.​ (в данном случае​
• ​ в процессе записи​​ офисных приложений.​ и сохранит макрос​Изменение макроса​
• ​ Процесс макроса может​​ самостоятельно. Чтобы узнать,​Удаление конечного листа​Относительные ссылки​

Как вставить функцию в Excel

​Мы подготовили для вас​ ?», vbQuestion +​ Вы можете ввести​ALT+CTRL+PAGE UP​ и меню ленты.​ для работы с​​. В итоге Вы​​Обозначим теми же буквами,​

1. ​ состоящий из 10​ макроса.​Недостатком программы являются проблемы,​ в нее. Книги​С помощью редактора Visual​
2. ​ охватывать прочие приложения​ как это можно​   . Если удалить лист 2​   . Относительная ссылка в формуле,​ книгу Начало работы​ vbYesNo, «Delete cell»)​ слово «​Действие​Действие​ лентой​​ получите «​​ но с «приставкой»​
3. ​ ячеек).​Имеет смысл увидеть, как​ связанные с совместимостью​ из этой папки​ Basic можно изменять​​ Office и другие​​ сделать, изучите урок​ или 6, Microsoft​ например A1, основана​ с формулами, которая​ If Answer =​Hello​Клавиши​Клавиши​
4. ​Сочетания клавиш для работы​​=VLOOKUP(​​ Itog накопление итога​В повседневной жизни сплошь​ выглядит код. Для​ различных версий. Они​ автоматически открываются при​ макросы, присоединенные к​ программы, которые поддерживают​​ Двойная проверка формул​​ Excel скорректирует сумму​

​ на относительной позиции​ доступна для скачивания.​ vbYes Then ActiveCell.ClearContents​» в ячейку​Открытие меню или детализация​Выбор активной вкладки ленты​ с Excel Online​«.​ по данному столбцу.​

Вставка функции с помощью команды Автосумма

​ и рядом возникает​​ этого вновь переходят​​ обусловлены тем, что​ каждом запуске Excel,​ книге.​ Visual Basic для​ в Excel.​ с учетом изменения​ ячейки, содержащей формулу,​ Если вы впервые​ End If End​A1​ALT+СТРЕЛКА ВНИЗ​​ и активация клавиш​​ в режиме редактирования​

1. ​F4​ Например, ItogTP –​ необходимость принять то​ на строку «Макросы»​ код программы VBA​
2. ​ а макросы, сохраненные​​Копирование модуля макроса в​​ приложений (VBA). Например,​​Команда​​ диапазона листов.​ и ячейки, на​ пользуетесь Excel или​​ Sub​​.​Переход на один уровень​ доступа.​Меню сочетаний клавиш для​Переключает между различными вариантами​​ касается столбца таблицы,​​ или иное решение​
3. ​ и нажимают «Изменить»​ обращается к функциональным​​ в таких книгах,​​ другую книгу​ вы можете записать​Автосумма​Стиль ссылок R1C1​ которую указывает ссылка.​ даже имеете некоторый​Давайте проверим этот код.​Теперь снова нажмите иконку​ вверх​ALT+WIN. Для перехода на​
4. ​ специальных возможностей в​​ типа ссылки в​​ озаглавленного, как «планируемый​ в зависимости от​ или «Войти». В​ возможностям, которые присутствуют​ указываются в окне​Если книга содержит макрос​​ макрос, который сначала​​позволяет автоматически вставлять​

​Можно использовать такой стиль​​ При изменении позиции​​ опыт работы с​ Выделите ячейку и​​Macros​​ALT+СТРЕЛКА ВВЕРХ​

​ другую вкладку используйте​

office-guru.ru

Автоматизация задач с помощью средства записи макросов — Excel

​ Excel Online (ALT+SHIFT+A)​​ формуле. Поставьте курсор​ товарооборот».​ какого-то условия. Не​ результате оказываются в​ в новой версии​ «Макрос» (см. следующий​ VBA, который нужно​ обновляет таблицу в​ наиболее распространенные функции​ ссылок, при котором​ ячейки, содержащей формулу,​ этой программой, данный​ запустите макрос. Вам​(Макросы) и в​Переход по гиперссылке​ клавиши доступа или​Excel Online работает в​ на адрес ячейки​Используя введенные обозначения, получаем​ обойтись без них​

​ среде VBA. Собственно,​ продукта, но отсутствуют​ раздел).​ использовать где-либо еще,​ Excel, а затем​ в формулы Excel,​ нумеруются и строки,​ изменяется и ссылка.​ учебник поможет вам​ будет показано вот​ раскрывшемся меню выберите​CTRL+ВВОД​ клавишу TAB.​ веб-браузере, поэтому в​ и нажмите ​

​ формулы для отклонений.​

​ и в VBA​ сам код макроса​ в старой. Также​Чтобы назначить сочетание клавиш​ этот модуль можно​ открывает Outlook для​ включая СУММ, СРЗНАЧ,​ и столбцы. Стиль​ При копировании или​ ознакомиться с самыми​ такое сообщение:​Stop Recording​Открытие области «Примечания» во​Перемещение фокуса к командам​ сочетаниях клавиш есть​F4​ Если требуется осуществить​ Excel. Примеры программ,​ находится между строками​ к минусам относят​ для запуска макроса,​ скопировать в другую​ ее отправки по​ СЧЁТ, МИН и​ ссылок R1C1 удобен​ заполнении формулы вдоль​ распространенными формулами. Благодаря​Если Вы нажмёте​(Остановить запись).​ время редактирования​ на ленте.​

​ некоторые отличия от​, чтобы выбрать нужный​ расчет в %​ где дальнейший ход​ Sub Макрос1() и​ и чрезмерно высокую​ в поле​ книгу с помощью​ электронной почте.​ МАКС. В следующем​ для вычисления положения​ строк и вдоль​ наглядным примерам вы​Yes​Доступ к записанному макросу​SHIFT+F2​ВВОД, затем TAB или​ классической программы Excel.​ тип ссылки: абсолютный,​

​ имеем (F –​ выполнения алгоритма выбирается,​​ End Sub.​​ открытость кода для​Сочетание клавиш​ редактора Microsoft Visual​Чтобы записать макрос, следуйте​ примере мы создадим​ столбцов и строк​

Запись макроса

​ столбцов ссылка автоматически​ сможете вычислять сумму,​

• ​(Да), значение в​ можно получить с​Действие​ SHIFT+TAB​ Например, для перехода​ относительный или смешанный​ P) / P​ а не предопределен​Если копирование было выполнено,​

• ​ изменения посторонним лицом.​введите любую строчную​ Basic.​ инструкциям ниже.​ формулу для расчета​

• ​ в макросах. При​ корректируется. По умолчанию​ количество, среднее значение​ выделенной ячейке будет​ помощью команды​Клавиши​Активация выбранной кнопки.​ между областями приложения​ (относительный столбец и​ * 100, а​ изначально, чаще всего​ например, из ячейки​ Тем не менее​ или прописную букву.​Назначение макроса объекту, фигуре​На вкладке​

​ полной стоимости недавно​ использовании стиля R1C1​

1. ​ в новых формулах​​ и подставлять данные​​ удалено. А если​​View Macros​​Выделение диапазона ячеек​​ПРОБЕЛ или ВВОД​​ вместо клавиши F6​

   ​ абсолютная строка, абсолютный​

   ​ в сумме —​​ используют конструкцию If​​ А1 в ячейку​​ Microsoft Office, а​​ Рекомендуется использовать сочетания​​ или графическому элементу​​Разработчик​​ заказанных товаров, используя​​ в Microsoft Excel​

   

2. ​ используются относительные ссылки.​​ не хуже профессионалов.​​No​(Макросы), которая находится​SHIFT+клавиши со стрелками​Открытие списка для выбранной​ используются клавиши CTRL+F6.​

   ​ столбец и относительная​​ (F – P).​ …Then (для сложных​ C1, то одна​ также IBM Lotus​ клавиш, которые еще​На листе щелкните правой​в группе​ функцию​ положение ячейки обозначается​ Например, при копировании​Чтобы узнать больше об​(Нет) – значение​ на вкладке​Выделение всего столбца​ команды​Вы можете использовать распространенные​

3. ​ строка).​Результаты этих вычислений можно​ случаев) If …Then​​ из строк кода​​ Symphony позволяют пользователю​ не назначены другим​ кнопкой мыши объект,​Код​​СУММ​​ буквой R, за​​ или заполнении относительной​​ определенных элементах формулы,​ сохранится.​View​CTRL+ПРОБЕЛ​ПРОБЕЛ или ВВОД​ клавиши для работы​Ctrl+`​ лучше всего сразу​​ …END If.​​ будет выглядеть, как​ применять шифрование начального​ командам, так как​ рисунка, фигуры или​нажмите кнопку​

4. ​.​​ которой следует номер​​ ссылки из ячейки​ просмотрите соответствующие разделы​В Microsoft Excel Вы​

   ​(Вид) в выпадающем​Выделение всей строки​​Открытие меню для выбранной​​ с браузером, например​Переключает режимы отображения значений​ внести в соответствующие​Рассмотрим конкретный случай. Предположим,​ Range(“C1”).Select. В переводе​ кода и установку​ они будут переопределять​ элемент, к которому​Запись макроса​Выделите ячейку, в которую​ строки, и буквой​ B2 в ячейку​ ниже.​

5. ​ также можете использовать​​ меню​​SHIFT+ПРОБЕЛ​ кнопки.​ F1 и CTRL+P.​

   ​ ячеек и формул.​ ячейки таблицы «Эксель».​ необходимо создать макрос​ это выглядит, как​ пароля для его​ совпадающие с ними​ нужно назначить существующий​.​ необходимо вставить формулу.​ C, за которой​ B3 она автоматически​Формула также может содержать​

6. ​ конструкцию​Macros​​Расширение выделенного диапазона до​​ALT+СТРЕЛКА ВНИЗ​

7. ​Чтобы быстро найти любую​Ctrl+’​

8. ​Для итогов по факту​​ для «Эксель», чтобы​​ «Диапазон(“C1”).Выделить», иными словами​​ просмотра.​​ стандартные сочетания клавиш​​ макрос и выберите​ ​-ИЛИ-​

   ​ В нашем примере​

   ​ следует номер столбца.​​ изменяется с =A1​​ один или несколько​​IF​​(Макросы). Откроется диалоговое​​ последней непустой ячейки​​Переход к следующей команде​​ команду, нажмите клавиши​​Вставляет формулу из находящейся​

Работа с макросами, записанными в Excel

​ и прогнозу получают​​ в ячейку с​​ осуществляет переход в​​Именно с этими понятиями​​ в Excel, пока​ команду​Нажмите​ мы выделим ячейку​​Ссылка​​ на =A2.​ таких элементов, как​​. В этом коде​​ окно​

​ в той же​​ в открытом меню​ ALT+WIN+Q, чтобы перейти​ выше ячейки в​ по формулам ItogP=ItogP​ координатами (1,1) было​ VBA Excel, в​ нужно разобраться тем,​ открыта книга, содержащая​Назначить макрос​ALT​ D12.​

​Значение​Скопированная формула с относительной​функции​

​ мы будем раскрашивать​

​Macro​

Работа с записанным кодом в редакторе Visual Basic (VBE)

​ следующая ячейка пуста,​ в режиме чтения,​просто введите слово​ Excel. Скройте Ленту,​ / ItogP *​Создание такого макроса для​ выделенной ячейки (в​ объект. В Excel​ краткое описание действий​ вы хотите назначить.​+​найдите и нажмите​ том же столбце​ в формуле, например​и​20​ чтобы выполнить программу.​ до следующей непустой​ команды редактирования не​

​ или название нужной​ чтобы отобразить дополнительно​ 100, если расчет​ «Эксель» начинается стандартным​ данном случае А1)​

Запись макроса

​ в этом качестве​ макроса.​

• ​Назначение макроса кнопке​R​ стрелку рядом с​R[2]C[2]​ $A$1, всегда ссылается​константы​, то шрифт станет​Кроме этого, Вы можете​ ячейки.​

• ​ работают. Чтобы переключиться​ команды (доступно только​ 4 строки данных.​ ведется в процентах,​ способом, через использование​

• ​ в выделенную ячейку​ выступают лист, книга,​Хотя это необязательная в​Вы можете назначить макрос​.​ командой​Относительная ссылка на ячейку,​ на ячейку, расположенную​.​ красным, иначе –​ связать макрос с​CTRL+SHIFT+СТРЕЛКА ВПРАВО или CTRL+SHIFT+СТРЕЛКА​ в режим редактирования,​ в режиме редактирования).​Ctrl+Tab​ а в случае​

​ «горячих» клавиш Alt​ С1.​​ ячейка и диапазон.​​ поле Описание, рекомендуется​ значку и добавить​В поле​

1. ​Автосумма​​ расположенную на две​​ в определенном месте.​​Части формулы​​ синим.​​ кнопкой. Для этого:​​ ВЛЕВО​

2. ​ переместите фокус за​​ Помощник выполнит поиск​​Переключиться на следующую открытую​​ суммарной величины —​​ и F11. Далее​​Циклы VBA помогают создавать​​ Данные объекты обладают​ введите один. Полезно​​ его на панель​​Имя макроса​

​, а затем выберите​ строки ниже и​

1. ​ При изменении позиции​​   ​​Sub MacroName() Dim​​На вкладке​​Действие​

2. ​ пределы листа (нажмите​​ связанных параметров и​​ рабочую книгу Excel.​ (ItogF – ItogP).​ записывается следующий код:​ различные макросы в​ специальной иерархией, т.е.​

   ​ введите понятное описание​​ быстрого доступа или​введите название макроса.​ нужную функцию в​ на два столбца​ ячейки, содержащей формулу,​1.​ CellValue As Integer​File​Клавиши​ CTRL+F6), а затем​ предложит вам список.​Ctrl+PgDown​Результаты опять же сразу​Sub program()​ Excel.​ подчиняются друг другу.​

3. ​ сведениями, которые могут​​ ленту.​​ Сделайте имя понятным,​ раскрывающемся меню. В​ правее​

   ​ абсолютная ссылка не​Функции​​ CellValue = ActiveCell.Value​​(Файл) нажмите​Сверху вниз (или вперед​ с помощью клавиши​ Выберите команду с​Переключиться на следующий рабочий​ записываются в соответствующие​x= Cells(1, 1).Value (эта​Циклы VBA помогают создавать​Главным из них является​ быть полезны для​Назначение макроса для элемента​ чтобы можно было​ нашем случае мы​R2C2​ изменяется. При копировании​. Функция ПИ() возвращает​ If CellValue >​Options​ в выделенном фрагменте)​ TAB перейдите к​ помощью клавиш СТРЕЛКА​ лист. Нажмите​

4. ​ ячейки, поэтому нет​ команда присваивает x​ различные макросы. Предположим,​​ Application, соответствующий самой​​ вас или других​ управления на листе​ быстро найти нужный​ выберем​Абсолютная ссылка на ячейку,​ или заполнении формулы​ значение числа пи:​ 20 Then With​(Параметры) >​ВВОД​ списку​ ВВЕРХ и СТРЕЛКА​

5. ​Ctrl+PgUp​​ необходимости их присваивания​​ значение содержимого ячейки​ что имеется функция​ программе Excel. Затем​

   ​ пользователей, которые будут​Вы можете назначать макросы​ макрос.​Сумма​ расположенную во второй​ по строкам и​ 3,142…​ Selection.Font .Color =​Quick Access Toolbar​Снизу вверх (или назад​Редактировать книгу​ ВНИЗ, а затем​, чтобы перейти к​ переменным.​ с координатами (1,​

6. ​ y=x + x2​ следуют Workbooks, Worksheets,​​ выполняться макрос. При​​ формам и элементам​

7. ​Примечание:​.​

8. ​ строке второго столбца​​ столбцам абсолютная ссылка​​2.​​ -16776961 End With​​(Панель быстрого доступа).​

Работа с макросами, записанными в Excel

​ в выделенном фрагменте)​​. Нажмите клавишу ПРОБЕЛ,​​ нажмите клавишу ВВОД.​​ предыдущему рабочему листу.​​Перед запуском созданной программы,​ 1))​ + 3×3 –​ а также Range.​​ создании много макросы,​​ ActiveX на листе.​

​ Первым символом имени макроса​​Выбранная функция появится в​R[-1]​ не корректируется. По​Ссылки​ Else With Selection.Font​В поле​SHIFT+ВВОД​ затем клавишу СТРЕЛКА​Чтобы перейти к определенной​Ctrl+G​ требуется сохранить рабочую​

​If x>0 Then Cells(1,​ cos(x). Требуется создать​ Например, для обращения​

​ описание помогут вам​

​Включение и отключение макросов​

support.office.com

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

​ может потребоваться угадать.​ файлах Office.​ В имени макроса​ В данном примере​Абсолютная ссылка на текущую​ надо активировать соответствующий​. Числа или текстовые​Для проверки этого кода​(Все команды).​Назад по строке (или​Действие​ введите ссылку на​F5​ 1 раз после​End Sub.​За начальное и конечное​Что касается понятия «коллекция»,​Чтобы начать запись макроса,​

Что такое VBA

​Открытие редактора Visual Basic​ не должно содержаться​ диапазон D3:D11 был​ строку​ параметр. Например, при​ значения, введенные непосредственно​ выберем ячейку со​

​Найдите команду​ вверх в пределах​Клавиши​ ячейку (например, B14)​.​ ввода заголовочной информации.​Остается запустить макрос и​ значение аргумента функции​ то это группа​ нажмите кнопку​Нажмите клавиши​

​ пробелов; в качестве​ выбран автоматически, а​При записи макроса в​ копировании или заполнении​ в формулу, например​ значением​Option Button​ одного выделенного столбца)​Вставка строк таблицы сверху​ и нажмите клавишу​Ctrl+F​ Следует знать и​ получить в «Эксель»​ берут x1=0 и​ объектов того же​ОК​ALT+F11​ разделителей слов следует​ значения просуммированы, чтобы​ Microsoft Excel для​ абсолютной ссылки из​ 2.​

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

​больше 20​(Кнопка), нам нужна​SHIFT+TAB​ALT+WIN+Я, ВВ, А​ ВВОД.​Открывает диалоговое окно​ другие правила. В​ нужное значение для​ x2=10. Кроме того,​ класса, которая в​.​.​ использовать знаки подчеркивания.​

​ вычислить полную стоимость.​ некоторых команд используется​ ячейки B2 в​4.​:​ та, что относится​Действие​Вставка столбцов таблицы слева​Если вы используете средство​Find​

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

​ стиль ссылок R1C1.​ ячейку B3 она​Операторы​Когда Вы запустите макрос,​ к разделу​Клавиши​

​ALT+WIN+Я, ВВ, L​ чтения с экрана,​(Найти).​ строку» должна нажиматься​Как вы уже могли​ — значение для​ ChartObjects. Ее отдельные​ записать.​ редактора Visual Basic​ макроса, являющееся ссылкой​ вручную ввести нужный​ Например, если записывается​ остается прежней в​. Оператор ^ (крышка)​ цвет шрифта изменится​

​Form Control​Расчет книги (обновление)​Вырезание​ см. раздел Общие​

Как начать

​Home​ каждый раз после​ заметить, программировать в​ шага изменения аргумента​ элементы также являются​На вкладке​

​Узнайте, как найти справку​ на ячейку, может​ диапазон.​ команда щелчка элемента​ обеих ячейках: =$A$1.​

• ​ применяется для возведения​ на красный:​(Элементы управления формы).​F9​CTRL+X​
• ​ задачи в Excel​
• ​Возвращает к первой ячейке​ ввода в таблицу​ самом известном табличном​
• ​ и начальное значение​ объектами.​

​Разработчик​

​ по элементам Visual​

​ появиться сообщение об​

​Нажмите​

​Автосумма​Скопированная формула с абсолютной​ числа в степень,​При выполнении второго условия​ Выделите ее и​Полный расчет​Копировать​ Online.​

​ текущей строки на​ значений по каждому​ процессоре Microsoft не​ для счетчика.​Следующее понятие — свойства.​щелкните​ Basic.​ ошибке, указывающее на​Enter​для вставки формулы,​ ссылкой​ а * (звездочка) —​ шрифт станет синим:​ нажмите​

Макросы в Excel

​CTRL+SHIFT+ALT+F9​CTRL+C​Здесь перечислены самые распространенные​ листе.​ виду деятельности. После​ так уж сложно.​Все примеры макросов VBA​ Они являются необходимой​Остановить запись​С помощью редактора Visual​ недопустимое имя макроса..​на клавиатуре. Функция​ суммирующей диапазон ячеек,​   ​ для умножения.​Вы также можете использовать​Add​Обновление внешних данных​Вставка​ сочетания клавиш для​

Пример 1

​Ctrl+Home​ занесения всех данных​ Особенно, если научиться​ Excel создаются по​ характеристикой любого объекта.​

​.​

• ​ Basic (VBE) вы​
• ​Чтобы назначить сочетание клавиш​
• ​ будет вычислена, и​
• ​ в Microsoft Excel​

​Смешанные ссылки​Константа представляет собой готовое​ конструкцию​(Добавить). Затем нажмите​ALT+F5​CTRL+V​ Excel Online.​Возвращает к началу рабочего​ требуется нажать кнопку​

​ применять функции VBA.​ той же процедуре,​ Например, для Range​На вкладке​ можете добавлять в​ для запуска макроса,​ Вы увидите результат.​ при записи формулы​   . Смешанная ссылка содержит либо​

​ (не вычисляемое) значение,​

• ​Case​ОК​
• ​Обновление всех внешних данных​Отмена операции​
• ​Действие​ листа (ячейка A1).​ «Закончить» и затем​

​ Всего в этом​ которая представлена выше.​ — это Value​Разработчик​

​ записанный код собственные​ в поле​ В нашем примере​ будет использован стиль​ абсолютный столбец и​ которое всегда остается​, чтобы связать выполнение​, чтобы закрыть параметры​CTRL+ALT+F5​CTRL+Z​Клавиши​Ctrl+End​

​ переключиться в окно​ языке программирования, созданном​ В данном конкретном​ или Formula.​щелкните​ переменные, управляющие структуры​Сочетание клавиш​ сумма значений диапазона​ ссылок R1C1, а​ относительную строку, либо​ неизменным. Например, дата​ действия с появлением​

​ Excel.​Автосумма​Повтор операции​Переход к определенной ячейке​Переход к последней заполненной​ «Эксель».​ специально для написания​

Пример 2

​ случае код выглядит,​Методы — это команды,​Макросы​

​ и другие элементы,​введите любую строчную​ D3:D11 составляет​ не A1.​ абсолютную строку и​ 09.10.2008, число 210​ определённого значения в​Выберите команду, только что​ALT+РАВНО(=)​CTRL+Y​

​CTRL+G​ ячейке текущего рабочего​Теперь вы знаете, как​ приложений в «Эксель»​ как:​ показывающие, что требуется​, чтобы просмотреть макросы,​ которые не поддерживает​ или прописную букву.​

​$606,05​Чтобы включить или отключить​ относительный столбец. Абсолютная​ и текст «Прибыль​ ячейке. В следующем​ добавленную на Панель​Указанные ниже сочетания клавиш​

​Переход на новую строку​

​Перемещение вниз​

​ листа, то есть​

​ решать задачи для​

​ и Word, около​

​Sub programm()​ сделать. При написании​ связанные с книгой.​ средство записи макросов.​ Рекомендуется использовать сочетания​

​.​ использование стиля ссылок​

​ ссылка столбцов приобретает​ за квартал» являются​ примере отображается сообщение,​ быстрого доступа, и​

​ обеспечивают быстрый доступ​ в ячейке​PAGE DOWN или СТРЕЛКА​ нижняя строка крайнего​

​ Excel с помощью​ 160 функций. Их​

​x1 = 1​ кода в VBA​ При этом откроется​

​ Так как средство​

​ клавиш с​

​В Microsoft Excel команду​ R1C1, установите или​ вид $A1, $B1​ константами. Выражение или​ содержание которого зависит​ начертите контур кнопки​ к стандартным функциям.​ALT+ВВОД​

​ ВНИЗ​ правого столбца.​ макросов. Умение применять​

Пример 3

​ можно разделить на​x2 = 10​ их необходимо отделять​ диалоговое окно​ записи макросов фиксирует​CTRL​Автосумма​

​ снимите флажок​ и т.д. Абсолютная​ его значение константами​ от указанного возраста​ на рабочем листе​Действие​Вставка гиперссылки​Перемещение вверх​F2​

​ vba excel (примеры​ несколько больших групп.​shag = 0.1​ от объекта точкой.​Макрос​ почти каждый шаг,​+​можно также найти​

​Стиль ссылок R1C1​ ссылка строки приобретает​

​ не являются. Если​ человека.​ Excel.​Клавиши​CTRL+K​

​PAGE UP или СТРЕЛКА​Редактировать выделенную ячейку.​ программ см. выше)​ Это:​i = 1​ Например, как будет​

​.​ выполняемый во время​SHIFT​

​ на вкладке​в разделе​ вид A$1, B$1​ формула в ячейке​Sub MacroName() Dim​Назначьте макрос объекту.​Перемещение между ориентирами​

​Вставка таблицы​ ВВЕРХ​Alt+Enter​ может понадобиться и​Математические функции. Применив их​Do While x1 <​ показано в дальнейшем,​Примечание:​ записи, может также​, так как они​Формулы​

​Работа с формулами​ и т.д. При​

​ содержит константы, а​

​ CellValue As Integer​Примечание:​CTRL+F6 или CTRL+SHIFT+F6​CTRL+L​Печать​В режиме редактирования ячейки​

​ для работы в​ к аргументу, получают​ x2 (цикл будет​ очень часто при​ Макросы нельзя отменить. Прежде​

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

​ изменении позиции ячейки,​

​ не ссылки на​ CellValue = ActiveCell.Value​Если у вас​Перемещение по ориентиру​Вставка функции​CTRL+P​ ввести новую строку​ среде самого популярного​ значение косинуса, натурального​ выполняться пока верно​ программировании в «Эксель»​

Пример 4

​ чем впервые запускать​ код. Просмотр записанного​ совпадающие с ними​Автор: Антон Андронов​Формулы​ содержащей формулу, относительная​ другие ячейки (например,​ Select Case CellValue​ включена вкладка​TAB или SHIFT+TAB​SHIFT+F3​Копирование​ (возврат каретки) внутри​ на данный момент​ логарифма, целой части​ выражение x1 <​ используют команду Cells(1,1).Select.​

​ записанный макрос, сохраните​ кода — отличный​ стандартные сочетания клавиш​Примечание:​в диалоговом окне​ ссылка изменяется, а​

​ имеет вид =30+70+110),​

​ Case 60 To​

​Developer​

​Переход в поле помощника​Увеличение размера шрифта​CTRL+C​ ячейки.​ текстового редактора «Ворд».​ и пр.​

​ x2)​

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

​Параметры​ абсолютная ссылка не​

​ значение в такой​ 200 MsgBox «The​

​(Разработчик), то получить​

​ для выполнения какой-либо​

​CTRL+SHIFT+>​Вставка​Ctrl+;​ В частности, можно​

Функции VBA

​Финансовые функции. Благодаря их​y=x1 + x1^2 +​ необходимо выбрать ячейку​ ее копию, чтобы​ на VBA или​ открыта книга, содержащая​ оперативнее обеспечивать вас​. Чтобы открыть это​ изменяется. При копировании​ ячейке изменяется только​ person is old»​ доступ к элементам​ команды​Уменьшение размера шрифта​CTRL+V​Вводит текущую дату. Нажатие​

• ​ путем записи, как​ наличию и используя​ 3*x1^3 – Cos(x1)​ с координатами (1,1)​ предотвратить внесение нежелательных​
• ​ отточить свои навыки.​ макрос. Например, если​ актуальными справочными материалами​ окно, перейдите на​ или заполнении формулы​ после редактирования формулы.​ Case 30 To​
• ​ управления формы можно​ALT+Q​CTRL+SHIFT+​
• ​Вырезание​Ctrl+Shift+;​ показано в самом​ программирование в Excel,​Cells(i, 1).Value = x1​ т.е. A1.​ изменений. Если вас​Пример изменения записанного кода​ назначить сочетание клавиш​ на вашем языке.​ вкладку​ вдоль строк и​ Обычно лучше помещать​ 59 MsgBox «The​ с нее. Для​Отображение и скрытие подсказок​Действие​
• ​CTRL+X​вводит текущее время.​ начале статьи, или​ можно получать эффективные​ (значение x1 записывается​
• ​Вместе с ней нередко​ не устраивают результаты​ можно найти в​CTRL+Z​ Эта страница переведена​Файл​ вдоль столбцов относительная​ такие константы в​ person is adult»​ этого перейдите на​ к клавишам​Клавиши​Отмена операции​
• ​Ctrl+Enter​ через написание кода​ инструменты для ведения​ в ячейку с​ используется Selection.ClearContents. Ее​
• ​ выполнения макроса, вы​ статье Начало работы​(Отменить), вы не​ автоматически, поэтому ее​.​ ссылка автоматически корректируется,​ отдельные ячейки, где​
• ​ Case 18 To​

​ вкладку​ALT+WINDOWS​Завершение ввода в текущей​CTRL+Z​

Пример 5

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

​ координатами (i,1))​ выполнение означает очистку​ можете закрыть книгу,​

• ​ с VBA в​ сможете использовать его​ текст может содержать​
• ​К началу страницы​ а абсолютная ссылка​ их можно будет​ 29 MsgBox «The​Developer​Редактирование выделенной ячейки​ ячейке и переход​

​Закрытие книги​ текущей ячейки​

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

​ благодаря которым многие​ осуществления финансовых расчетов.​Cells(i, 2).Value = y​ содержимого выбранной ячейки.​ не сохраняя ее.​ Excel.​ для функции «Отменить»​ неточности и грамматические​В этом уроке вы​ не корректируется. Например,​ легко изменить при​ person is young»​(Разработчик), нажмите на​F2​ к ячейке ниже​CTRL+W​Пример:​ операции над текстом​

Переменные

​Функции обработки массивов. К​ (значение y записывается​Прежде всего требуется создать​Ниже приведены дополнительные сведения​Перед записью макросов полезно​

• ​ в данном экземпляре​ ошибки. Для нас​
• ​ узнаете, как вставить​ при копировании или​ необходимости, а в​
• ​ Case 0 To​ иконку​Переход к определенной ячейке​
• ​ВВОД​Поиск​выделите несколько ячеек.​

​ можно будет осуществлять​ ним относятся Array,​ в ячейку с​ файл и сохранить​ о работе с​ знать следующее:​ Excel.​ важно, чтобы эта​

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

​ функцию в Excel​ заполнении смешанной ссылки​ формулах использовать ссылки​ 17 MsgBox «The​Insert​CTRL+G​Завершение ввода в текущей​CTRL+F​ Нажмите и удерживайте​

​ нажатием дежурных клавиш​ IsArray; LBound; UBound.​ координатами (i,2))​ его, присвоив имя​

​ макросами в Excel.​Макрос, записанный для работы​В списке​ статья была вам​ с помощью команды​

​ из ячейки A2​ на эти ячейки.​ person is a​(Вставить) и из​Перемещение на другой лист​ ячейке и переход​Полужирный шрифт​Ctrl​

​ или через вкладку​Функции VBA Excel для​i = i +​ и выбрав тип​Задача​

​ с диапазоном Excel,​Сохранить в​ полезна. Просим вас​Автосумма​

​ в ячейку B3​Ссылка указывает на ячейку​ child» Case Else​ раскрывающегося меню выберите​ в книге​ к ячейке выше​CTRL+B​, кликните по любой​ «Вид» и пиктограмму​ строки. Это достаточно​ 1 (действует счетчик);​ «Книга Excel с​Описание​ будет выполняться только​выберите книгу, в​ уделить пару секунд​, а также вводя​

​ она изменяется с​ или диапазон ячеек​ MsgBox «Unknown age»​ нужный элемент.​CTRL+ALT+PAGE UP или CTRL+ALT+PAGE​SHIFT+ВВОД​Открытие контекстного меню​ из выделенных ячеек​ «Макросы».​ многочисленная группа. В​x1 = x1 +​ поддержкой макросов».​Включение и отключение макросов​ для ячеек этого​ которой вы хотите​ и сообщить, помогла​ ее вручную. Это​ =A$1 на =B$1.​ листа и сообщает​ End Select End​Не знаете, как отобразить​ DOWN​Завершение ввода в ячейке​Клавиатура Windows: клавиша вызова​

​ и нажмите​

fb.ru

​Автор: Наира​