Excel vba заменить запятую на

Question

Я хочу использовать этот код VBA в своем листе, чтобы заменить любые запятые в столбце D с полной остановкой:

ActiveSheet.Columns("D").Replace _
What:=",", Replacement:=".", _
SearchOrder:=xlByColumns, MatchCase:=True

У меня это работало, я уверен, на минуту, но потом это не так! Есть идеи???

Answer 1

Вы сказали в комментарии, что вы положили код в Worksheet_SelectionChange, Вместо этого поместите код в модуль, затем запустите его, когда захотите его использовать. Тогда это будет работать для любого листа.

Answer 2

Вы уже заменили все запятые, это не сработает снова.

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Columns("D").Replace What:=",", Replacement:=".", SearchOrder:=xlByColumns, MatchCase:=True

End Sub

Это работает так. Не добавляйте "_"