Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Обновляемый курс валют на Форме
 
#1
12.04.2013 09:01:00
Решил попробовать сделать маленькую форму  по верх всех окон с курсом валют, и не получается :)
Идеально было бы сделать на форме WebBrowser но понять не могу как туда запихнуть только таблицу с курсом валют ( как в обычном веб запросе на листе ), а не всю страницу целиком.
Помогите пожалуйста а.
 
 
 
#2
12.04.2013 09:03:10
А Excel тут с какого боку?!. ;)
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#3
12.04.2013 09:11:25
Форма создана в Excel (VBA) . Excel тоже нужен.
 
 
 
#4
12.04.2013 09:18:46
Поместите на форме TextBox и установите ControlSource равным, например, Лист!A1, где в этой ячейке этого листа загружается значение валюты.
 
 
 
#5
12.04.2013 09:50:31
А как сделать чтоб форма была поверх всех окон и можно было бы работать с другими программами.
( То есть WebBrowsere не как не получится? )
 
 
 
#6
12.04.2013 10:07:11
Сергей Воробьев
А как сделать чтоб форма была поверх всех окон
Цитата
То есть WebBrowsere не как не получится?
Пробуйте
Как вариант, пример на ЦБ РФ, ссылка на закачку внизу
Изменено: anvg - 12.04.2013 10:07:30
 
 
 
#7
12.04.2013 10:34:22
Спасибо anvg
 
 
 
#8
12.04.2013 19:39:47
Цитата
anvg пишет:
Поместите на форме TextBox и установите ControlSource равным, например, Лист!A1, где в этой ячейке этого листа загружается значение валюты.

Еще бы заблокировать TextBox от ввода данных.
В Label не получается ( не обновляется )
 
 
 
#9
12.04.2013 20:46:56
TextBox можно заблокировать, и в Label должно обновляться, так же как и в TextBox
 
 
 
#10
12.04.2013 21:08:25
TextBox можно заблокировать ( обесцвечивается надпись )


А так не обновляется

Private Sub UserForm_Initialize()
otlito = Sheets("Лист1").Range("A1")
Label2 = otlito
End Sub

Только при запуске.
 
 
 
#11
12.04.2013 21:38:41
Для обновления скопируйте в модуль листа этот код
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
UserForm1.Label2 = [a1]
End Sub

Вместо UserForm1, напишите имя Вашей формы
Изменено: Sergei_A - 12.04.2013 21:39:11
 
 
 
#12
12.04.2013 21:40:40
Не обесцвечивается и обновляется... Меняйте данные в ячейке А1.
 
 
 
#13
13.04.2013 09:28:32
Большое вам человеческое спасибо. :D
 
 
 
#14
13.04.2013 17:38:20
Цитата
Юрий М пишет: Не обесцвечивается и обновляется... Меняйте данные в ячейке А1.
Вот блин, не получается.
Когда я меняю в ячейке в ручную то обновляется и на форме а, когда через веб запрос то не фига.
Изменено: Сергей Воробьев - 22.04.2013 20:27:55
 
 
 
#15
13.04.2013 20:17:07
Правильно - я ведь показал только принцип - как получить данные из ячейки в TextBox и в Label. А событие Change, при таком обновлении ячейки, не наступает. Значит Вам нужно поискать по форуму обновление по DDE - обсуждалось много раз. Если у Вас всего одна ячейка - дело можно значительно упростить.
 
 
 
#16
13.04.2013 23:30:45
См. вариант. Контролируется ячейка А39. На лист добавлен TextBox (скрыт) который связан с этой ячейкой. И теперь отслеживаем изменение в этом TextBox.
 
 
 
#17
14.04.2013 19:14:19
Юрий М Спасибо вам огромное, всё вроде получилось.
Изменено: Сергей Воробьев - 15.04.2013 11:28:21
 
 
 
#18
20.04.2013 11:00:25
Все таки я сделал с WebBrowserom , и вроде все получилось.
Результат выводится в название формы "Caption"
Форма всегда по верх всех окон
Остались вопросы:
Можно ли менять цвет или шрифт в названии формы?

При активации формы активируется сам Excel, как сделать так чтоб можно было перемещать форму по экрану без последующего активации Excel ?

Если форма не активна она обесцвечивается и плохо читается, как можно исправить?
 
 
 
#19
20.04.2013 11:49:20
Выводите данные не в Caption, а в Label на самой форме - упростите себе жизнь. Как форматировать шрифт в Caption - не попадалось...
 
 
 
#20
20.04.2013 11:52:21
Мне нужно форму как можно меньше, чтоб не мешалась.
 
 
 
#21
20.04.2013 11:54:24
Можно убрать заголовок.
 
 
 
#22
20.04.2013 11:58:53
Юрий спасибо за подсказку
 
 
 
#23
20.04.2013 12:34:19
Stalevar, Если встанет вопрос о перемещении формы без заголовка, в этой теме есть ответ.
 
 
 
#24
20.04.2013 19:16:18
Сергей Спасибо, очень помогли.
 
 
 
Страницы: 1
Читают тему
Наверх