Последовательное во времени выполнение команд

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

Последовательное во времени выполнение команд (Формулы/Formulas)

GAPAGAPA

Дата: Среда, 14.11.2018, 16:35 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 13

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

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

Excel 2010

Добрый день. Не получается решить задачку. Я так понимаю мне может помочь макрос, к сожалению не владею им. Прошу посмотрите, возможно это легкая задача: последовательное во времени выполнение команд.
Например (файл во вложении):
1 этап: в ячейке A1 поставить 1-цу, в ячейке B1 поставить 0. Через 5-10 секунд копировать значение, вычисленное по формуле из ячейки F1 и записать в ячейку H1;
2 этап: в ячейке A1 поставить 0, в ячейке B1 поставить 1-цу. Через 5-10 секунд копировать значение, вычисленное по формуле из ячейки F1 и записать в ячейку H2.

Спасибо.

К сообщению приложен файл: primer.xlsx (10.3 Kb)

Сообщение отредактировал GAPAGAPA - Среда, 14.11.2018, 21:44

Ответить

Pelena

Дата: Среда, 14.11.2018, 20:43 | Сообщение № 2

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

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

Сообщений: 19513

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

Замечаний: ±

Excel 365 & Mac Excel

Файл не приложился

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

GAPAGAPA

Дата: Среда, 14.11.2018, 21:45 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 13

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

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

Excel 2010

Цитата Pelena, 14.11.2018 в 20:43, в сообщении № 2 ()

Файл не приложился

Извините, сейчас приложил. Спасибо

Ответить

bmv98rus

Дата: Четверг, 15.11.2018, 10:09 | Сообщение № 4

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

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

Сообщений: 4147

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

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

Excel 2013/2016

кросс появился

Зачем ждать эти 5-10 секунд? Или это анимация?

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Четверг, 15.11.2018, 10:12

Ответить

bmv98rus

Дата: Четверг, 15.11.2018, 10:28 | Сообщение № 5

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

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

Сообщений: 4147

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

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

Excel 2013/2016

[vba]

Код

Sub step1()
With Sheet1
.Range("a1") = 1
.Range("b1") = 0
Application.ScreenUpdating = True
Application.Wait Now + CDate("00:00:05")
.Range("h1").Value = .Range("f1").Value
End With
End Sub

Sub step2()
With Sheet1
.Range("a1") = 0
.Range("b1") = 1
Application.ScreenUpdating = True
Application.Wait Now + CDate("00:00:05")
.Range("h2").Value = .Range("f1").Value
End With
End Sub

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Последовательное во времени выполнение команд (Формулы/Formulas)

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