Макрос для однотипной подстановки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Макрос для однотипной подстановки (Макросы/Sub)

Lyova

Дата: Суббота, 15.08.2020, 19:54 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте!

Помогите, пожалуйста, написать 2 макроса для однотипной подстановки.

Действия для макроса 1:

[vba]

Код

Range("E33") = Range("C8")
Range("D8") = Range("D6")

Range("E33") = Range("C9")
Range("D9") = Range("D6")

Range("E33") = Range("C10")
Range("D10") = Range("D6")

и т.д.

Range("E33") = 0

Действия для макроса 2:

Range("E33") = Range("C8")
Range("I8:X8") = Range("I6:X6")

Range("E33") = Range("C9")
Range("I9:X9") = Range("I6:X6")

Range("E33") = Range("C10")
Range("I10:X10") = Range("I6:X6")

и т.д.

Range("E33") = 0

[/vba]

Заранее огромное спасибо!

Сообщение отредактировал Lyova - Суббота, 15.08.2020, 19:55

Ответить

Апострофф

Дата: Воскресенье, 16.08.2020, 00:25 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

Lyova, где проблему увидели?
[vba]

Код

SUB макроса_1
Range("E33") = Range("C8")
Range("D8") = Range("D6")

Range("E33") = Range("C9")
Range("D9") = Range("D6")

Range("E33") = Range("C10")
Range("D10") = Range("D6")

'и т.д.

Range("E33") = 0
END SUB

[/vba]
хотя ерунда полная в сути вашего кода, на вам же виднее ваша хотелка...

Ответить

Lyova

Дата: Воскресенье, 16.08.2020, 00:37 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Апострофф, "и т.д." - значит, что таких подстановок очень много, в этом и проблема. Уверен, что это можно сделать коротким кодом используя "For...Next", но не знаю как это сделать.

Ответить

gling

Дата: Воскресенье, 16.08.2020, 00:48 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2563

Репутация: 706 ±

Замечаний: 0% ±

2010

Итог работы макроса1[vba]

Код

Range("E33") = 0
Range("D8:D10").Value = Range("D6").Value

[/vba]Второй макрос [vba]

Код

Range("E33") = 0
Range("I8:X10").Value= Range("I6:X6").Value

[/vba] Зачем все эти промежуточные Е33=...., если в конце всё равно Е33=0?

ЯД-41001506838083

Сообщение отредактировал gling - Воскресенье, 16.08.2020, 00:57

Ответить

Апострофф

Дата: Воскресенье, 16.08.2020, 00:49 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

Репутация: 126 ±

Замечаний: 0% ±

Excel 1997

Lyova, зачем бесконечно переписывать Range("E33")?
И цикл тут зачем?
[vba]

Код

Sub AAAAAAAAAAAAA()
Range("D8:D10") = Range("D6")
End Sub

[/vba]

Ответить

Lyova

Дата: Воскресенье, 16.08.2020, 01:05 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Апострофф,
Range("E33") влияет на ячейку в которой формула = (1+E33). Эта ячейка (с формулой) умножается на кучу факторов, влияющих на конечный результат, находящийся в Range("D6").
В диапазоне С8:С25 находятся данные по возможному изменению факторов (% изменения как в меньшую, так и в большую сторону.)
Кодом в диапазон D8:D25 должны вставляться (как значения) значения конечного результата в зависимости от изменения факторов, влияющих на него.
Таким образом осуществляется анализ "Что, если...".

Ответить

Lyova

Дата: Воскресенье, 16.08.2020, 01:13 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

gling, Обнуляя ячейку E33 восстанавливается исходное значение результата в ячейке D6 и после выполнения макроса будет таблица, показывающая исходные результат и как будет меняться этот исходный результат (значения в диапазоне D8:D25) в зависимости от изменения факторов, влияющих на него, на величины, указываемые в диапазоне C8:С25