Как в эксель поставить тире между цифрами
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Как в эксель поставить тире между цифрами
Функция для обработки номера
и пример использования.
А Вы потом примените ,как надо по обработке ячеек
Public Function Telefon(lin As String) As String Dim i As Integer lin = Replace(lin "-", "") lin = Replace(lin, "(", "") lin= Replace(lin, ")", "") lin= Replace(lin, ")", "") lin= Replace(lin, Space(1), "") lin = Replace(lin, Space(1), "") i = Len(linnn) If i < 10 Then MsgBox ("Не правильный номер") Exit Function End If lin = Mid(lin, i - 9, 10) Telefon = "(" & Mid(lin, 1, 3) & ")" & Space(1) & Mid(linnn, 4, 3) & "-" & Mid(lin, 7, 2) & "-" & Mid(lin, 9, 2) End Function Private Sub CommandButton1_Click() Dim nomer As String nomer = Telefon(" 8 (067) 2465786") MsgBox (nomer) End SubАнализ,обработка данных Недорого
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
Если да, можете попробовать такую замысловатую формулу (число в ячейке A1):
="(067) "&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+3;3)&"-"&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+6;2)&"-"&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");ПОИСК("067";ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";"");" ";"");"-";"");1)+8;2)Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек
Быстрый проверенный хостинг.
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
Здравствуйте ALEKS2008.
добавьте к проекту книги модуль и разместите в нем подобный код
Function toTelNumber(nmb) As String nmb = nmb.Text nmb = Replace(nmb, " ", "") nmb = Replace(nmb, "(", "") nmb = Replace(nmb, ")", "") nmb = Replace(nmb, "-", "") If Len(nmb) = 10 Then nmb = 8 & nmb toTelNumber = Format(nmb, "0(000)000-00-00") End Functionи тогда формула =toTelNumber(A6) отобразит номер ячейкb A6 в заданном формате.
Удачи Вам.
Евгений.
| Teslenko_EA |
| Посмотреть профиль |
| Найти ещё сообщения от Teslenko_EA |
Регистрация: 02.05.2009
Сообщений: 3,907
motorway
Это в том случае,если один оператор,а если нет,утвердительного ответа не было.На Киевстаре кроме 067 ёще 097,098
Анализ,обработка данных Недорого
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
ну в принципе переделывается легко - заменой соотв. символов. Можно и макрос написать
Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек
Быстрый проверенный хостинг.
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
или такой еще вариант:
1.удаляем в столбце с телефонами открывающиеся, закрывающиеся скобки и тире с помощью Ctrl+H (найти и заменить)
2. правая кнопка мыши по столбцу / формат ячеек / (все форматы) / в строку "тип" пишем это: #(###) ###-##-## / жмем ОК
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
Форумчанин
Регистрация: 26.11.2006
Сообщений: 584
Без VBA см.вложение
| Телефоны.rar (4.0 Кб, 25 просмотров) |
Пользователь
Регистрация: 06.08.2009
Сообщений: 33
| Страница 1 из 3 | 1 | 2 | 3 | Следующая > |
| Похожие темы | ||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Отступ между цифрами в консоле | Golovastik | Общие вопросы C/C++ | 4 | 15.07.2009 23:24 |
| Почему двоеточие и тире отображается выше обычного? | Сергей Орлов | Microsoft Office Word | 1 | 10.07.2009 00:53 |
| Как в HTML в form проставить два E-mail | чебургатор | HTML и CSS | 1 | 27.05.2009 20:33 |
| Столбцы озаглавлены цифрами. как исправить? | zoom | Microsoft Office Excel | 2 | 06.10.2007 18:13 |
| Где надо объявить и описать вводимые данные, чтобы расчитать с помощью них формулы | Соня | Помощь студентам | 1 | 31.05.2007 07:07 |
покупка
Как быстро добавить тире к нескольким телефонным номерам в Excel?
Если на вашем листе есть несколько телефонных номеров, и теперь вы хотите добавить тире к номерам телефонов, чтобы вы могли видеть их четко и интуитивно, как показано на следующем снимке экрана. Как в Excel добавить тире сразу к нескольким телефонным номерам?
Добавляйте тире к телефонным номерам с помощью формул
Добавляйте тире к телефонным номерам с помощью функции форматирования ячеек
Добавьте тире к номерам телефонов с помощью Добавить текст Kutools for Excel
Добавляйте тире к телефонным номерам с помощью формул
В Excel вы можете использовать следующие простые формулы для добавления тире к номерам телефонов, выполнив следующие действия:
1. В пустую ячейку, в которую помимо номеров телефонов ввести эту формулу: = REPLACE (REPLACE (A2,4,0; «-»); 8,0; «-») , см. снимок экрана:
2. Затем перетащите маркер заполнения в диапазон, в котором вы хотите применить эту формулу, и тире были вставлены в номера телефонов.
Ноты:
1. Кроме приведенной выше формулы, вам может помочь еще одна формула: = ТЕКСТ (A2; «. - . - . ») , Вы можете использовать любой из них.
2. В приведенных выше формулах A2 указывает ячейку, содержащую номер телефона, для которого нужно добавить тире. Вы можете изменить эти аргументы по своему усмотрению.
Добавить тот же текст в определенное место каждой ячейки в Excel
Добавляйте тире к телефонным номерам с помощью функции форматирования ячеек
Функция форматирования ячеек в Excel также может помочь вам справиться с этой задачей. Пожалуйста, сделайте следующее:
1. Выберите номера телефонов, для которых вы хотите добавить тире.
2. Щелкните правой кнопкой мыши, чтобы выбрать Формат ячеек из контекстного меню см. снимок экрана:
3. Тогда в Формат ячеек диалоговое окно, нажмите На заказ вариант из Категории панель под Число вкладка, а затем введите это ### - ### - #### формат в Тип текстовое поле, см. снимок экрана:
4, Затем нажмите OK, в списке выбранных телефонных номеров были вставлены тире.
Добавьте тире к номерам телефонов с помощью Добавить текст Kutools for Excel
На самом деле, если вы любите попробовать что-то новое, вы можете попробовать Kutools для ExcelАвтора Добавить текст утилита, она может помочь вам добавить текст в любую часть ячейки по мере необходимости.
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Выберите числа, к которым вы хотите добавить тире, и нажмите Кутулс > Текст > Добавить текст. Смотрите скриншот:
2. В появившемся диалоговом окне введите – в Текст коробка и отметьте Указывать вариант, затем введите 3,6 в текстовое поле ниже, вы можете увидеть результат добавления на панели предварительного просмотра.
Наконечник:
(1). Здесь я добавляю тире после третьего и шестого символов строки, вы можете изменить его по своему усмотрению.
(2). Убедитесь, что снимите флажок Пропускать нетекстовые ячейки опцию.
3. Нажмите Применить, и к каждой ячейке добавлено первое тире.
Работы С Нами Добавить текст утилиту, вы можете быстро добавить один и тот же текст в одном месте в несколько ячеек.
Щелкните здесь, чтобы узнать больше о добавлении текста.
Добавить текст - добавить тире к номеру телефона
Возможно, вас это заинтересует:
покупка
Как правило, мы используем пробел для разделения слов в Excel, но теперь я хочу добавить символы дефиса между словами вместо пробелов, как показано ниже. Как быстро с этим справиться, не удаляя и не добавляя по одному вручную?
Добавить дефис между словами по тексту в столбец и формулу
Добавить дефис между словами с помощью поиска и замены
Добавить дефис между словами Kutools for Excel
Добавить дефис между словами по тексту в столбец и формулу
Функция «Текст в столбец» может разделять слова на столбцы на основе пробела, а затем вы можете использовать формулу, чтобы снова объединить их с дефисом.
1. Выберите список данных, в который вы хотите добавить дефис, и нажмите Данные > Текст в столбцы. Смотрите скриншот:
2. На первом этапе Преобразование текста в столбцы волшебник, проверьте разграниченный и нажмите Следующая> в шаг 2 мастера, и проверьте Space вариант под Разделители раздел. Смотрите скриншот:
3. Нажмите Следующая> пойти последний шаг мастера, выберите ячейку для размещения разделенных данных Направление текстовое окно. Смотрите скриншот:
4. Нажмите Завершить. Теперь список данных разделен на столбцы, выберите пустую ячейку рядом с разделенными данными и введите эту формулу. = C1 & "-" & D1 (C1 и D1 - это разделенные данные), а затем перетащите дескриптор автозаполнения вниз на ячейку, необходимую для применения этой формулы. Смотрите скриншот:
Добавить дефис между словами с помощью поиска и замены
Фактически, функция «Найти и заменить» также может быстро заменить пробелы дефисом.
1. Выберите данные, к которым вы хотите добавить символы дефиса, и нажмите Ctrl + H клавиши одновременно, чтобы открыть Найти и заменить Диалог.
2. в Найти и заменить диалога под Замените вкладка, введите пространство клавишей пробела к Найти то, что текстовое поле и введите дефис символ к Заменить текстовое окно. Смотрите скриншот:
3. Нажмите Заменить Alл. Появится диалоговое окно с напоминанием о том, сколько ячеек было успешно заменено, нажмите OK чтобы закрыть это. Пока что все пробелы в выделенном фрагменте заменены дефисом. Смотрите скриншот:
4. Закрой Найти и заменить Диалог.
Добавить дефис между словами Kutools for Excel
Если в некоторых случаях слова разделять нечем, как быстро добавить дефис между словами?
Работы С Нами Kutools for Excel, вы можете использовать его Добавить текст чтобы добавить символ дефиса перед каждым заглавным символом, а затем применить Удалить по позиции убрать первый дефис.
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Выберите данные, к которым нужно добавить дефис, и нажмите Кутулс > Текст > Добавить текст. Смотрите скриншот:
2. в Добавить текст диалог, введите – в Текст поле, а затем установите флажок Только добавить к и выберите Перед заглавными буквами из раскрывающегося списка. Смотрите скриншот:
3. Нажмите Ok, и перед каждым символом верхнего регистра был добавлен символ дефиса, и нажмите Кутулс > Текст > Удалить по позиции. Смотрите скриншот:
4. в Удалить по позиции диалог, введите 1 в Номера текстовое поле и отметьте Слева под Позиция раздел. Смотрите скриншот:
5. Нажмите Ok, теперь дефис ставится только между словами.