Sub чтение_данных() 'Подпрограмма считывания данных из двух рядом лежащих ячеек

'Переход на ячейку, расположенную ниже

ActiveCell.Cells(2).Activate

'значение ячейки запоминаем в переменную товар

товар = ActiveCell.Value

'переход на ячейку. расположенную справа

ActiveCell.Cells(, 2).Activate

'значение ячейки запоминаем в переменную цена

цена = ActiveCell.Value

'возвращаемся в исходное состояние

ActiveCell.Cells(, 2).Activate : ActiveCell.Cells(, -1).Activate

End Sub




продолжение

Рейтинг@Mail.ru главная программы задачи карта Copyright © СОМИТ, А.Козлов, 2005 г