Макрос изменения формата данных в ячейке

Пользователь

Сообщений: 41 Регистрация: 28.07.2018

08.12.2019 21:23:24

Здравствуйте. Помогите пожалуйста доделать макрос изменения формата данных в ячейке в зависимости от количества цифр в ней. Т.е. если цифр 10, то формат вида +7 (###) ###-##-##, если цифр 5, то формат вида #-##-##. Спасибо.

Прикрепленные файлы

Книга1.xls (30.5 КБ)

Kuzmich

Пользователь

Сообщений: 8045 Регистрация: 21.12.2012

08.12.2019 21:50:38

Код

Sub Макрос1()
    For Each cell In Range("B2:B6")
      If Len(cell) = 5 Then
       cell.Offset(, 1) = cell
       cell.Offset(, 1).NumberFormat = "#-##-##"
      ElseIf Len(cell) = 10 Then
       cell.Offset(, 1) = cell
       cell.Offset(, 1).NumberFormat = "+7(###)###-##-##"
      End If
    Next
End Sub

Юрий М

Модератор

Сообщений: 61037 Регистрация: 14.09.2012

Контакты см. в профиле

08.12.2019 21:51:57

Код
If Len(ActiveCell) = 5 Then ActiveCell.NumberFormat = "#-##-##"

Бобровский Пользователь Сообщений: 41 Регистрация: 28.07.2018	#4 08.12.2019 22:07:32 Спасибо за ваши знания и оперативную помощь. Изменено: Бобровский - 08.12.2019 22:08:22

Михаил Витальевич С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#5 08.12.2019 22:19:15 А макрос обязательно? если такой формат использовать? [>=100000]+7(###) ###-##-##;[<100000]#-##-## Прикрепленные файлы формат телефонных №.xls (39.5 КБ)

Бобровский Пользователь Сообщений: 41 Регистрация: 28.07.2018	#6 08.12.2019 22:38:22 Михаил Витальевич С., Ваш вариант возможен, но увы, не с моими работниками. Цитата: "... ты нам сделай, что бы я тыкнула и всё работало ..."