Замена точек на запятые

[НеВа6464]

Спасибо, Виктор.
Тут уже и делать мне больше ничего практически не надо
Есть правда ещё вопрос. Вместо конкретного диапазона [ ] можно использовать Selection?
Типа Selection.formula?
Дело в том, что диапазон у меня плавающий. Программно определить его и выделить я смогу.

[ZlodeiDen]

Была такая же проблема когда сидел удалённо через ВПН.
Решил проблему заменой разделительной целой и дробной части в настройках windows.
В Win 7 это делается так:
ЛКМ по значку в панели где отображается время=> Изменение настроек даты и времени=> Изменить дату и время=>Изменение параметров календаря=>Вкладка числа=>Разделитель целой и дробной части меняем с .на , или на оборот.
Как это менять в других версиях Windows не знаю.
З.Ы надеюсь поможет!

[VictorM]

Программно определить его и выделить я смогу.

Вот определить, это хорошо, а выделять вовсе необязательно.
Как видите, я убрал из Вашего исходного макроса все Selection и все нормально работает.
Определяйте диапазон и от этого уже доводите макрос " до нужной кондиции"))
Просто не видя реальных данных трудно что-то еще сказать, приведенное выше - только пример.

[VictorM]

Решил проблему заменой разделительной целой и дробной части в настройках windows.

Да, это выход, но тогда возникают проблемы с при работе с другими файлами.
По крайней мере, у меня так было.

[kuklp]

Сообщение от НеВа6464

Вместо конкретного диапазона [ ] можно использовать Selection?

Можно:

Public Sub www()
    Dim a, i&: a = Selection.Value
    For i = 1 To UBound(a)
        a(i, 1) = CDbl(Replace(Replace(a(i, 1), "'", ""), ".", Mid(1 / 2, 2, 1)))
    Next
    Selection = a: Selection.NumberFormat = "0.00"
End Sub

И работает при любом системном разделителе.

[VictorM]

Можно:

Супер!!!

[kuklp]

Спасибо, Вить. Но чувствовал, что можно проще, без переменных и циклов:

Public Sub www()
    With Selection
    .Replace "'", "": .Replace ".", Mid(1 / 2, 2, 1)
    .TextToColumns: .NumberFormat = "0.00"
    End With
End Sub

[НеВа6464]

Большое спасибо

[НеВа6464]

А можно ещё вопрос?
Что означает "Mid(1 / 2, 2, 1)"?

[kuklp]

Сообщение от НеВа6464

А можно ещё вопрос?
Что означает "Mid(1 / 2, 2, 1)"?

Так мы определяем системный разделитель.