Содержимое активной ячейки в excel это - Word и Excel - помощь в работе с программами

Updated: 10/07/2019 by

Alternatively called a cell pointer, current cell, or selected cell, an active cell is a rectangular box that highlights the cell in a spreadsheet. An active cell helps identify what cell is being worked with and where data will be entered.

Active cell overview

In the picture below of Microsoft Excel, you can see that the active cell is D8 and is shown in the top-left corner.

Tip

When you first start Excel the active cell is the first cell, which is always A1. You can move the cell pointer by pressing the arrow keys or Enter on your keyboard, or you can click any cell using your computer mouse. If you’re using the keyboard, you can also press the F2 to edit the active cell.

How is an active cell identified?

An active cell or selected cell can be identified many ways. First, as shown in the picture above of Microsoft Excel, the active cell has a bold black box around the cell. Also, the column and row are highlighted. In our example picture, the column header «D» and row header «8» are highlighted in yellow. The active cell is also shown in the top-left portion of the window (Name box), which is «D8» in our example.

Where is the content of the active cell is displayed?

The content of the active cell is shown in the formula bar. In the screenshot above, the formula bar displays the formula in cell D8. The formula, «=SUM(D2:D5)», adds the values of cells D2 through D5 to compute their total value, $162.00. When cell D8 is selected, both the cell and the formula bar display the formula. When any other cell is selected, cell D8 shows the result of its formula, the total $162.00.

How do you change the active cell?

You can change the active cell by clicking any other cell with your left mouse button or with the arrow keys on your keyboard to move the selected cell. If the cell contains no data, you can begin typing to insert new data into that cell. If the cell already contains data, you can click up on the formula bar to change that data or press the F2 on the keyboard.

Which cell is active when Excel is first opened?

When you open a new Excel spreadsheet for the first time, the first cell is selected by default, which is A1 (the first cell of row A and column one). If you’ve worked on an Excel spreadsheet in the past, the active cell is the last active cell position. For example, if you last left the spreadsheet on cell C65, when it is saved and re-opened, it should return to cell C65.

Absolute cell reference, Active, Cell, Name box, Spreadsheet terms

Источник

Всё о работе с ячейками в 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

Источник

Активной (выделенной, текущей) ячейкой
называется ячейка рабочего листа, с
которой Вы в данный момент работаете.
Активная ячейка всегда отмечается либо
утолщением линий ее границ, когда она
является единственной выделенной
ячейкой, либо инверсией цвета ее фона,
когда она является одной из нескольких
выделенных ячеек (блока ячеек).

По умолчанию ввод данных и многие другие
операции в программе MS
Excelсвязаны именно с активной ячейкой.

15. Интерфейс программы ms Excel

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

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

Лабораторная работа
№1

«ЗНАКОМСТВО С
ПРОГРАММОЙ MS EXCEL»

1.1. Запуск программы ms Excel

Запустите программу MS
Excel, выполнив команду «Пуск /
Программы / (MicrosoftOffice ) /MicrosoftExcel».

В операционной системе MSWindows ярлык программыMS
Excelможет также находиться на рабочем
столе или в панели быстрого запуска.

1.2. Структура и элементы рабочего окна программы ms Excel

Распахните рабочее окно программы MS
Excelво весь экран дисплея. При
стандартной (исходной) настройке
параметров программыMS
Excelее рабочее окно имеет вид,
представленный на рис. 1.

Рис.
1. Структура и элементы рабочего окна
программы MS Excel.

Ниже приводится краткое описание
элементов графического интерфейса
рабочего окна программы MS
Excel.

1. Кнопки системных меню по управлению
поведением окна программы MS
Excel(верхняя кнопка) и окна с активной
рабочей книгой (нижняя кнопка). Двойной
щелчок по любой из этих кнопок закрывает
соответствующее окно.

2. Строка-заголовок, содержащая имя
программы (Microsoft Excel) и наименование
активной рабочей книги (Book 1). Имя рабочей
книги соответствует имени файла, в
котором она хранится. Каждая вновь
создаваемая книга получает по умолчанию
имя: «Book N», где N – порядковый номер
вновь создаваемой рабочей книги в данном
сеансе работы с программой MS
Excel.

3. Строка главного меню программы MS
Excel.

4. Кнопки управления поведением окна
программы MS Excel(верхняя группа кнопок) и окна с активной
рабочей книгой (нижняя кнопка).

5. Строки с панелями инструментов:
«Стандартная» и «Форматирование».

6. Кнопка выделения (выбора) сразу всех
ячеек текущего листа рабочей книги с
помощью одинарного щелчка мышкой.

7. Поле имени. В этом окне отображается
адрес (имя) активной ячейки или блока
ячеек.

8. Строка формул (в ней отображается
вводимая информация в активную ячейку
и выполняется редактирования ранее
введенной информации).

