Цель работы: научиться на VBA применять циклы FOR—NEXT, WHILE—WEND, DO—LOOP, FOR—EACH на примере инженерного расчета разгазирования пластовой нефти.
Ход работы:
1. На листе 1 набрал справочную информацию по составу пластовой нефти. Столбец 1 использовал для названия компонента нефти, столбец 2 для химических формул, столбец 3 для молекулярных масс по таблице Менделеева, первые 2 строки использовал для заголовков столбцов
2. В столбце 4 набрал состав пластовой нефти в % мольных, в ячейках A15, A17 набрал исходное количество пластовой нефти и коэффициент перерасчета тонн в баррели. Для контроля под столбцами поместил формулу для расчета суммы элементов. В 5 столбце задал через формулу Excel как произведение 4 столбца на 3.
3. Поместил на лист 1 кнопки «Расчет» и «Очистка».
4. По заданным расчетным формулам набрал программу пересчета состава пластовой нефти из мольных % в число молей массовые %, а также расчета массы каждого компонента, количества товарной нефти в тоннах и баррелях, количества нефтяного газа и количества балластного газа в тоннах и кубометрах.
5. Отладил программу расчета и очистки по шагам и по кнопкам.
6. Результаты проверил по закону сохранения массы: сумма всех компонентов на каждом шаге точно равна исходной заданной массе. Значения в окне во время расчета соответствовали столбцу массы (столбец H)
Вывод: научился на VBA применять циклы FOR—NEXT, WHILE—WEND, DO—LOOP, FOR—EACH на примере инженерного расчета разгазирования пластовой нефти.
Загрузка...
