Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
создание телефонного формата ячейки
 
#1
09.09.2010 15:35:00
Как создать один формат, чтобы телефоны, имеющие различное число знакомест, могли отображаться в ячейке правильно. т.е. числа, относящиеся к коду города не перебегали на место чисел номера телефона.  
Пример телефона с разным количеством знакомест: (056) 33-33-33 и (056) 333-33-33
 
 
 
#2
09.09.2010 15:38:17
А чем Вас не устраивает штатный формат ячейки "Номер телефона"?
 
 
 
#3
09.09.2010 15:49:14
annagreen, кроме как использовать два разных формата для шести и семизначных номеров никак. Ну может знатоки макросов что-нибудь подбросят.
 
 
 
#4
09.09.2010 15:50:00
код города состоит из 3 цифр, а номер телефона либо из 6 либо из 7. Если номер телефона состоит из 6 цифр, то последняя цифра из кода города переходит на первое место номера телефона.    
Например: (005)633-33-33 или (5)633-33-33
 
 
 
#5
09.09.2010 15:53:08
{quote}{login=}{date=09.09.2010 03:49}{thema=}{post}annagreen, кроме как использовать два разных формата для шести и семизначных номеров никак. Ну может знатоки макросов что-нибудь подбросят.{/post}{/quote}  
Спасибо за то что ответили на мой вопрос. Просто я уже использовала всю свою фантазию, чтобы создать такой формат и все никак))
 
 
 
#6
09.09.2010 16:04:54
Или вставьте в модуль листа этот код и попробуйте вводить в ячейку А1 номера.  
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Range("A1")) Is Nothing Then  
       If Len(Target) = 10 Then  
           Target.NumberFormat = "[<=9999999]###-####;(###) ###-####"
       ElseIf Len(Target) = 9 Then  
           Target.NumberFormat = "[<=9999999]###-###;(###) ###-###"
       End If  
   End If  
End Sub
 
 
 
#7
09.09.2010 16:07:31
Вот так - именно в том формате, что Вы просили.  
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Range("A1")) Is Nothing Then  
       If Len(Target) = 10 Then  
           Target.NumberFormat = "[<=9999999]###-##-##;(###) ###-##-##"
       ElseIf Len(Target) = 9 Then  
           Target.NumberFormat = "[<=9999999]##-##-##;(###) ##-##-##"
       End If  
   End If  
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх