Циклы на VBA

.

 

Цель работы: научиться на VBA применять циклы FORNEXT, WHILEWEND, DOLOOP, FOREACH на примере инженерного расчета разгазирования пластовой нефти.

 

 

Ход работы:

1.     На листе 1 набрал справочную информацию по составу пластовой нефти. Столбец 1 использовал для названия компонента нефти, столбец 2 для химических формул, столбец 3 для молекулярных масс по таблице Менделеева, первые 2 строки использовал для заголовков столбцов

2.     В столбце 4 набрал состав пластовой нефти в % мольных, в ячейках A15, A17 набрал исходное количество пластовой нефти и  коэффициент перерасчета тонн в баррели. Для контроля под столбцами поместил формулу для расчета суммы элементов. В 5 столбце задал через формулу Excel как произведение 4 столбца на 3.

3.     Поместил на лист 1 кнопки «Расчет» и «Очистка».

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

5.     Отладил программу расчета и очистки по шагам и по кнопкам.

6.     Результаты проверил по закону сохранения массы: сумма всех компонентов на каждом шаге точно равна исходной заданной массе. Значения в окне во время расчета соответствовали столбцу массы (столбец H)Hsdвм

 

Вывод: научился на VBA применять циклы FORNEXT, WHILEWEND, DOLOOP, FOREACH на примере инженерного расчета разгазирования пластовой нефти.

Ссылка на основную публикацию