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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заменить точку на запятую (Макросы/Sub)
Заменить точку на запятую
ant6729 Дата: Четверг, 12.04.2018, 11:42 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 469
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Всем привет, не могу заменить цифру слева на цифру справа.
При замене (реплейшу точку на запятую) цифра увеличивается на 1000.
Раньше обрабатывал по принципу, если больше нормальной величины - то делить на 1000)
Но сейчас появилось время - может, есть какие - то решения, как это сделать, подскажите, пожалуйста.
К сообщению приложен файл: 6530314.xlsx(10.2 Kb)
 
Ответить
СообщениеВсем привет, не могу заменить цифру слева на цифру справа.
При замене (реплейшу точку на запятую) цифра увеличивается на 1000.
Раньше обрабатывал по принципу, если больше нормальной величины - то делить на 1000)
Но сейчас появилось время - может, есть какие - то решения, как это сделать, подскажите, пожалуйста.

Автор - ant6729
Дата добавления - 12.04.2018 в 11:42
китин Дата: Четверг, 12.04.2018, 11:53 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4930
Репутация: 787 ±
Замечаний: 0% ±

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


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

Автор - китин
Дата добавления - 12.04.2018 в 11:53
and_evg Дата: Четверг, 12.04.2018, 11:53 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация: 53 ±
Замечаний: 0% ±

Excel 2007
ничего не понятно
не могу заменить цифру слева на цифру справа

а как меняете? вместо точки пишете запятую?
цифра увеличивается на 1000.

ну поменял, ничего не увеличилось.
 
Ответить
Сообщениеничего не понятно
не могу заменить цифру слева на цифру справа

а как меняете? вместо точки пишете запятую?
цифра увеличивается на 1000.

ну поменял, ничего не увеличилось.

Автор - and_evg
Дата добавления - 12.04.2018 в 11:53
sboy Дата: Четверг, 12.04.2018, 11:56 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1944
Репутация: 564 ±
Замечаний: 0% ±

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

Автор - sboy
Дата добавления - 12.04.2018 в 11:56
SLAVICK Дата: Четверг, 12.04.2018, 11:59 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2246
Репутация: 745 ±
Замечаний: 0% ±

2007,2010,2013,2016
[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
Группа: Авторы
Ранг: Старожил
Сообщений: 1468
Репутация: 518 ±
Замечаний: 0% ±

Excel 2013
или
[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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 469
Репутация: -6 ±
Замечаний: 60% ±

Excel 2010
Sboy
Никогда бы не догадался, что точку менять на точку...Это какой-то треш)
VBA - сюрпризный язык
Спасибо!
Спасибо Всем!!!
 
Ответить
СообщениеSboy
Никогда бы не догадался, что точку менять на точку...Это какой-то треш)
VBA - сюрпризный язык
Спасибо!
Спасибо Всем!!!

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

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