Время со знаком "-" (в форме) - Microsoft Office Excel

tgm · 06.10.2011, 22:20

Добрый вечер! Возникла одна проблема,если можно- помогите пожалуйста. Есть 3 textbox,в первом фактическое время действия,во втором плановое время , а в третьем нужно автоматом получить отклонение (разницу).Нужно что-бы показывало и отрицательную разницу во времени (как "+"
так и "-").Спасибо

kuklp · 06.10.2011, 22:46

Может так?

tgm · 06.10.2011, 23:13

То что нужно!

Спасибо большое!!!

IgorGO · 06.10.2011, 23:18

Код:

TextBox5 = IIf([b2] < [a2], "-", "") & Format([b2] - [a2], "hh:mm")

tgm · 06.10.2011, 23:38

Игорь,спасибо большое! А как мне переделать строку чтобы значения брались не из ячеек A,B а из Lebel1, Lebel2 ?

tgm · 06.10.2011, 23:55

Все,разобрался! Kuklp,IgorGO-спасибо вам огромное!

tgm · 07.10.2011, 00:16

Появилась еще проблема,правда из другой оперы..

Раньше была формула на листе,но теперь понадобилось перенести на форму.
=ПРОСМОТР(P3;Константы!$H$25:$H$49; Константы!$I$25:$I$49)
Пытался засунуть ее в форму и получилась вот такая фигня,которая естественно не работает:
Label4 = Application.Lookup(Label3, Sheets("Константы").Range("H25:H49" ), Sheets("Константы").Range("I25:I49" )

Пишет"Type mismatch (Error 13)"Что ей не так!?

IgorGO · 07.10.2011, 08:41

может так:
Label4.caption = Application.Lookup(Label3.caption ...

tgm · 07.10.2011, 16:14

Все равно не хочет.. Уже ПРОСМОТР заменил на ВПР,но увы..

Выкладываю пример.

IgorGO · 07.10.2011, 17:11

а поискать немного, состояние переменных посмотреть...

Код:

Label2 = Application.VLookup(CDbl(CDate(Label1 & ":00")), [a5:b29], 2, 0)

06.10.2011, 23:18	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `TextBox5 = IIf([b2] < [a2], "-", "") & Format([b2] - [a2], "hh:mm")` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

07.10.2011, 08:41	#8
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	может так: Label4.caption = Application.Lookup(Label3.caption ... Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

07.10.2011, 17:11	#10
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	а поискать немного, состояние переменных посмотреть... Код: `Label2 = Application.VLookup(CDbl(CDate(Label1 & ":00")), [a5:b29], 2, 0)` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сумма со знаком "="	0creator0	Microsoft Office Excel	6	18.08.2011 13:08
Как обойти "преобразование типа из "string" в "float" невозможно"	lexluter1988	Помощь студентам	1	07.08.2010 12:23
"ОКРВВЕРХ", "ОКР", "ЕСЛИ". Как бы их связать.	Каравай	Microsoft Office Excel	13	17.02.2010 09:53
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой"	aleksei78	Microsoft Office Excel	13	25.08.2009 12:04

06.10.2011, 23:13	#3
tgm Пользователь Регистрация: 15.11.2009 Сообщений: 65	То что нужно! Спасибо большое!!!

06.10.2011, 23:38	#5
tgm Пользователь Регистрация: 15.11.2009 Сообщений: 65	Игорь,спасибо большое! А как мне переделать строку чтобы значения брались не из ячеек A,B а из Lebel1, Lebel2 ?

06.10.2011, 23:55	#6
tgm Пользователь Регистрация: 15.11.2009 Сообщений: 65	Все,разобрался! Kuklp,IgorGO-спасибо вам огромное!

07.10.2011, 00:16	#7
tgm Пользователь Регистрация: 15.11.2009 Сообщений: 65	Появилась еще проблема,правда из другой оперы.. Раньше была формула на листе,но теперь понадобилось перенести на форму. =ПРОСМОТР(P3;Константы!$H$25:$H$49; Константы!$I$25:$I$49) Пытался засунуть ее в форму и получилась вот такая фигня,которая естественно не работает: Label4 = Application.Lookup(Label3, Sheets("Константы").Range("H25:H49" ), Sheets("Константы").Range("I25:I49" ) Пишет"Type mismatch (Error 13)"Что ей не так!?