Формат отображения числа в TextBox на форме (Excel)

Программирование на Visual Basic for Applications
DDimok
Новичок
Новичок
 
Сообщения: 40
Зарегистрирован: 29.06.2004 (Вт) 14:45
Откуда: Москва

Формат отображения числа в TextBox на форме (Excel)

Сообщение DDimok » 15.02.2005 (Вт) 14:30

Уважаемые, а вот мне на формочке надо вводить сумму денег, и жедательно что бы она отображалась в виде (157.00, а не 157) (157.40, а не 157.4). А возможно ли такое сделать в свойствах поля ? или надо чего-нить городить в событиях на это поле ?
Заранее благодарен за информацию :)
Дмитрий

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 15.02.2005 (Вт) 14:36

Видать, пихать в текстбокс format$(157,"0.00")? :)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

DDimok
Новичок
Новичок
 
Сообщения: 40
Зарегистрирован: 29.06.2004 (Вт) 14:45
Откуда: Москва

Сообщение DDimok » 15.02.2005 (Вт) 14:50

Т.е. получается на событие after_update сделать tb_sum.value = format(tb_sum.value , "0.00") ???
Дмитрий

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 15.02.2005 (Вт) 15:14

AfterUpdate? А как вообще ставится туда число? :)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

echo
Обычный пользователь
Обычный пользователь
 
Сообщения: 62
Зарегистрирован: 26.01.2005 (Ср) 8:25
Откуда: Хабаровск

Сообщение echo » 16.02.2005 (Ср) 4:33

можно вот так
Код: Выделить всё
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "###,###,###.00")
End Sub
Душа болит... А лечишь её - печень болит!


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList