skremer
Дата: Среда, 26.10.2016, 16:29 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Добрый день. Вопрос следующий есть определенная база данных, которая вставляется в эксель в текстовом формате, необходимо заменить суммовой формат на подходящий и сделать отображение чисел не в текстовом формате. Использовал самой простой (на мой взгляд способ) замены знаков, но в таком случае у меня летит формат. [vba]Код
Sub формат_0,00() Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
[/vba] В примере: в колонке С - результат работы макроса; в колонке D - корректный результат, который нужен на выходе; в колонке E - изначальный формат цифр. Заранее Спасибо большое!
Добрый день. Вопрос следующий есть определенная база данных, которая вставляется в эксель в текстовом формате, необходимо заменить суммовой формат на подходящий и сделать отображение чисел не в текстовом формате. Использовал самой простой (на мой взгляд способ) замены знаков, но в таком случае у меня летит формат. [vba]Код
Sub формат_0,00() Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
[/vba] В примере: в колонке С - результат работы макроса; в колонке D - корректный результат, который нужен на выходе; в колонке E - изначальный формат цифр. Заранее Спасибо большое! skremer
Сообщение отредактировал Manyasha - Среда, 26.10.2016, 17:10
Ответить
Сообщение Добрый день. Вопрос следующий есть определенная база данных, которая вставляется в эксель в текстовом формате, необходимо заменить суммовой формат на подходящий и сделать отображение чисел не в текстовом формате. Использовал самой простой (на мой взгляд способ) замены знаков, но в таком случае у меня летит формат. [vba]Код
Sub формат_0,00() Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
[/vba] В примере: в колонке С - результат работы макроса; в колонке D - корректный результат, который нужен на выходе; в колонке E - изначальный формат цифр. Заранее Спасибо большое! Автор - skremer Дата добавления - 26.10.2016 в 16:29
nilem
Дата: Среда, 26.10.2016, 16:49 |
Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация:
563
±
Замечаний:
0% ±
Excel 2013, 2016
но в таком случае у меня летит формат.
можно явно его установить [vba]Код
Sub формат_00() With Selection .Replace ",", "" .NumberFormat = "#,##0.00" End With End Sub
[/vba]
но в таком случае у меня летит формат.
можно явно его установить [vba]Код
Sub формат_00() With Selection .Replace ",", "" .NumberFormat = "#,##0.00" End With End Sub
[/vba]nilem
Яндекс.Деньги 4100159601573
Ответить
Сообщение но в таком случае у меня летит формат.
можно явно его установить [vba]Код
Sub формат_00() With Selection .Replace ",", "" .NumberFormat = "#,##0.00" End With End Sub
[/vba]Автор - nilem Дата добавления - 26.10.2016 в 16:49
KuklP
Дата: Среда, 26.10.2016, 16:50 |
Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
[vba]Код
Sub nFormat() With Selection .Replace ",", "", xlPart .Replace ".", ".", xlPart .NumberFormat = "0.00" End With End Sub
[/vba]
[vba]Код
Sub nFormat() With Selection .Replace ",", "", xlPart .Replace ".", ".", xlPart .NumberFormat = "0.00" End With End Sub
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение [vba]Код
Sub nFormat() With Selection .Replace ",", "", xlPart .Replace ".", ".", xlPart .NumberFormat = "0.00" End With End Sub
[/vba] Автор - KuklP Дата добавления - 26.10.2016 в 16:50
skremer
Дата: Среда, 26.10.2016, 16:54 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Спасибо, но не работает с цифрами до тысячи. В колонке G изменил цифры не много, по ним формат не меняется. У меня в качестве разделителя десятых используется "," если это важно. Спасибо!
Спасибо, но не работает с цифрами до тысячи. В колонке G изменил цифры не много, по ним формат не меняется. У меня в качестве разделителя десятых используется "," если это важно. Спасибо! skremer
Ответить
Сообщение Спасибо, но не работает с цифрами до тысячи. В колонке G изменил цифры не много, по ним формат не меняется. У меня в качестве разделителя десятых используется "," если это важно. Спасибо! Автор - skremer Дата добавления - 26.10.2016 в 16:54
skremer
Дата: Среда, 26.10.2016, 16:57 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
KuklP, в вашем варианте формат остается текстовым.
KuklP, в вашем варианте формат остается текстовым. skremer
Ответить
Сообщение KuklP, в вашем варианте формат остается текстовым. Автор - skremer Дата добавления - 26.10.2016 в 16:57
KuklP
Дата: Среда, 26.10.2016, 16:58 |
Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Да ну!
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Да ну! Автор - KuklP Дата добавления - 26.10.2016 в 16:58
skremer
Дата: Среда, 26.10.2016, 17:04 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
KuklP, вот какой у меня результат получается.
KuklP, вот какой у меня результат получается. skremer
Ответить
Сообщение KuklP, вот какой у меня результат получается. Автор - skremer Дата добавления - 26.10.2016 в 17:04
skremer
Дата: Среда, 26.10.2016, 17:06 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
KuklP, все мой косяк. Просите, кривые руки подводят как обычно. Все работает, спасибо!
KuklP, все мой косяк. Просите, кривые руки подводят как обычно. Все работает, спасибо! skremer
Ответить
Сообщение KuklP, все мой косяк. Просите, кривые руки подводят как обычно. Все работает, спасибо! Автор - skremer Дата добавления - 26.10.2016 в 17:06
KuklP
Дата: Среда, 26.10.2016, 17:06 |
Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
А теперь сравните свой макрос и мой. В чем отличие?
А теперь сравните свой макрос и мой. В чем отличие? KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение А теперь сравните свой макрос и мой. В чем отличие? Автор - KuklP Дата добавления - 26.10.2016 в 17:06