View difference between Paste ID: fn3VHBMu and 0hLTSAtc

 Option Explicit
-
+
     Row_Start As Integer
     Row_End As Integer
     Column_Start As Integer
     Column_End As Integer
 End Type
 Sub grow_control()
-
+
-
+
 Dim x As Variant '1ый раздел модели МОБ, где x(i,j) - сколько продуктов i-й отрасли надо затратить, чтобы обеспечить пр-во j-й отрасли
-
+
 Dim z As Variant '3ий раздел модели МОБ, где z(p,j) - первичное распледеление доходов от продаж по различным отраслям
 Dim Resource_Names, Process_Names, Consumers_Names As Variant 'Переменные, используемые для записи необходимых названий отраслей, потребителей и пр.
 Dim gdp_expenses As Double 'ВВП, рассчитанный по расходам на конечное потребление
 Dim gdp_income As Double 'ВВП, рассчитанный по доходам полученным от продаж продукции и ресурсов
 Dim gdp_3rd_method As Double 'ВВП по методу: ВВП=совокупные затраты покупателей на покупку продуктов - промежуточное потребление + импорт
 Dim all_consumers_expenses As Double 'Cовокупные затраты покупателей на покупку продуктов (Итого использовано в ценах покупателей)
 Dim intermediate_consumption_expenses As Double 'Расходы на промежуточное потребление
 Dim import As Double 'Совокупный импорт
 Dim production_expenses_matrix() As Double 'Матрица коэффициентов производственных затрат
 Dim production_final_consumption() As Variant 'Конечное потребление продукции отраслей
 Dim base() As Double 'База
 Dim net_income() As Double 'Чистые доходы
 Dim final_consumption_matrix() As Variant 'Матрица коэффициентов затрат на конечное потребление
 ThisWorkbook.Sheets("рост").Activate
 For i = 1 To 3
     With Parts_coordinate(i)
-Dim total_final_consumption() As Double 'Всего конечное потребление
+
         .Row_End = Cells(1 + i, 5)
-
+
         .Column_End = Cells(1 + i, 7)
-
+
-'Сбор координат разделов
+
     Range(Cells(Parts_coordinate(1).Row_Start, Parts_coordinate(1).Column_Start), Cells(Parts_coordinate(1).Row_End, Parts_coordinate(1).Column_End)).Select
     x = Selection.Value 'Ubound(x,1) != Ubound(x,2)
     Range(Cells(Parts_coordinate(2).Row_Start, Parts_coordinate(2).Column_Start), Cells(Parts_coordinate(2).Row_End, Parts_coordinate(2).Column_End)).Select
     y = Selection.Value
     Range(Cells(Parts_coordinate(3).Row_Start, Parts_coordinate(3).Column_Start), Cells(Parts_coordinate(3).Row_End, Parts_coordinate(3).Column_End)).Select
     z = Selection.Value
     Range(Cells(Parts_coordinate(1).Row_Start - 2, Parts_coordinate(1).Column_Start), Cells(Parts_coordinate(1).Row_Start - 1, Parts_coordinate(1).Column_End)).Select
     Process_Names = Selection.Value
