Создание таблицы по двум переменным

Пользователь

Сообщений: 7 Регистрация: 29.07.2013

29.07.2013 12:20:53

Имеется программа в Экселе, обсчитывает по сложному алгоритму некоторый коэффициент исходя из двух переменных. Создал таблицу, в шапке по вертикали и горизонтали заданы диапазоны переменных. Берем из горизонтали переменную, копируем в одну ячейку обсчета. Затем идем по столбцу: берем из строки переменную, вставляем в лист обсчета. В листе обсчета копируем результат и копируем в соответствующее положение в таблице. Переходим к следующему значению в столбце. Когда заканчиваются все значения в столбце - переходим к следующему столбцу. Для примера даю макрос, записанный в ручном режиме:

Скрытый текст

Код

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

Изменено: albatros - 29.07.2013 12:33:06

albatros Пользователь Сообщений: 7 Регистрация: 29.07.2013	#2 29.07.2013 12:24:42 Как можно автоматизировать процесс? Бо вручную - слишком долго Заранее признателен!

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#3 29.07.2013 12:28:47 albatros, код достаточно большой: или прячьте его под спойлер или выкладывайте в txt-файле. Да и без файла-примера мало кто возьмётся Вам помогать.

albatros Пользователь Сообщений: 7 Регистрация: 29.07.2013	#4 29.07.2013 12:29:55 Юрий, я уже хочу спрятать под спойлер, но когда захожу в изменение сообщения - теряется форматирование текста. Не подскажете, как этого избежать?

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 29.07.2013 12:30:41 При изменении будет теряться - нужно СРАЗУ.

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#6 29.07.2013 12:32:07 Имхо, этот код вообще можно убрать... без файла - это мусор.

albatros Пользователь Сообщений: 7 Регистрация: 29.07.2013	#7 29.07.2013 12:34:01 К сожалению, сам файл дать не могу - работает через лицензионный ключ.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#8 29.07.2013 12:41:50 Создайте аналог.

albatros Пользователь Сообщений: 7 Регистрация: 29.07.2013	#9 29.07.2013 12:44:34 Для примера сделал файл с аналогичным принципом. Прошу не пинать - вместо умножения используется тот алгоритм, о котором писал выше. Прикрепленные файлы Таблица.xlsm (12.84 КБ)

albatros Пользователь Сообщений: 7 Регистрация: 29.07.2013	#10 29.07.2013 15:04:06 Префразируя вопрос: как, последовательно подставляя значения из вертикальной и горизонтальной шапки заполнить всю таблицу?

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#11 29.07.2013 20:43:23 Вам нужна таблица умножения? =$B6*C$3

albatros Пользователь Сообщений: 7 Регистрация: 29.07.2013	#12 30.07.2013 13:06:05 Нет. Есть программа в Экселе, которая просчитывает по сложному алгоритму коэффициент на основании двух переменных. Мне необходимо построить таблицу для полного диапазона этих переменных. Конкретнее - пытаюсь реализовать макрос, который подставит в программу каждое значение из обоих диапазонов и занесет результат в соответствующее место в таблице. Таблицу умножения (вместе с черновиком макроса) привел в качестве примера того, что нужно автоматизировать, потому что вручную обрабатывать придется 93 436 значений.

Читают тему