Имеется программа в Экселе, обсчитывает по сложному алгоритму некоторый коэффициент исходя из двух переменных. Создал таблицу, в шапке по вертикали и горизонтали заданы диапазоны переменных. Берем из горизонтали переменную, копируем в одну ячейку обсчета. Затем идем по столбцу: берем из строки переменную, вставляем в лист обсчета. В листе обсчета копируем результат и копируем в соответствующее положение в таблице. Переходим к следующему значению в столбце. Когда заканчиваются все значения в столбце - переходим к следующему столбцу. Для примера даю макрос, записанный в ручном режиме:
Скрытый текст |
|---|
| Код |
|---|
Sub Макрос6()
'
' Макрос6 Макрос
'
'
Range("C2" ;) .Select
Selection.Copy
Sheets("API-2540 Tables" ;) .Select
Range("R123" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Лист1" ;) .Select
Range("B4" ;) .Select
Application.CutCopyMode = False
Selection.Copy
Sheets("API-2540 Tables" ;) .Select
Range("R122" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R134" ;) .Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист1" ;) .Select
Range("C4" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2" ;) .Select
Application.CutCopyMode = False
Selection.Copy
Sheets("API-2540 Tables" ;) .Select
Range("R123" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Лист1" ;) .Select
Range("B5" ;) .Select
Application.CutCopyMode = False
Selection.Copy
Sheets("API-2540 Tables" ;) .Select
Range("R122" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R134" ;) .Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист1" ;) .Select
Range("C5" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2" ;) .Select
Application.CutCopyMode = False
Selection.Copy
Sheets("API-2540 Tables" ;) .Select
Range("R123" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Лист1" ;) .Select
Range("B6" ;) .Select
Application.CutCopyMode = False
Selection.Copy
Sheets("API-2540 Tables" ;) .Select
Range("R122" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R134" ;) .Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист" ;) .Select
Range("C6" ;) .Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
|