9. Кнопки управления вводом информации
в активную ячейку. Левая кнопка отменяет
текущий ввод информации, средняя кнопка
подтверждает правильность ввода
информации и правая кнопка служит для
внедрения в ячейку нужной функции с
помощью «Мастера функций».

10. Кнопки с заголовками (именами) столбцов.
Служат для выделения (выбора) сразу всех
ячеек столбца или изменения их размера
по ширине.

11. Маркер горизонтального разбиения
листа на две рабочие области.

12. Кнопки с заголовками (именами) строк.
Служат для выделения (выбора) сразу всех
ячеек строки или изменения их размера
по высоте.

13. Активная (выделенная, текущая) ячейка
(С7) на рабочем листе.

14. Кнопки навигирования по листам рабочей
книги. Крайние кнопки служат для быстрого
перемещения в начало или конец списка
листов, а внутренние – для пошагового
перехода в прямом и обратном направлениях.

15. Ярлыки с наименованиями листов рабочей
книги. Имя активного (текущего) листа
отображается полужирным шрифтом на
светлом фоне.

16. Маркер изменения ширины области
отображения ярлыков листов рабочей
книги.

17. Вертикальная и горизонтальная линейки
прокрутки (протяжки).

18. Маркер вертикального разбиения листа
на две рабочие области.

19. Статусная строка состояния. В ней
выводятся сообщения о режиме работы
программы MS Excel, в
котором она в данный момент находится.

20. Область отображения активизированных
режимов работы программы MS
Excel(ВДЛ – работа в режиме клавиатурного
выделения ячеек; CAPS – режим ввода
прописных букв; NUM – режим ввода чисел
с использованием клавиш малой цифровой
клавиатуры; SCRL – режим остановки
прокрутки листа ЭТ при навигировании
в рабочем окне; OVR – ввод информации в
ячейку в режиме замещения ее содержимого).

ЗАДАНИЕ 1.Не
выполняя никаких щелчков мышкой,
поочередно поместите ее курсор на все
описанные выше элементы рабочего окна
программыMS Excel.

Обратите внимание и запомните, что:

– в процессе такого навигирования
иногда происходит изменение геометрической
формы курсора мышки в зависимости от
того, на какой объект (элемент объекта)
он в данный момент указывает;

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

Источник

Berd

Пользователь

Сообщений: 5
Регистрация: 09.07.2017

09.07.2017 22:05:36

Не вы меня поняли, надо сделать, чтобы в диапазоне от D5:D8 с фамилиями, на одной ячейке J5, отображался результат среди выбранных фамилий при наведении указателя ячейки или нажатии клавиши Enter

Изменено: Berd — 09.07.2017 22:06:57

Источник

Тест по Электронные таблицы с ответами

Правильные ответы отмечены +

Тесты по начальному уровню знаний excel

1. Основное назначение электронных таблиц-

а) редактировать и форматировать текстовые документы;

б) хранить большие объемы информации;

+в) выполнять расчет по формулам;

г) нет правильного ответа.

Тест. 2. Что позволяет выполнять электронная таблица?

а) решать задачи на прогнозирование и моделирование ситуаций;

+б) представлять данные в виде диаграмм, графиков;

в) при изменении данных автоматически пересчитывать результат;

г) выполнять чертежные работы;

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

+а) да ;

б) нет;

4. Основным элементом электронных таблиц является:

а) Цифры

+б) Ячейки

в) Данные

Тесты по среднему уровню знаний excel

1. Какая программа не является электронной таблицей?

а) Excel ;

б) Quattropro;

в) Superkalk;

+г) Word;

2. Как называется документ в программе Excel?

а) рабочая таблица ;

+б) книга;

в) страница;

г) лист;

3. Рабочая книга состоит из…

а) нескольких рабочих страниц;

+б) нескольких рабочих листов;

в) нескольких ячеек;

г) одного рабочего листа;

4. Наименьшей структурной единицей внутри таблицы является..

а) строка ;

+б) ячейка;

в) столбец;

г) диапазон;

5. Ячейка не может содержать данные в виде…

а) текста;

б) формулы;

в) числа;

+г) картинки;

6. Значения ячеек, которые введены пользователем, а не получаются в результате расчётов называются…

а) текущими;

б) производными;

+в) исходными;

г) расчетными;

7. Укажите правильный адрес ячейки.

а) Ф7;

+б) Р6;

в) 7В;

г) нет правильного ответа;

8. К какому типу программного обеспечения относятся ЕТ?

а) к системному;

б) к языкам программирования;

+в) к прикладному;

г) к операционному;

9.Тест. Формула — начинается со знака…

а)» ;

б) №;

+в) =;

г) нет правильного ответа;

10. Какая ячейка называется активной?

а) любая;