-'Сбор данных из соответствующих разделов
+    Range(Cells(Parts_coordinate(1).Row_Start, Parts_coordinate(1).Column_Start - 1),
-    'Сбор численной информации
+
-    Range(Cells(Parts_coordinate(1).Row_Start, Parts_coordinate(1).Column_Start), _
+
-    Cells(Parts_coordinate(1).Row_End, Parts_coordinate(1).Column_End)).Select
+
     Range(Cells(Parts_coordinate(2).Row_Start - 2, Parts_coordinate(2).Column_Start),
-
+
-    Range(Cells(Parts_coordinate(2).Row_Start, Parts_coordinate(2).Column_Start), _
+
-    Cells(Parts_coordinate(2).Row_End, Parts_coordinate(2).Column_End)).Select
+
         For k = 1 To UBound(y, 2): gdp_expenses = gdp_expenses + y(i, k): Next
-
+
-    Range(Cells(Parts_coordinate(3).Row_Start, Parts_coordinate(3).Column_Start), _
+
-    Cells(Parts_coordinate(3).Row_End, Parts_coordinate(3).Column_End)).Select
+
     Next
-    'Сбор названий
+
-    Range(Cells(Parts_coordinate(1).Row_Start - 2, Parts_coordinate(1).Column_Start), _
+    For p = 1 To UBound(z, 2): all_consumers_expenses = all_consumers_expenses + z(1, p): Next
-    Cells(Parts_coordinate(1).Row_Start - 1, Parts_coordinate(1).Column_End)).Select
+
         For i = 1 To UBound(x, 1) - 1: intermediate_consumption_expenses = intermediate_consumption_expenses + x(i, j): Next
-
+
-    Range(Cells(Parts_coordinate(1).Row_Start, Parts_coordinate(1).Column_Start - 1), _
+
     gdp_3rd_method = all_consumers_expenses - intermediate_consumption_expenses + import
     ReDim production_expenses_matrix(1 To UBound(x, 1), 1 To UBound(x, 1))
     ReDim base(1 To 1, 1 To UBound(x, 1))
-
+
-    Range(Cells(Parts_coordinate(2).Row_Start - 2, Parts_coordinate(2).Column_Start), _
+
     ReDim final_consumption_matrix(1 To UBound(x, 1), 1 To UBound(y, 2) + 1)
     ReDim production_final_consumption(1 To UBound(x, 1) + 2, 1 To 4)
-
+
-'Расчет ВВП тремя способами
+
-    'ВВП по расходам
+
     For k = 1 To UBound(y, 2)
         For i = 1 To UBound(y, 1)
             final_consumption_matrix(i, k) = y(i, k) / gdp_expenses
-    'ВВП по доходам
+
         Next i
     Next k
     base(1, UBound(x, 1)) = 1
-'?? 'ВВП по методу: ВВП=совокупные затраты покупателей на покупку продуктов - промежуточное потребление + импорт
+
-    ''Cовокупные затраты покупателей на покупку продуктов (Итого использовано в ценах покупателей)
+
         For i = 1 To UBound(x, 1):
-    For p = 1 To UBound(z, 2): all_consumers_expenses = all_consumers_expenses + z(1, p): Next  'чистые налоги на продукты
+
-    ''Расходы на промежуточное потребление
+
             production_expenses_matrix(i, UBound(x, 1)) = final_consumption_matrix(i, UBound(y, 2) + 1)
         Next i
     Next j
-    ''Совокупный импорт
+
     production_final_consumption(1, 3) = "Экспорт"
-
+
     production_final_consumption(UBound(x, 1) + 2, 1) = "Всего"
-
+
-'Расчет всех матриц затрат и потребления (Таб.2-Таб.4)
+
             production_final_consumption(i + 1, 2) = production_final_consumption(i + 1, 2) + final_consumption_matrix(i, k)
-    ReDim base(1 To 1, 1 To UBound(x, 1)) 'Костыль в размерности, но лень переделывать print_data_massive
+
         production_final_consumption(i + 1, 1) = Resource_Names(i, 1)
         production_final_consumption(i + 1, 3) = final_consumption_matrix(i, UBound(y, 2) - 1)
         production_final_consumption(i + 1, 4) = final_consumption_matrix(i, UBound(y, 2))
         production_final_consumption(UBound(x, 1) + 2, 2) = production_final_consumption(UBound(x, 1) + 2, 2) + production_final_consumption(i + 1, 2)
-    'Расчет чистого дохода
+        production_final_consumption(UBound(x, 1) + 2, 3) = production_final_consumption(UBound(x, 1) + 2, 3) + production_final_consumption(i + 1, 3)
         production_final_consumption(UBound(x, 1) + 2, 4) = production_final_consumption(UBound(x, 1) + 2, 4) + production_final_consumption(i + 1, 4)
     Next i
 ThisWorkbook.Sheets("Нейман2").Activate
-    'Расчет матрицы коэффициентов затрат на конечное потребление
+
     Cells(3, 3) = "Таб.1"
     Cells(3, 3).Select: Cell_Color
-            'Матрица коэффициентов затрат на конечное потребление по всем отраслям
+
     Cells(3, 5) = "Число потребителей"
-            'Вектор коэффициентов затрат на конечное потребление по "всего конечное потребление"
+
     Cells(4, 5) = 1
     Cells(2, 8) = "Расходы на потребление ВВП1 =": Cells(2, 11) = gdp_expenses
     Cells(3, 8) = "Доходы населения ВВП2= ": Cells(3, 11) = gdp_income
-    'Расчет базы
+
     Cells(5, 8) = "Итого использовано в ценах покупателей":
     Cells(6, 8) = all_consumers_expenses
-    'Расчет матрицы коэффициентов затрат
+
-        'Из модели МОБ следует, что UBound(x,1)=UBound(y,1)!
+
     Cells(5, 10) = "Импорт"
     Cells(6, 10) = import
-            'Расчет матрицы по всем отраслям
+
     Cells(9, 2).Select: Cell_Color
-            'Расчет вектора "Денежные затраты"
+
     Cells(11, 2) = "Таб.2"
-            'Расчет вектора "Потребление"
+
     Call print_data_massive(10, 3, Process_Names)
     Cells(10, 3 + UBound(Process_Names, 2)) = "Потребление"
     Cells(11, 3 + UBound(Process_Names, 2)) = UBound(x, 1)
-    'Расчет конечного потребления продукции отраслей
+
     Call print_data_massive(12, 3, production_expenses_matrix):  Number_Format_Three_decimal_places
     Cells(11, 30) = "Таб.3"
     Cells(11, 30).Select: Cell_Color
     Call print_data_massive(12, 31, final_consumption_matrix): Number_Format_Three_decimal_places
     Cells(10, 30 + UBound(final_consumption_matrix, 2)) = "Всего конечное потребление"
-        'Расчет внутреннего потребления
+
     Call print_data_massive(10, 31, Consumers_Names)
     Cells(10, 45) = "Табл. 4  Конечное потребление продукции отраслей  (доли ВВП)"
     Cells(10, 45).Select: Cell_Color
-        'Присвоение названий отраслей из Resource_Names
+
 End Sub
-        'Копирование данных об экспорте из final_consumption_matrix
+
 Range(Cells(row, column), Cells(row + UBound(print_massive, 1) - LBound(print_massive, 1), _
-        'Копирование данных об импорте из final_consumption_matrix
+
 Selection.Value = print_massive
-        'Расчет строки "Всего"
+
-        production_final_consumption(UBound(x, 1) + 2, 2) = production_final_consumption(UBound(x, 1) + 2, 2) _
+
-        + production_final_consumption(i + 1, 2)
+
-        production_final_consumption(UBound(x, 1) + 2, 3) = production_final_consumption(UBound(x, 1) + 2, 3) _
+
-        + production_final_consumption(i + 1, 3)
+
-        production_final_consumption(UBound(x, 1) + 2, 4) = production_final_consumption(UBound(x, 1) + 2, 4) _
+
-        + production_final_consumption(i + 1, 4)
+
     ActiveWindow.LargeScroll Down:=-2
-
+
-'Вывод полученных расчетов на лист "Нейман"
+
     With Selection.Interior
         .ColorIndex = 8
-    'Вывод "Таб.1"
+
 End Sub