Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос для однотипной подстановки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для однотипной подстановки (Макросы/Sub)
Макрос для однотипной подстановки
Lyova Дата: Суббота, 15.08.2020, 19:54 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

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

Помогите, пожалуйста, написать 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
 
Ответить
СообщениеЗдравствуйте!

Помогите, пожалуйста, написать 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:54
Апострофф Дата: Воскресенье, 16.08.2020, 00:25 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 267
Репутация: 82 ±
Замечаний: 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, где проблему увидели?
[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]
хотя ерунда полная в сути вашего кода, на вам же виднее ваша хотелка...

Автор - Апострофф
Дата добавления - 16.08.2020 в 00:25
Lyova Дата: Воскресенье, 16.08.2020, 00:37 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Lyova
Дата добавления - 16.08.2020 в 00:37
gling Дата: Воскресенье, 16.08.2020, 00:48 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2184
Репутация: 544 ±
Замечаний: 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
 
Ответить
СообщениеИтог работы макроса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?

Автор - gling
Дата добавления - 16.08.2020 в 00:48
Апострофф Дата: Воскресенье, 16.08.2020, 00:49 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 267
Репутация: 82 ±
Замечаний: 0% ±

Excel 1997
Lyova, зачем бесконечно переписывать Range("E33")?
И цикл тут зачем?
[vba]
Код
Sub AAAAAAAAAAAAA()
Range("D8:D10") = Range("D6")
End Sub
[/vba]
 
Ответить
СообщениеLyova, зачем бесконечно переписывать Range("E33")?
И цикл тут зачем?
[vba]
Код
Sub AAAAAAAAAAAAA()
Range("D8:D10") = Range("D6")
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 16.08.2020 в 00:49
Lyova Дата: Воскресенье, 16.08.2020, 01:05 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Lyova
Дата добавления - 16.08.2020 в 01:05
Lyova Дата: Воскресенье, 16.08.2020, 01:13 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Lyova
Дата добавления - 16.08.2020 в 01:13
Lyova Дата: Понедельник, 17.08.2020, 22:09 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
.
 
Ответить
Сообщение.

Автор - Lyova
Дата добавления - 17.08.2020 в 22:09
Hugo Дата: Понедельник, 17.08.2020, 22:24 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3099
Репутация: 665 ±
Замечаний: 0% ±

Макросом в цикле меняете одну переменную, которую подставляете в
[vba]
Код

Range("E33") = Range("C" & переменная)
Range("D"  & переменная) = Range("D6")
[/vba]


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеМакросом в цикле меняете одну переменную, которую подставляете в
[vba]
Код

Range("E33") = Range("C" & переменная)
Range("D"  & переменная) = Range("D6")
[/vba]

Автор - Hugo
Дата добавления - 17.08.2020 в 22:24
Lyova Дата: Понедельник, 17.08.2020, 22:54 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Hugo, Здравствуйте!
К своему стыду не смогу это правильно реализовать. Можете помочь?
 
Ответить
СообщениеHugo, Здравствуйте!
К своему стыду не смогу это правильно реализовать. Можете помочь?

Автор - Lyova
Дата добавления - 17.08.2020 в 22:54
Lyova Дата: Четверг, 20.08.2020, 23:02 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
.
 
Ответить
Сообщение.

Автор - Lyova
Дата добавления - 20.08.2020 в 23:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для однотипной подстановки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!