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

Передать в Excel различные данные можно с помощью нескольких обращений в Excel, что, естественно, требует дополнительных затрат времени. С использованием массива это можно сделать за одно обращение:
Dim vЗамовлення (3, 4) As Variant
vЗамовлення (1, 1) = "Товар": vЗамовлення (1, 2) = "От"
vЗамовлення (1, 3) = "Цена": vЗамовлення (1, 4) = "Количество"
vЗамовлення (2, 1) = "Хлеб черный": vЗамовлення (2, 2) = "шт."
vЗамовлення (2, 3) = 0.95: vЗамовлення (2, 4) = 25
vЗамовлення (3, 1) = "Хлеб белый": vЗамовлення (3, 2) = "шт."
vЗамовлення (3, 3) = 1.24: vЗамовлення (3, 4) = 27
oАркуш.Range (Cells (2, 2), Cells (4, 5)).Value = vЗамовлення

При передаче данных в диапазон рабочего листа данные могут содержаться в переменной, имеющей тип, определенный пользователем. Но при передаче данных из диапазона клеток рабочего листа в переменную последняя всегда должна иметь тип Variant (Excel создаст массив, когда будет выполняться оператор присваивания):
Dim vДани As Variant
Dim vЕлМасиву As Variant
vДани = oАркуш.Range ("B2").CurrentRegion.Value
MsgBox vДани (1,1) 'Переменная vДани содержит массив!
For Each vЕлМасиву In vДани
Debug.Print vЕлМасиву
Next

С помощью Автоматики можно создавать, изменять или открывать существующие диаграммы Excel, используя коллекцию Chats. В приведенном фрагменте кода в рабочем листе выбирается строка клеток, заполненных данными (среди них находится и клетка F2), и на основе этих данных создается объемная гистограмма:
Dim oДиаграма As Chart
oАркуш.Range («F2»).CurrentRegion.Select
Set oДиаграма = oАркуш.Chats.Add
oДиаграма.Type = xl3DColumn 'тип диаграммы: 3D-гистограмма
Следующий код устанавливает ссылку на существующую диаграмму и изменяет ее тип:
Set oДиаграма = oАркуш.Chats (1)
oДиаграма.Type = xl3DColumn

С помощью Автоматики в Visual Basic можно выполнять процедуры, созданные в Excel. Для этого используется метод Run объекта Application. Предположим, что в открытой книге из предыдущих примеров является процедура-функция с именем Итог, которая вычисляет сумму значений диапазона клеток, адрес которого передается этой процедуре значением символьного параметра. Обратиться к ней с Visual Basic можно следующим образом:
MsgBox opExcel.Run "Сводка", "D5: F10"

Следует обратить внимание, что из кода на Visual Basic можно обращаться в некоторых стандартных функций рабочего листа Excel с помощью его свойства WorksheetFunction. Так, вместо функции пользователя Итог можно было использовать стандартную функцию Sum:
MsgBox opExcel.WorksheetFunction.Sum (Range ("D5: F10"))

Другие статьи по теме:

- Типы алгоритмов
- Технология intranet
- Case-технология проектирования программного обеспечения информационных систем
- Средства структурного анализа и проектирования систем
- Интегрированная программная среда поддержки дистанционного обучения «МатЛог»

Другие голосования

Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.

• Как выбрать браузер
• Средства структурного анализа и проектирования систем
• Классификация case-средств
• Case-технология проектирования программного обеспечения информационных систем
• Технология intranet
• Технологии Internet
• Средства доступа к базам данных
• Средства быстрой разработки прикладных программ
• Объектно-ориентированный подход к созданию программных средств
• Этапы проектирования при разработке программного продукта