Замена точки на запятую

[amadeus017]

Доброго времени суток, уважаемые форумчане!
Большая просьба поправить макрос, не могу понять где ошибка.
Суть в том, что, если в столбцах "I:K", знак " . " заменить вручную на " , " (точку на запятую), то в цифрах у которых после "точки" было к примеру шесть знаков, то получается верное значение (ячейка I36 = 786,016309). А если использовать макрос файла, то значение получается целое (ячейка I36 = 786 016 309)

Columns("I:K").Select
Range("I4").Activate
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

[IgorGO]

а так:

sub ReplDot2Comma
  dim a
  a = [i4:k999].value
  [i4:k999].value = a
end sub

[amadeus017]

IgorGO
Большое спасибо!
Заменил свою часть макроса, которую писал мастером на Ваш код, все работает...
Еще раз, большое спасибо!

[svsh2016]

доброго времени суток,попробуйте делать замену еще таким макросом
кнопка yyy

Sub yyy()
  Dim z, t$
  z = Range("I5:K" & Range("I" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("VBScript.RegExp"): .Pattern = "\."
    For i = 1 To UBound(z)
     For j = 1 To UBound(z, 2): t = z(i, j)
    If .test(t) Then t = .Replace(t, ",")
    Next j, i
    End With
    Range("I5").Resize(UBound(z), UBound(z, 2)).Value = z
End Sub

[IgorGO]

отличный макрос, есть только 3 замечания:
1. очевидно, что он более громоздкий
2. он существенно медленнее (предположу, что очень существенно)
3. упростите Ваш макрос вот до такой записи и все будет точно так же работать

Sub yyy()
  Dim z, t$
  z = Range("I5:K" & Range("I" & Rows.Count).End(xlUp).Row).Value
  Range("I5").Resize(UBound(z), UBound(z, 2)).Value = z
End Sub

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

когда в Екселе разделитель целой и дробной части запятая то запись 5.45 в ячейке - это для Ексель "5.45",
но, когда это 5.45 попадает в массив с необьявленным типом данных (читай с типом Variant) вот тут-то VBA точно видит "так это же пять целых сорок пять сотых!" и потом при возврате массива на лист Ексель добросовестно вместо точки ставит свой разделитель (запятую)

[amadeus017]

Еще раз спасибо за то, что не оставили тему без внимания! Варианты очень интересные и обязательно применю их в работу.

[svsh2016]

добрый день,добавлю,макрос в #2 замечательный,но имеется недостаток-это использование квадратных скобок,что замедляет скорость выполнения кода на 70%,посмотрите с.323 Джон Уокенбах,2014,"Microsoft Excel2013
Профессиональное программирование на VBA".

[IgorGO]

спасибо! теперь буду знать
и заодно будем считать, что я теперь знаком с книгой "Microsoft Excel2013 Профессиональное программирование на VBA", ну... не со всей книгой, а с фрагментом с 383 страницы - точно!

[Hugo121]

Хорошо что не замедляет выполнение всего кода... Или всего? Напугали...
Вообще я тоже читал что быстрее работает Range("x"), но быстрее писать [] (выполняется Evaluate). Да и фиг с ним