б) та, где находится курсор;

+в) заполненная;

г) нет правильного ответа;

11. Какой знак отделяет целую часть числа от дробной

а) :

б) ;

в) .

+г) нет правильного ответа;

12. Какого типа сортировки не существует в Excel?

а) по убыванию;

+б) по размеру;

в) по возрастанию;

г) все виды существуют;

Тесты по высокому уровню знаний excel

1. Как можно задать округление числа в ячейке?

+а)используя формат ячейки ;

б) используя функцию ОКРУГЛ();

в) оба предыдущее ответа правильные;

г) нет правильного ответа;

Тест — 2. В качестве диапазона не может выступать…

а)фрагмент строки или столбца ;

б) прямоугольная область;

+в) группа ячеек: А1,В2, С3;

г) формула;

3. Что не является типовой диаграммой в таблице?

а) круговая;

+б) сетка;

в) гистограмма;

г) график;

4. К какой категории относится функция ЕСЛИ?

а) математической;

б) статистической;

+в) логической;

г) календарной.

5. Какие основные типы данных в Excel?

а) числа, формулы;

+б) текст, числа, формулы;

в) цифры, даты, числа;

г) последовательность действий;

6. как записывается логическая команда в Excel?

а) если (условие, действие1, действие 2);

б) (если условие, действие1, действие 2);

+в) =если (условие, действие1, действие 2);

г) если условие, действие1, действие 2.

7. Как понимать сообщение # знач! при вычислении формулы?

а) формула использует несуществующее имя;

б) формула ссылается на несуществующую ячейку;

+в) ошибка при вычислении функции ;

г) ошибка в числе.

8.Тест. Что означает появление ####### при выполнении расчетов?

+а) ширина ячейки меньше длины полученного результата;

б) ошибка в формуле вычислений;

в) отсутствие результата;

г) нет правильного ответа.

Тесты по теме — Табличный процессор, электронные таблицы excel сборник 2019.

1. В электронных таблицах нельзя удалить:

— Текстовые данные ячеек

+ Имена ячеек

— Столбцы

2. Минимальной составляющей таблицы является:

+ Ячейка

— Строка

— Книга

3. В электронных таблицах имя ячейки образуется:

— Произвольным образом

— Путем соединения имен строки и столбца

+ Путем соединения имен столбца и строки

4. Табличный процессор – это:

+ Группа прикладных программ, которые предназначены для проведения расчетов в табличной форме

— Команда приложения Excel, вызов которой приводит к выполнению расчетов по введенным в таблицу данным

— Специальная компьютерная программа, помогающая преобразовывать массивы данных из текстового вида в табличный

5. Рабочая книга табличного процессора состоит из:

— Таблиц

— Строк и столбцов

+ Листов

6. Табличный процессор – это программный продукт, предназначенный для:

— Создания и редактирования текстовой информации

+ Управления табличными базами данных

— Работы с данными, представленными в виде электронных таблиц

7. Основными функциями табличного процессора являются:

— Структурирование данных в таблицы; выполнение вычислений по введенным в таблицы данным

+ Все виды действий с электронными таблицами (создание, редактирование, выполнение вычислений); построение графиков и диаграмм на основе данных из таблиц; работа с книгами и т.д.

— Редактирование таблиц; вывод данных из таблиц на печать; правка графической информации

8. К табличным процессорам относятся:

+ Quattro Pro 10, Lotus 1-2-3

— Microsoft Excel, Freelance Graphics

— Paradox 10, Microsoft Access

9. К встроенным функциям табличных процессоров относятся:

— Экономические

+ Расчетные

— Математические

тест 10. Какие типы диаграмм позволяют строить табличные процессоры?

+ График, точечная, линейчатая, гистограмма, круговая

— Коническая, плоская, поверхностная, усеченная

— Гистограмма, график, локальное пересечение, аналитическая

11. Математические функции табличных процессоров используются для:

— Исчисления средних значений, максимума и минимума

— Расчета ежемесячных платежей по кредиту, ставок дисконтирования и капитализации

+ Расчета тригонометрических функций и логарифмов

12. Документ табличного процессора Excel по умолчанию называется:

+ Книгой

— Томом

— Таблицей

13. Табличный процессор обрабатывает следующие типы данных:

— Матричный, Временной, Математический, Текстовый, Денежный

— Банковский, Целочисленный, Дробный, Текстовый, Графический

+ Дата, Время, Текстовый, Финансовый, Процентный

14. Статистические функции табличных процессоров используются для:

— Проверки равенства двух чисел; расчета величины амортизации актива за заданный период

+ Вычисления суммы квадратов отклонений; плотности стандартного нормального распределения

— Расчета кортежа из куба; перевода из градусов в радианы

15. Какова структура рабочего листа табличного процессора?

— Строки, столбцы, командная строка, набор функций

