Автоматизация ввода данных в ячейки

В Microsoft Excel с помощью несложного трюка можно вводить данные только в заранее определенные ячейки. Рассмотрим это на конкретном примере.

Допустим, нам необходимо ввести данные только в ячейки C3:С5 и А1:А4. Для этого следует выделить мышью диапазон C3:С5, а затем, нажав клавишу Ctrl, – диапазон А1:А4. Теперь, не снимая выделения, в ячейках с Al по А4 последовательно вводим необходимые значения. После того как заполнена ячейка А4 и нажата клавиша Enter, курсор автоматически перейдет в ячейку C3. После заполнения ячеек C3:С5 и нажатия Enter курсор опять перейдет в ячейку А1. После ввода всех необходимых данных можно снять выделение.

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

Листинг 2.16. Ввод данных в ячейки

Sub SetCellData()

' Заполнение значениями ячеек А3 и В4

Range(«A3») = «Данные для ячейки A3»

Range(«B4») = «Данные для ячейки B4»

End Sub

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

Данные для ячейки A3, а в ячейку В4 – Данные для ячейки В4.

С помощью похожего макроса (листинг 2.17) можно выполнять вычисления с использованием формул.

Листинг 2.17. Ввод данных с использованием формул

Sub SetCellFormula()

' Запись в ячейку А6 формулы «=A5+B5»

Range(«A6») = «=A5+B5»

End Sub

В результате выполнения данного макроса в ячейке Аб отобразится сумма ячеек А5 и В5. Если же в приведенном макросе вместо строки Range («Аб») = «=А5+В5» ввести, например, Range («А2:А5») = 2, то все ячейки диапазона А2:А5 будут заполнены значением 2.