Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как отформатировать число в TextBox?
 
#1
28.04.2013 02:38:53
Есть числовое значение в TextBox (оно может быть как целым (Long), так и с плавающей запятой).
Как отформатировать в TextBox значение с разделителем тысяч (например, пробелом).
 
 
 
#2
28.04.2013 02:43:26
функция Format()
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
28.04.2013 02:53:18
В нем использовал предопределенный формат Standard, но он дает только 2 цифры после запятой, а мне нужны все!
 
 
 
#4
28.04.2013 03:00:58
Запишите рекордером нужно е форматирование ячейки и посмотрите получившийся код. Используйте аналогичный для ТекстБокса.
 
 
 
#5
28.04.2013 03:03:45
был один вопрос
Цитата
evgmaz пишет:
Как отформатировать в TextBox значение с разделителем тысяч (например, пробелом).
где здесь сказано про количество знаков после запятой?

так что надо-то на самом деле?
может быть, примеры привести, если словами не получается описать задачу?
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#6
28.04.2013 05:06:02
Цитата
Юрий М пишет: Запишите рекордером...
Спасибо за совет! Попробуем!
 
 
 
#7
28.04.2013 14:21:12
воспользовался советом от Юрия М, но вот такой код в процедуре TextBox1_KeyPress:
st = TextBox1.Value

If KeyAscii >= 48 And KeyAscii <= 57 Then
TextBox1.Text = Format(st, "#,###" ;)
Exit Sub
Else
KeyAscii = 0
Exit Sub
End If

дает в итоге неправильный формат, типа 1 234 5678 (т.е. делит не по 3 разряда, а в конце оставляет 4).
А должно быть: 12 345 678

Не пойму то ли ошибка в использовании ф-ии Format, то ли не корректность ее использования в процедуре KeyPress (и надо поискать другую процедуру)?!
 
 
 
#8
28.04.2013 14:27:38
в окне immediate:
Код
? format(12345678, "#,##0")
12 345 678


