Автоподстановка данных через определенное время

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

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

Автоподстановка данных через определенное время (Макросы Sub)

kazako1

Дата: Воскресенье, 15.09.2013, 19:43 | Сообщение № 1

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

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

Сообщений: 5

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

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

Excel 2013

Умные люди, помогите пожалуйста. я не очень дружу с excel'ем.

нужно, чтобы через каждый час макрос обновлять таблицу и заменял ячейки. подробности в файле

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

Ответить

KuklP

Дата: Воскресенье, 15.09.2013, 19:51 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

А если Вы забудете через час ввести число? Да и один раз в час(опять же, если не забудете) удалить ячейку со сдвигом вверх не такой уж непосильный труд.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Serge_007

Дата: Воскресенье, 15.09.2013, 20:01 | Сообщение № 3

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

[vba]

Код

Sub kazako1()
     Sheets(1).[a4:a6] = [a5:a7].Value
     Sheets(1).[a7].ClearContents
     Application.OnTime Now + TimeSerial(1, 0, 0), "kazako1"
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

_Boroda_

Дата: Воскресенье, 15.09.2013, 20:10 | Сообщение № 4

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

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

Сообщений: 16741

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Похоже, только еще с автовключением
[vba]

Код

Sub Auto_open()
    tt
End Sub

Sub tt()
    Range("A5:A7").Copy Range("A4:A6")
    Range("A7").ClearContents
    Application.OnTime Now + TimeValue("01:00:00"), "tt"
End Sub

[/vba]
Можно еще добавить после range строку
[vba]

Код

MsgBox "Введите число"

[/vba]

К сообщению приложен файл: 5534514_2.xlsm (13.5 Kb)

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