ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exel Вывод данных из ячейки
17 сообщений из 17, страница 1 из 1
Exel Вывод данных из ячейки
    #34427706
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
Добрый день.
Нужна помощь.
Данные постоянно подгружаются в одну ячейку (котировка),
Как автоматически извлекать значение каждые пять минут.
Пример:
11-00 в первую ячейку, 11-05 во вторую ячейку, 11-10 в третью, и т.д.
Хочу в конце дня посмотреть динамику.
Объясните, в программирование я не силён. Может формула есть...
Спасибо.
С уважением, Олег.
...
Рейтинг: 0 / 0
30.03.2007, 14:56:47
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34427970
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
udgeen69
Участник
Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Sub time()
Dim time1, time2 As Date
Dim i As Integer
i = 1
Лист1.Cells(1, i) = i 'курс
time1 = Now
Do While (Day(time2) = Day(time1)) ' условие, весь день это делать
i = i + 1
Sleep (3000) '5минут спим 300000 милисекунд
Лист1.Cells(1, i) = i

time2 = Now
Loop
End Sub
...
Рейтинг: 0 / 0
30.03.2007, 15:58:53
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428010
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
Спасибо БОЛЬШОЕ.
...
Рейтинг: 0 / 0
30.03.2007, 16:13:02
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428317
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
udgeen69Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Sub time()
Dim time1, time2 As Date
Dim i As Integer
i = 1
Лист1.Cells(1, i) = i 'курс
time1 = Now
Do While (Day(time2) = Day(time1)) ' условие, весь день это делать
i = i + 1
Sleep (3000) '5минут спим 300000 милисекунд
Лист1.Cells(1, i) = i

time2 = Now
Loop
End Sub
Это хорошее решение, повесить комп? ))
предлагаю так решить задачу:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Worksheet_Change(ByVal Target As Range)
Const RateCellAddress = "$C$1"
Const ColumnWhereRegister =  1 

    If Target.Address = Range(RateCellAddress).Address Then
        With Cells(Rows.Count, ColumnWhereRegister).End(xlUp).Offset( 1 ,  0 )
            .Value = Range(RateCellAddress).Value
            .Offset( 0 ,  1 ).Value = Now
        End With
    End If
End Sub
вместо "$C$1" укажите адрес ячейки, где нахордится котировка.
ColumnWhereRegister - в какую колонку вносить отслеженные изменения (справа должна быть незанята еще одна под время)
...
Рейтинг: 0 / 0
30.03.2007, 17:35:04
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428720
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
Простите за тупой вопрос.
А как запустить эту формулу???
Что делаю я:
Открываю лист с этой котировкой, нажимаю alt+F11.
Копирую формулу (Любезно предоставленную), вставляю адрес ячейки, во второй строке.
В третьей строке оставляю 1.
Всё.
Сохраняю.
Перехожу обратно на лист с котировкой.
Изменений нет...
...
Рейтинг: 0 / 0
30.03.2007, 20:08:18
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428726
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
У меня Office 2007, если это важно.
...
Рейтинг: 0 / 0
30.03.2007, 20:10:39
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428787
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
вот так
...
Рейтинг: 0 / 0
30.03.2007, 21:39:28
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428801
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
Спасибо. Вы практически меня спасли.
Только котировка меняется, а значения в колонке не прибавляются. (один раз прибавилось
при обозначение котировки)
Т.е. если в ячейку вбивать от руки то всё отлично,
а на автомате никак...
...
Рейтинг: 0 / 0
30.03.2007, 22:09:00
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428815
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
для запуска слежения нужно один раз запустить WatchChanges . через сколько следить - меняй TimeValue("00:00:03")
...
Рейтинг: 0 / 0
30.03.2007, 22:30:03
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428820
Фотография Дадахан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дадахан
Участник
тебя спасет обеъкт API timer. создаешь таймер, указываешь при этом процедуру для выполнения по истечения срока, в этой процедуре делаешь че хош, и ни какая система не вешается, ничего не тормозит.
...
Рейтинг: 0 / 0
30.03.2007, 22:36:15
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34428831
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
Всё работает.
Очень вам признателен.
Спасибо огромное.
...
Рейтинг: 0 / 0
30.03.2007, 22:52:19
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34448667
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
Всё прекрасно работает.
Но, к сожалению, отслеживать могу только по одной котировке.
Т.е. чтобы данные накапливались, нужно чтобы лист с макросом был открыт (активным).
А меня интересует история по 3-4 котировкам, приходиться выбирать только одну.
При этом остальные не обновляются (эти листы не активны).

Помогите.

Возможно ли сделать, чтобы на одном активном листе, была история по трём, четырём котировкам?
(три-четыре столбца значений)

С уважением.
...
Рейтинг: 0 / 0
10.04.2007, 00:04:47
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34449250
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
Всё прекрасно работает.
Но, к сожалению, отслеживать могу только по одной котировке.
Т.е. чтобы данные накапливались, нужно чтобы лист с макросом был открыт (активным).
А меня интересует история по 3-4 котировкам, приходиться выбирать только одну.
При этом остальные не обновляются (эти листы не активны).

Помогите.

Возможно ли сделать, чтобы на одном активном листе, была история по трём, четырём котировкам?
(три-четыре столбца значений)

С уважением. Олег.
...
Рейтинг: 0 / 0
10.04.2007, 10:59:14
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34449346
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
...
Рейтинг: 0 / 0
10.04.2007, 11:24:30
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34449497
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
БОЛЬШОЕ спасибо.
Вечером протестирую.
Посоветуйте хорошую книгу по программированию в Exel,
доступную для понимания человека с небольшими познаниями в этой области.
Хочу освоить, а то уже неудобно как-то...
С уважением, Олег.
...
Рейтинг: 0 / 0
10.04.2007, 11:56:39
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34449962
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
для самого начала неплохо книги В. Г. Кузьменко, например VBA 2003. Самоучитель , потом можно читать разное от John Walkenbach (Джон Уокенбах), также вот эту Excel 2003 и VBA. Справочник программиста , но для продвинутого уровня мне больше всего понравилась Эффективная работа: Программирование в Office Excel 2003 - максимум толковой информации.
...
Рейтинг: 0 / 0
10.04.2007, 13:58:12
| Ответить | Цитировать | Написать  
Exel Вывод данных из ячейки
    #34450457
oleg76
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg76
Гость
Благодарю.
На выходных побегу в книжный, порадую себя.
С уважением.
...
Рейтинг: 0 / 0
10.04.2007, 16:08:39
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exel Вывод данных из ячейки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34450457&tid=2183154]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 51ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 225ms
total:  383ms
созд. / загр.: 383ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]