Вызов одной программы из другой

Фрагментирование кода

В VBA допускается вызов одной программы из другой, что позволяет разделять код на логически обособленные фрагменты. Эта возможность имеет два «плюса»:

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

· код VBA, разделенный на подпрограммы, обретает четкую логическую структуру; его легче разрабатывать, отлаживать и обслуживать.

Фрагментируя код, обязательно руководствуйтесь правилами логики. Одна подпрограмма должна отвечать за выполнение одной операции. Не увлекайтесь: чрезмерное дробление кода приведет к тому, что для каждой инструкции у вас будет отдельная подпрограмма. Решение вопроса, выделять или не выделять действие в подпрограмму, зависит в основном от ваших желаний и опыта. В следующем примере в программе ВызовПодпрограммы для вывода на экран сообщения о вводе данных мы используем подпрограмму DisplayMessage:

Sub ВызовПодпрограммы()

Dim Range1 As Range

Set Range1 = Worksheets(1).Range("A1")

Range1.Value = 500

DisplayMessage