— Ячейки, набор функций, строка состояния

+ Строки и столбцы, пересечения которых образуют ячейки

16. Как называется документ, созданный в табличном процессоре?

+ Рабочая книга

— Рабочий лист

— Рабочая область

17. Финансовые функции табличных процессоров используются для:

— Вычисления произведения аргументов; определения факториала числа

— Определения ключевого показателя эффективности; построения логических выражений

+ Расчетов дохода по казначейскому векселю и фактической годовой процентной ставки

18. Табличные процессоры относятся к какому программному обеспечению?

+ Прикладному

— Функциональному

— Специализированному

19. В виде чего нельзя отобразить данные в электронной таблице?

— Чисел и букв

+ Оператора

— Формул

тест_20. Дан фрагмент электронной таблицы с числами и формулами.

Чему равно значение в ячейке Е3, скопированное после проведения вычислений в ячейке Е1?

— 180

— 110

+ 135

21. Расширение файлов, созданных в Microsoft Excel – это:

+ .xls

— .doc

— .bmp

22. Координата в электронной таблице – это адрес:

+ Клетки в электронной таблице

— Данных в столбце

— Клетки в строке

23. Какие типы фильтров существуют в табличном процессоре Excel?

— Тематический фильтр, автофильтр

+ Автофильтр, расширенный фильтр

— Текстовый фильтр, числовой фильтр

24. Наиболее наглядно будет выглядеть представление средних зарплат представителей разных профессий в виде:

— Круговой диаграммы

— Ярусной диаграммы

+ Столбчатой диаграммы

25. 30 ячеек электронной таблицы содержится в диапазоне:

+ E2:G11

— A15:D20

— C4:F9

26. Выберите абсолютный адрес ячейки из табличного процессора Excel:

— D$3$

— D3

+ $D$3

27. Скопированные или перемещенные абсолютные ссылки в электронной таблице:

+ Не изменяются

— Преобразуются в соответствии с новым положением формулы

— Преобразуются в соответствии с новым видом формулы

28. Активная ячейка – это ячейка:

— С формулой, в которой содержится абсолютная ссылка

+ В которую в настоящий момент вводят данные

— С формулой, в которой содержится относительная ссылка

29. Отличием электронной таблицы от обычной является:

+ Автоматический пересчет задаваемых формулами данных в случае изменения исходных

— Представление связей между взаимосвязанными обрабатываемыми данными

— Обработка данных различного типа

тест-30. Совокупность клеток, которые образуют в электронной таблице прямоугольник – это:

— Ранг

+ Диапазон

— Область данных

31. В табличном процессоре Excel столбцы:

+ Обозначаются буквами латинского алфавита

— Обозначаются римскими цифрами

— Получают имя произвольным образом

32. Символ «=» в табличных процессорах означает:

— Фиксацию абсолютной ссылки

+ Начало ввода формулы

— Фиксацию относительной ссылки

33. Какого элемента структуры электронной таблицы не существует?

— Полосы прокрутки

— Строки формул

+ Командной строки

34. Числовое выражение 15,7Е+4 из электронной таблицы означает число:

+ 157000

— 157,4

— 0,00157

35. В одной ячейке можно записать:

+ Только одно число

— Одно или два числа

— Сколько угодно чисел

36. Подтверждение ввода в ячейку осуществляется нажатием клавиши:

— Tab

— F6

+ Enter

37. Содержимое активной ячейки дополнительно указывается в:

— Поле имени

+ Строке формул

— Строке состояния

38. Для чего используется функция Excel СЧЕТ3?

— Для подсчета ячеек, содержащих числа

— Для подсчета пустых ячеек в диапазоне ячеек

+ Для подсчета заполненных ячеек в диапазоне ячеек

39. Функция ОБЩПЛАТ относится к:

+ Финансовым

— Математическим

— Статистическим

тест*40. Укажите верную запись формулы:

— B9C9+64

+ =D3*D4-D5

— A1=A3+2*B1

41. Маркер автозаполнения появляется, когда курсор устанавливают:

+ В правом нижнем углу активной ячейки

— В левом верхнем углу активной ячейки

— По центру активной ячейки

42. Диапазоном не может быть:

— Прямоугольная область

— Фрагмент столбца

+ Группа ячеек D1, E2, F3

43. Можно ли убрать сетку в электронной таблицу Excel?

— Нет

+ Да

— Да, если снята защита от редактирования таблицы

44. Если при выполнении расчетов в ячейке появилась группа символов #########, то это означает, что:

+ Ширина ячейки меньше, чем длина полученного результата

— Допущена синтаксическая ошибка в формуле

— Полученное значение является иррациональным числом

45. В электронной таблице выделен диапазон ячеек A1:B3. Сколько ячеек выделено?

— 4

— 2

+ 6

Источник