Здравствуйте. с помощью "Запись макроса" сделал кнопку по которой меняется делитель числа. [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 значение #ЗНАЧ!? Заранее благодарю.
Здравствуйте. с помощью "Запись макроса" сделал кнопку по которой меняется делитель числа. [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 значение #ЗНАЧ!? Заранее благодарю.Flin
Здравствуйте. Можно без макроса прямо в формуле поменять в Е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] и формат с тремя знаками после запятой
Здравствуйте. Можно без макроса прямо в формуле поменять в Е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] и формат с тремя знаками после запятойPelena