Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена запятой на точку - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена запятой на точку (Формулы/Formulas)
Замена запятой на точку
Silver Дата: Пятница, 29.01.2016, 07:59 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем привет.
необходим макрос замены запятой на точку.

Например дан такой текст

20,4
20,04
17,3
16,05
15,12

Необходимо что бы заменилась запятая на точку и получилось вот так

20.4
20.04
17.3
16.05
15.12

Простым поиск/замена получается вот такая картина

20.апр
20.апр
17.мар
16.май
15.дек

Нужно, чтоб была точка и то же самое количество знаков (как в примере и 20.4 и 20.04) и не важно какой это будет формат
 
Ответить
СообщениеВсем привет.
необходим макрос замены запятой на точку.

Например дан такой текст

20,4
20,04
17,3
16,05
15,12

Необходимо что бы заменилась запятая на точку и получилось вот так

20.4
20.04
17.3
16.05
15.12

Простым поиск/замена получается вот такая картина

20.апр
20.апр
17.мар
16.май
15.дек

Нужно, чтоб была точка и то же самое количество знаков (как в примере и 20.4 и 20.04) и не важно какой это будет формат

Автор - Silver
Дата добавления - 29.01.2016 в 07:59
VIDEO56 Дата: Пятница, 29.01.2016, 08:06 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 262
Репутация: 23 ±
Замечаний: 0% ±

Excel 2010
Опа не правильный ответ!
К сообщению приложен файл: 4030377.jpg(45Kb)


Всем удачного дня!

Сообщение отредактировал VIDEO56 - Пятница, 29.01.2016, 08:11
 
Ответить
СообщениеОпа не правильный ответ!

Автор - VIDEO56
Дата добавления - 29.01.2016 в 08:06
Silver Дата: Пятница, 29.01.2016, 08:16 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
VIDEO56,
Да, я же говорю, что поиск/замена не дает результата, тк не нужен формат даты, нужно просто точка )))
 
Ответить
СообщениеVIDEO56,
Да, я же говорю, что поиск/замена не дает результата, тк не нужен формат даты, нужно просто точка )))

Автор - Silver
Дата добавления - 29.01.2016 в 08:16
VIDEO56 Дата: Пятница, 29.01.2016, 08:30 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 262
Репутация: 23 ±
Замечаний: 0% ±

Excel 2010
Код
=ПОДСТАВИТЬ(D18;",";".";1)

Попробуйте так
Вроде работает!


Всем удачного дня!

Сообщение отредактировал VIDEO56 - Пятница, 29.01.2016, 08:31
 
Ответить
Сообщение
Код
=ПОДСТАВИТЬ(D18;",";".";1)

Попробуйте так
Вроде работает!

Автор - VIDEO56
Дата добавления - 29.01.2016 в 08:30
китин Дата: Пятница, 29.01.2016, 08:32 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3696
Репутация: 574 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Код
=ПОДСТАВИТЬ(A1;",";".")


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
Код
=ПОДСТАВИТЬ(A1;",";".")

Автор - китин
Дата добавления - 29.01.2016 в 08:32
Silver Дата: Пятница, 29.01.2016, 08:41 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
китин, VIDEO56,

Работает!

Но мне нужно несколько тысяч цифр переколопатить.

Скопировать формулу в соседнюю ячейку, а потом заменить новыми данными?
Или есть проще выход?
 
Ответить
Сообщениекитин, VIDEO56,

Работает!

Но мне нужно несколько тысяч цифр переколопатить.

Скопировать формулу в соседнюю ячейку, а потом заменить новыми данными?
Или есть проще выход?

Автор - Silver
Дата добавления - 29.01.2016 в 08:41
VIDEO56 Дата: Пятница, 29.01.2016, 08:47 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 262
Репутация: 23 ±
Замечаний: 0% ±

Excel 2010
Потяните просто формулу на нужный диапазон. или скиньте пример файла


Всем удачного дня!
 
Ответить
СообщениеПотяните просто формулу на нужный диапазон. или скиньте пример файла

Автор - VIDEO56
Дата добавления - 29.01.2016 в 08:47
Silver Дата: Пятница, 29.01.2016, 08:50 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
VIDEO56,

просто нужно было в ту же самую ячейку данные записать.

Но все-равно огромное вам спасибо!
:D :D :D
 
Ответить
СообщениеVIDEO56,

просто нужно было в ту же самую ячейку данные записать.

Но все-равно огромное вам спасибо!
:D :D :D

Автор - Silver
Дата добавления - 29.01.2016 в 08:50
VIDEO56 Дата: Пятница, 29.01.2016, 08:53 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 262
Репутация: 23 ±
Замечаний: 0% ±

Excel 2010
Удачного дня!


Всем удачного дня!
 
Ответить
СообщениеУдачного дня!

Автор - VIDEO56
Дата добавления - 29.01.2016 в 08:53
китин Дата: Пятница, 29.01.2016, 09:44 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3696
Репутация: 574 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
просто нужно было в ту же самую ячейку данные записать.

ну дык в соседней ячейке заменить зпт на тчк.потом скопировать и спецвставкой вставить куда надо


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
просто нужно было в ту же самую ячейку данные записать.

ну дык в соседней ячейке заменить зпт на тчк.потом скопировать и спецвставкой вставить куда надо

Автор - китин
Дата добавления - 29.01.2016 в 09:44
sv2014 Дата: Пятница, 29.01.2016, 16:21 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
Silver, попробуйте функцию yyy в столбце D

[vba]
Код
Function yyy(t$)
With CreateObject("VBScript.RegExp"): .Pattern = ","
        If .test(t) Then yyy = .Replace(t, ".")
    End With
End Function
[/vba]
К сообщению приложен файл: example_29_01_2.xls(34Kb)
 
Ответить
СообщениеSilver, попробуйте функцию yyy в столбце D

[vba]
Код
Function yyy(t$)
With CreateObject("VBScript.RegExp"): .Pattern = ","
        If .test(t) Then yyy = .Replace(t, ".")
    End With
End Function
[/vba]

Автор - sv2014
Дата добавления - 29.01.2016 в 16:21
sv2014 Дата: Пятница, 29.01.2016, 16:41 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
Silver, добавлю,макрос,заменяющий данные в столбце A на результат в столбце A

[vba]
Код
Sub example()
   Dim i&, x
   x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
     With CreateObject("vbscript.regexp"): .Pattern = ","
       For i = 1 To UBound(x)
        If .test(x(i, 1)) Then x(i, 1) = .Replace(x(i, 1), ".")
       Next
    End With
  Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x
End Sub
[/vba]
К сообщению приложен файл: 9543564.xls(40Kb)
 
Ответить
СообщениеSilver, добавлю,макрос,заменяющий данные в столбце A на результат в столбце A

[vba]
Код
Sub example()
   Dim i&, x
   x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
     With CreateObject("vbscript.regexp"): .Pattern = ","
       For i = 1 To UBound(x)
        If .test(x(i, 1)) Then x(i, 1) = .Replace(x(i, 1), ".")
       Next
    End With
  Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x
End Sub
[/vba]

Автор - sv2014
Дата добавления - 29.01.2016 в 16:41
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена запятой на точку (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!