Привет!
| Цитата |
|---|
Равик написал:
начались чудеса |
Именуете Вы хорошо.
Вам поможет структурирование кода:
Разбейте код на процедуры, используя принцип единственной ответственности: - процедура должна делать что-то одно или чуть добавлять к входным параметрам = повысите понятность кода (хотя его может стать больше)
Вы получите возможность их тестировать по отдельности = уменьшите количество ошибок.
Пусть Ваша основная процедура состоит из вызовов процедур.
Вам поможет упрощение (отупливание) кода.
Код вида:
| Код |
|---|
Set Specs = Application.Workbooks(UZ).Sheets("Listing").Range(Cells(LastUsedCell.Row + 1, 1), Cells(LastUsedCell.Row + MassivDim + 1, 5)) |
сложный для анализа код.
Желательно его упонятить.
А хотя бы и так:
| Код |
|---|
Dim wsh As Worksheet
Dim cellLeft_ As Range
Dim cellRight As Range
Set wsh = Application.Workbooks(UZ).Sheets("Listing")
Set cellLeft_ = Cells(LastUsedCell.row + 1, 1)
Set cellRight = Cells(LastUsedCell.row + MassivDim + 1, 5)
Set Specs = wsh.Range(cellLeft_, cellRight)
|
