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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заменить точку на запятую (Макросы/Sub)
Заменить точку на запятую
ant6729 Дата: Четверг, 12.04.2018, 11:42 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Всем привет, не могу заменить цифру слева на цифру справа.
При замене (реплейшу точку на запятую) цифра увеличивается на 1000.
Раньше обрабатывал по принципу, если больше нормальной величины - то делить на 1000)
Но сейчас появилось время - может, есть какие - то решения, как это сделать, подскажите, пожалуйста.
К сообщению приложен файл: 6530314.xlsx (10.2 Kb)
 
Ответить
СообщениеВсем привет, не могу заменить цифру слева на цифру справа.
При замене (реплейшу точку на запятую) цифра увеличивается на 1000.
Раньше обрабатывал по принципу, если больше нормальной величины - то делить на 1000)
Но сейчас появилось время - может, есть какие - то решения, как это сделать, подскажите, пожалуйста.
Автор - ant6729
Дата добавления - 12.04.2018 в 11:42
китин Дата: Четверг, 12.04.2018, 11:53 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
не очень понял, но м.б. правильно?
Код
=--ПОДСТАВИТЬ(A1;".";",")

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениене очень понял, но м.б. правильно?
Код
=--ПОДСТАВИТЬ(A1;".";",")
Автор - китин
Дата добавления - 12.04.2018 в 11:53
and_evg Дата: Четверг, 12.04.2018, 11:53 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 482
Репутация: 84 ±
Замечаний: 0% ±

Excel 2007
ничего не понятно
Цитата ant6729, 12.04.2018 в 11:42, в сообщении № 1 ()
не могу заменить цифру слева на цифру справа

а как меняете? вместо точки пишете запятую?
Цитата ant6729, 12.04.2018 в 11:42, в сообщении № 1 ()
цифра увеличивается на 1000.

ну поменял, ничего не увеличилось.
 
Ответить
Сообщениеничего не понятно
Цитата ant6729, 12.04.2018 в 11:42, в сообщении № 1 ()
не могу заменить цифру слева на цифру справа

а как меняете? вместо точки пишете запятую?
Цитата ant6729, 12.04.2018 в 11:42, в сообщении № 1 ()
цифра увеличивается на 1000.

ну поменял, ничего не увеличилось.
Автор - and_evg
Дата добавления - 12.04.2018 в 11:53
sboy Дата: Четверг, 12.04.2018, 11:56 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Похоже реплэйс идет в макросе
Если прав, то меняйте точку на точку
Вот объяснение от Дмитрия Щербакова

Яндекс: 410016850021169
 
Ответить
СообщениеПохоже реплэйс идет в макросе
Если прав, то меняйте точку на точку
Вот объяснение от Дмитрия Щербакова
Автор - sboy
Дата добавления - 12.04.2018 в 11:56
SLAVICK Дата: Четверг, 12.04.2018, 11:59 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
[vba]
Код
Sub d()
    [a5] = CDbl(Trim(Replace([a1], ".", ",")))
End Sub
[/vba]

Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение[vba]
Код
Sub d()
    [a5] = CDbl(Trim(Replace([a1], ".", ",")))
End Sub
[/vba]
Автор - SLAVICK
Дата добавления - 12.04.2018 в 11:59
nilem Дата: Четверг, 12.04.2018, 12:16 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
или
[vba]
Код
Sub ttt()
With Intersect(ActiveSheet.UsedRange, Columns(1))
    .Value = Application.Clean(.Value)
End With
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеили
[vba]
Код
Sub ttt()
With Intersect(ActiveSheet.UsedRange, Columns(1))
    .Value = Application.Clean(.Value)
End With
End Sub
[/vba]
Автор - nilem
Дата добавления - 12.04.2018 в 12:16
ant6729 Дата: Четверг, 12.04.2018, 12:40 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Sboy
Никогда бы не догадался, что точку менять на точку...Это какой-то треш)
VBA - сюрпризный язык
Спасибо!
Спасибо Всем!!!
 
Ответить
СообщениеSboy
Никогда бы не догадался, что точку менять на точку...Это какой-то треш)
VBA - сюрпризный язык
Спасибо!
Спасибо Всем!!!
Автор - ant6729
Дата добавления - 12.04.2018 в 12:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заменить точку на запятую (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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