Добрый день подскажите пожалуйста как автоматизировать расчеты, у меня есть список команд ячейки C25:D34 снизу идут расчеты по их данным, ответы выдаются в ячейки H45:J45 ,а затем выводятся напротив каждой пары команд начиная с ячейки J25.Мне нужно как-то автоматизировать этот процесс чтобы я закидывал списки с разными командами и мне сразу выводились расчеты по всеми списку, а напротив каждой пары команд выводились ответы как в ячейках J25:L25 .Не предлагайте просто перенести нижние формулы в сам список, они будут значительно усложняться, и просто перенести их в каждую ячейку не подойдет. Подскажите пожалуйста как решить эту задачу? хоть формулой хоть макросом.
Добрый день подскажите пожалуйста как автоматизировать расчеты, у меня есть список команд ячейки C25:D34 снизу идут расчеты по их данным, ответы выдаются в ячейки H45:J45 ,а затем выводятся напротив каждой пары команд начиная с ячейки J25.Мне нужно как-то автоматизировать этот процесс чтобы я закидывал списки с разными командами и мне сразу выводились расчеты по всеми списку, а напротив каждой пары команд выводились ответы как в ячейках J25:L25 .Не предлагайте просто перенести нижние формулы в сам список, они будут значительно усложняться, и просто перенести их в каждую ячейку не подойдет. Подскажите пожалуйста как решить эту задачу? хоть формулой хоть макросом.snegovik2389
snegovik2389, Иными словами, вам нужно иметь модель расчетов, которая применяется применительно к входящим данным? Без автоматизации поиска регионов для обработки.
[vba]
Код
Sub fillcalc() curcalc = Application.Calculation Application.Calculation = xlCalculationManual T1 = [c38] T2 = [c41] For Each cell In Range("c25:c34") [c38] = cell [c41] = cell.Offset(, 1) Range("c38:j45").Calculate cell.Offset(, 7).Resize(1, 3).Value = Range("h45:j45").Value ' cell.Offset(, 8) = [i45] ' cell.Offset(, 9) = [j45] Next [c38] = T1 [c41] = T2 Range("c38:j45").Calculate Application.Calculation = curcalc End Sub
[/vba]
snegovik2389, Иными словами, вам нужно иметь модель расчетов, которая применяется применительно к входящим данным? Без автоматизации поиска регионов для обработки.
[vba]
Код
Sub fillcalc() curcalc = Application.Calculation Application.Calculation = xlCalculationManual T1 = [c38] T2 = [c41] For Each cell In Range("c25:c34") [c38] = cell [c41] = cell.Offset(, 1) Range("c38:j45").Calculate cell.Offset(, 7).Resize(1, 3).Value = Range("h45:j45").Value ' cell.Offset(, 8) = [i45] ' cell.Offset(, 9) = [j45] Next [c38] = T1 [c41] = T2 Range("c38:j45").Calculate Application.Calculation = curcalc End Sub