Замена делителя числа

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена делителя числа (Макросы/Sub)

Flin

Дата: Четверг, 22.12.2022, 06:32 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте. с помощью "Запись макроса" сделал кнопку по которой меняется делитель числа.
[vba]

Код

Sub Замена_делителя2()
    Range("Исходные[[     X     ]:[     Y     ]]").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub.

[/vba]
При применении этого макроса у числа убирается разделитель. (Пример было 416186.300 стало 416186300) ).
Где, что нужно поправить? И можно ли сделать чтоб макрос сам менял делитель к примеру если в ячейке Е1 значение #ЗНАЧ!?
Заранее благодарю.

К сообщению приложен файл: 1025637.xlsm (46.3 Kb)

Ответить

Pelena

Дата: Четверг, 22.12.2022, 08:45 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Можно без макроса прямо в формуле поменять в Е1

Код

=ПОДСТАВИТЬ(D4;".";",")-ПОДСТАВИТЬ(E4;".";",")

Если макросом, то так
[vba]

Код

Sub Замена_делителя2()
    Range("Исходные[[     X     ]:[     Y     ]]").Select
    Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                      ReplaceFormat:=False
End Sub

[/vba]
и формат с тремя знаками после запятой