Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
формат номера сотового телефона в текст боксе
 
#1
18.07.2011 20:48:12
Добрый вечер помогите создать формат сотового телефона в текстбоксе с разделителем при вводе  
+7 777 510 51 86 так например (+7 - что бы отображалась в текстбоксе, начинаем вводить цифры с 777 и далее)    
 
Спасибо!!!
O Tempora, O Mores!!!
 
 
 
#2
18.07.2011 20:50:17
Форма.ТекстБокс.Value = "+7 "
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#3
18.07.2011 21:04:23
В самом зачаточном виде:  
Private Sub TextBox1_Change()  
TextBox1.Text = "+7 " & temp  
End Sub  
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
 temp = temp & Chr(KeyAscii)  
End Sub
 
 
 
#4
18.07.2011 21:05:30
В модуле надо объявить Public temp as String
 
 
 
#5
18.07.2011 21:20:28
Я бы делал на выход:  
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
   Me.TextBox1 = Format(Me.TextBox1, "+7 ### ### ## ##")  
End Sub
 
 
 
#6
18.07.2011 21:41:21
{quote}{login=Юрий М}{date=18.07.2011 09:20}{thema=}{post}Я бы делал на выход:  
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
   Me.TextBox1 = Format(Me.TextBox1, "+7 ### ### ## ##")  
End Sub{/post}{/quote}  
 
спасибо  за помощь, помнится в delphi ребята мне делали там +7 в текстбоксе всегда отражалась и ее не нужно было вводить  
как такое повторить в VBA
O Tempora, O Mores!!!
 
 
 
#7
18.07.2011 21:48:07
А вы мой совет пробовали? Только не забудьте на событие UserForm_Initialize присвоить Textbox.Value = "+7"
 
 
 
#8
18.07.2011 22:00:02
{quote}{login=VovaK}{date=18.07.2011 09:48}{thema=}{post}А вы мой совет пробовали? Только не забудьте на событие UserForm_Initialize присвоить Textbox.Value = "+7"{/post}{/quote}  
попробовал ваш вариант тоже, спасибо, но он не дает убрать введенные цифры ипрописывается намертво, приходится закрывать и потом открывать заново,
O Tempora, O Mores!!!
 
 
 
#9
18.07.2011 22:06:03
{quote}{login=www}{date=18.07.2011 10:00}{thema=Re: }{post}{quote}{login=VovaK}{date=18.07.2011 09:48}{thema=}{post}А вы мой совет пробовали? Только не забудьте на событие UserForm_Initialize присвоить Textbox.Value = "+7"{/post}{/quote}  
попробовал ваш вариант тоже, спасибо, но он не дает убрать введенные цифры ипрописывается намертво, приходится закрывать и потом открывать заново,{/post}{/quote}  
 
и еще один глюк в обоих случаях, при переходе на другой бокс добавляется цифра в бокс с номером телефона
O Tempora, O Mores!!!
 
 
 
#10
18.07.2011 22:18:07
{quote}{login=The_Prist}{date=18.07.2011 10:06}{thema=}{post}В модуле формы:  
Private Sub UserForm_Initialize()  
TextBox1.Text = "+7"  
End Sub{/post}{/quote}  
 
неа, не идет и введенные цифры не удалишь
O Tempora, O Mores!!!
 
 
 
#11
18.07.2011 22:42:52
{quote}{login=The_Prist}{date=18.07.2011 10:25}{thema=}{post}Куда не идет? И куда посылали, что не идет? И какие еще цифры Вы теперь удалить не можете? И почему их могу удалить я?{/post}{/quote}  
 
 
странно в отдельном файлен набросал работает, втом где пишу прогу нет )))))
O Tempora, O Mores!!!
 
 
 
#12
19.07.2011 06:03:46
Пример кода для такого поля можно посмотреть в этой программе:  
http://excelvba.ru/programmes/Entrant
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#13
19.07.2011 12:05:24
{quote}{login=EducatedFool}{date=19.07.2011 06:03}{thema=}{post}Пример кода для такого поля можно посмотреть в этой программе:  
http://excelvba.ru/programmes/Entrant{/post}{/quote}  
 
Простите меня за нескромный вопрос!  
Все хорошо в вашем прмере! вот только зайти у ВБА из вашей проги, сможет не каждый!?    
С ув. Муля!
 
 
 
#14
19.07.2011 12:48:55
> вот только зайти у ВБА из вашей проги, сможет не каждый!?    
 
Безусловно, это дано не каждому.  
А только тем, кто способен прочитать несколько предложений в описании программы.  
Подсказка для особо невнимательных: прочитайте последнее предложение - там указан пароль.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#15
19.07.2011 12:55:15
Муля, действительно, Вы читали статью? Там есть вот это: "(в т.ч. пароль на проект VBA) - 1 (единица)"
 
 
 
#16
19.07.2011 14:42:37
Вариант...
 
 
 
#17
19.07.2011 21:30:30
{quote}{login=VovaK}{date=19.07.2011 02:42}{thema=}{post}Вариант...{/post}{/quote}  
 
Всем огромное спасибо за помощь, примеры будем реализовывать на практике, тему можно закрывать
O Tempora, O Mores!!!
 
 
 
#18
19.07.2011 22:09:40
{quote}{login=Юрий М}{date=19.07.2011 12:55}{thema=}{post}Муля, действительно, Вы читали статью? Там есть вот это: "(в т.ч. пароль на проект VBA) - 1 (единица)"{/post}{/quote}  
 
Вы не поверите, но пароль единичку я видел.    
А вот к моему стыду, не знаю как зайти у ВБА находясь в самой програме  
С ув. Муля!
 
 
 
#19
19.07.2011 22:39:23
Муля, для того конкретного файла, проще всего отключить макросы!-:)
 
 
 
#20
20.07.2011 10:09:02
{quote}{login=RAN}{date=19.07.2011 10:39}{thema=}{post}Муля, для того конкретного файла, проще всего отключить макросы!-:){/post}{/quote}  
Спасибо Ran!    
Отеключил макросы и досмтуп открылся.  
C ув. Муля!
 
 
 
Страницы: 1
Читают тему
Наверх