а что там у вас в переменной st - нам, извините, не видно  :(
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#9
28.04.2013 14:41:06
Цитата
ikki пишет: а что там у вас в переменной st - нам, извините, не видно  :(  
Подозрение у вас правильное, в процедуре KeyPress в переменную st попадает число до нажатия клавиши, а не после, поэтому форматирование неверное.

Если сделал процедуру Change, типа
Private Sub TextBox1_Change()
st = TextBox1.Value
TextBox1.Text = Format(st, "#,##0")  
End Sub

то все заработало верно.....Но какой-то осадок остался, кажется все можно достойно решить в рамках одной процедуры KeyPress, просто я увы не до конца понимаю "график" ее работы.
спасибо за советы.
 
 
 
#10
28.04.2013 14:52:22
имхо, правильнее именно разделить эти две задачи - недопущение нажатия неправильной клавиши и форматирование.
обратите внимание - нажатие клавиши del, к примеру, в KeyPress не обрабатывается. точнее - это событие просто не возникает, а форматировать изменённое значение всё равно нужно.

не стоит пихать всё в один обработчик, создавая себе трудности и запутывая код.
ваш вариант с двумя процедурами кажется мне наиболее логичным.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
28.04.2013 15:07:32
Спасибо, всегда приятно, что свои мысли (подходы) одобряются профессионалами
 
 
 
#12
28.04.2013 17:38:32
И все таки продолжу:

Проблема с плавающей запятой.
Если все то же самое проделать с плавающей запятой (в процедуре TextBox1_Change())
st=TextBox1.Value
TextBox1 = Format(st, "#,##0.##")
то в итоге вообще я не понимаю Excel

Ввожу: 12345.6789
Полагаю, что получу: 12 345.67
А получаю: 1,23 (цифра 4 уже не вводится, а запятая ввелась сама). Запятая-это что делить разрядов, либо математический знак?

Запись "#,##0.##" проверял с NumberFormat применительно к ячейкам, то все работает ок!
В чем может быть проблема?
 
 
 
#13
28.04.2013 19:52:13
Цитата
evgmaz пишет:
Ввожу: 12345.6789... Полагаю, что получу: 12 345.67
Неправильно полагаете - должно получиться 12 345,68.
Не могу также понять необходимость переменной st - зачем она вообще?
Цитата
цифра 4 уже не вводится, а запятая ввелась сама
Наверное, Вы забываете, что событие Change возникает после ввода КАЖДОГО символа.
Также не могу понять, почему Вы вводите точку в качестве разделителя целой и дробной части - вводите запятую.
И сделайте всё на событие Exit:
Код
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1 = Format(Me.TextBox1, "#,##0.##")
End Sub
 
 
 
#14
29.04.2013 00:17:08
Цитата
Юрий М пишет: Не могу также понять необходимость переменной st - зачем она вообще?
st можно не вводить (это не принципиально!). Согласен.
Точку ввожу из-за того, что при помещении значения TextBox в ячейку листа, число вносится как число, а не как текст. (Раньше была запятая, от которой отказался, так как водился текст).
Кстати поменял . на , также ничего не работает!

С Exit конечно все работает, то хочется чтобы форматировалось во время набора, а не после выхода из TextBox.....

Продолжаю осмысливать идеи....но пока нет результата!
Изменено: evgmaz - 10.05.2013 00:07:08
 
 
 
#15
29.04.2013 00:27:49
предлагаю попробовать так:
1. ПЕРЕД каждым форматированием полученную строку из текстбокса избавлять от пробелов
2. ЕСЛИ последний знак в строке - точка, то временно убирать его
3. превращать полученную строку в число и форматировать Format'ом
4. ЕСЛИ в конце была точка - добавить её к результату форматирования
Изменено: ikki - 29.04.2013 00:46:42
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#16
29.04.2013 00:41:57
Цитата
evgmaz пишет:
Точку ввожу из-за того, что при помещении значения TextBox в ячейку листа, число вносится как число, а не как текст.
В TextBox ВСЕГДА текст, вне зависимости от того, вводите Вы точку или запятую.
 
 
 
#17
29.04.2013 02:24:14
Совершенно верно, в TextBox всегда текст (это хорошо известно), но вот когда данные из TextBox я копирую в ячейку Листа, то Exel воспринимает текст с точкой как число, а текст с запятой как текст.
В первом случае с ячейкой можно работать как с числом (например, прибавить 1), а во втором случае при прибавлении 1 на автомате получите ошибку!
Я прихожу к выводу, что тема форматирования в Exel самая муторная. Много раз возвращался к этой теме (за несколько лет) и всякий раз какая-то нелогичность возникает!
Ни отчего другого в Exel не возникает подобного дискомфорта!
 
 
 
#18
29.04.2013 02:28:39
Так и передавайте его в ЯЧЕЙКУ числом: [A1] = CDbl(Me.TextBox1)
 
 
 
#19
29.04.2013 02:32:05
Цитата
evgmaz пишет:
Exel воспринимает текст с точкой как число, а текст с запятой как текст
Не согласен: это VBA воспринимает точку, как разделитель. А вот Excel как раз наоборот. Попробуйте ввести в ячейку 12345.6789
 
 
 
#20
29.04.2013 02:34:51
Цитата
ikki пишет: предлагаю попробовать так...
Попробую ваш вариант, но вот что настораживает:
Почему с целым числом обсуждаемый с вами утром вариант с процедурой Change и кодом
TextBox1.Text = Format(st, "#,##0" ;)
работает превосходно!

А ДЛЯ ДЕЙСТВИТЕЛЬНОГО ЧИСЛА (когда запятая есть) вариант с процедурой Change и кодом
TextBox1 = Format(TextBox1, "#,##0.##" ;)  уже не работает??????!!!!! Получается полностью необъяснимый результат!
И ради это приходится выкручиваться разными способами (например, как вы указали)?!!!!
 
 
 
#21
29.04.2013 02:41:31
Юрий М, ну, Вы только подтверждаете сказанное....Это 12345.6789 - Exel воспринимает как текст, а если 12345.6789 находится в TextBox, то Cells(1,1) =TextBox.value получится нормальное хорошее число 12345,6789
Я сам удивился, когда это обнаружил, поэтому и поменял , на . в обработке TextBox.
Отчего еще больше запутался!

Короче ни с запятой ни с точкой пока нет результата!
Изменено: evgmaz - 10.05.2013 00:08:25
 
 
 
#22
29.04.2013 02:52:43
Цитата
evgmaz пишет:
а если 12345.6789 находится в TextBox, то Cells(1,1) =TextBox.value получится нормальное хорошее число
Правильно - "вмешивается" VBA. И вообще не пойму - зачем форматировать именно в TextBox? Что Вам даст там наличие пробела между разрядами? Форматируйте уже при присвоении значения ячейке. Не вижу вообще проблемы: как писал выше - cdbl нормально справляется. А вот менять точку на запятую можно и при вводе.
 
 
 
#23
29.04.2013 03:29:27
Цитата
Юрий М пишет:
1). И вообще не пойму - зачем форматировать именно в TextBox? Что Вам даст там наличие пробела между разрядами?
2). Форматируйте уже при присвоении значения ячейке. Не вижу вообще проблемы: как писал выше - cdbl нормально справляется. А вот менять точку на запятую можно и при вводе.

Ответы:
1). Ну это вопрос чисто эстетики при работе с Формой конечного пользователя
2). В ячейке все легко отформатируем, даже не задавал бы вопросов.
3). За Cdbl спасибо!
 
 
 
Страницы: 1
Читают тему
Наверх