Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exel Вывод данных из ячейки / 17 сообщений из 17, страница 1 из 1
30.03.2007, 14:56:47
    #34427706
oleg76
oleg76
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
Добрый день.
Нужна помощь.
Данные постоянно подгружаются в одну ячейку (котировка),
Как автоматически извлекать значение каждые пять минут.
Пример:
11-00 в первую ячейку, 11-05 во вторую ячейку, 11-10 в третью, и т.д.
Хочу в конце дня посмотреть динамику.
Объясните, в программирование я не силён. Может формула есть...
Спасибо.
С уважением, Олег.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 15:58:53
    #34427970
udgeen69
udgeen69
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
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, 16:13:02
    #34428010
oleg76
oleg76
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
Спасибо БОЛЬШОЕ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 17:35:04
    #34428317
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
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, 20:08:18
    #34428720
oleg76
oleg76
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
Простите за тупой вопрос.
А как запустить эту формулу???
Что делаю я:
Открываю лист с этой котировкой, нажимаю alt+F11.
Копирую формулу (Любезно предоставленную), вставляю адрес ячейки, во второй строке.
В третьей строке оставляю 1.
Всё.
Сохраняю.
Перехожу обратно на лист с котировкой.
Изменений нет...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 20:10:39
    #34428726
oleg76
oleg76
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
У меня Office 2007, если это важно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 21:39:28
    #34428787
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
вот так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 22:09:00
    #34428801
oleg76
oleg76
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
Спасибо. Вы практически меня спасли.
Только котировка меняется, а значения в колонке не прибавляются. (один раз прибавилось
при обозначение котировки)
Т.е. если в ячейку вбивать от руки то всё отлично,
а на автомате никак...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 22:30:03
    #34428815
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
для запуска слежения нужно один раз запустить WatchChanges . через сколько следить - меняй TimeValue("00:00:03")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 22:36:15
    #34428820
Дадахан
Дадахан
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
тебя спасет обеъкт API timer. создаешь таймер, указываешь при этом процедуру для выполнения по истечения срока, в этой процедуре делаешь че хош, и ни какая система не вешается, ничего не тормозит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.03.2007, 22:52:19
    #34428831
oleg76
oleg76
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
Всё работает.
Очень вам признателен.
Спасибо огромное.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.04.2007, 00:04:47
    #34448667
oleg76
oleg76
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Exel Вывод данных из ячейки
Всё прекрасно работает.
Но, к сожалению, отслеживать могу только по одной котировке.
Т.е. чтобы данные накапливались, нужно чтобы лист с макросом был открыт (активным).
А меня интересует история по 3-4 котировкам, приходиться выбирать только одну.
При этом остальные не обновляются (эти листы не активны).

Помогите.

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

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

Помогите.

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

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


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