Цикл выбора ячеек

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

Цикл выбора ячеек (Макросы/Sub)

Цикл выбора ячеек

dydy_misha

Дата: Вторник, 03.10.2017, 21:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2013

Всем привет
Столкнулся с проблемой при написании макроса с циклами.
Нужен цикл который будет поочередно выбирать информацию из ячеек А1, А2, А3 и т.д и вставлять ее в другую ячейку В1, В2, В3.
В ячейках В1, В2, В3 содержаться формулы которые после расчета покажут полученное значение в ячейке C1, которое необходимо скопировать в ячейку D1
Далее необходимо совершать выбор следующих ячеек А4, А5, А6 и вставлять их также в ячейки В1, В2, В3. Полученное значение также необходимо скопирвоать в ячейку D2.
Как сделать такой цикл?
Ниже есть часть макроса на выполнение первого условия и просчета первых трех ячеек.
[vba]

Код

Range("R3").Select
Selection.Copy
Sheets("расчет").Select
Range("G725").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Выгрузка ТДО").Select
Range("R4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("расчет").Select
Range("I725").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Выгрузка ТДО").Select
Range("X3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("расчет").Select
Range("B737").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=5
Range("R737").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Выгрузка ТДО").Select
Range("AU3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

[/vba]
Надеюсь на скорую помощь в вопросе.

Код

[/vba]
Надеюсь на скорую помощь в вопросе.dydy_misha

Сообщение отредактировал dydy_misha - Среда, 04.10.2017, 08:44

Ответить

СообщениеВсем привет
Столкнулся с проблемой при написании макроса с циклами.
Нужен цикл который будет поочередно выбирать информацию из ячеек А1, А2, А3 и т.д и вставлять ее в другую ячейку В1, В2, В3.
В ячейках В1, В2, В3 содержаться формулы которые после расчета покажут полученное значение в ячейке C1, которое необходимо скопировать в ячейку D1
Далее необходимо совершать выбор следующих ячеек А4, А5, А6 и вставлять их также в ячейки В1, В2, В3. Полученное значение также необходимо скопирвоать в ячейку D2.
Как сделать такой цикл?
Ниже есть часть макроса на выполнение первого условия и просчета первых трех ячеек.
[vba]

Код

[/vba]
Надеюсь на скорую помощь в вопросе.

Автор - dydy_misha
Дата добавления - 03.10.2017 в 21:46

_Boroda_

Дата: Вторник, 03.10.2017, 21:51 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Прочитайте Правила форума.
Приложите файл-пример, в котором как-то еще поясните хотелку, а то, если честно, не очень понятно
Код макроса нужно обрамлять спецтегами - в режиме правки поста выделите код и нажмите кнопку #
И название темы - как-то примерно так нужно:
"Циклическая подстановка значений из ячеек в формулы"

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

buchlotnik

Дата: Вторник, 03.10.2017, 21:52 | Сообщение № 3

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Здравствуйте, прочитайте Правила форума , приложите файл-пример и оформите код тегами (кнопка #)

Ответить

Цикл выбора ячеек (Макросы/Sub)

Страница 1 из 1
1