Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена суммового формата и изменение формата ячейки (макрос) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена суммового формата и изменение формата ячейки (макрос) (Макросы/Sub)
Замена суммового формата и изменение формата ячейки (макрос)
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 - изначальный формат цифр.

Заранее Спасибо большое!
К сообщению приложен файл: Example_ver_2.0.xlsx (9.8 Kb)


Сообщение отредактировал 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]


Яндекс.Деньги 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]


Ну с НДС и мы чего-то ст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 изменил цифры не много, по ним формат не меняется.
У меня в качестве разделителя десятых используется "," если это важно.

Спасибо!
К сообщению приложен файл: 8470185.xlsx (9.8 Kb)
 
Ответить
СообщениеСпасибо, но не работает с цифрами до тысячи.
В колонке G изменил цифры не много, по ним формат не меняется.
У меня в качестве разделителя десятых используется "," если это важно.

Спасибо!

Автор - skremer
Дата добавления - 26.10.2016 в 16:54
skremer Дата: Среда, 26.10.2016, 16:57 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KuklP, в вашем варианте формат остается текстовым.
 
Ответить
СообщениеKuklP, в вашем варианте формат остается текстовым.

Автор - skremer
Дата добавления - 26.10.2016 в 16:57
KuklP Дата: Среда, 26.10.2016, 16:58 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Да ну!
К сообщению приложен файл: 0979979.gif (37.9 Kb)


Ну с НДС и мы чего-то ст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, вот какой у меня результат получается.
К сообщению приложен файл: 4446360.png (41.6 Kb)
 
Ответить
СообщениеKuklP, вот какой у меня результат получается.

Автор - skremer
Дата добавления - 26.10.2016 в 17:04
skremer Дата: Среда, 26.10.2016, 17:06 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
KuklP, все мой косяк.
Просите, кривые руки подводят как обычно.
Все работает, спасибо!
 
Ответить
СообщениеKuklP, все мой косяк.
Просите, кривые руки подводят как обычно.
Все работает, спасибо!

Автор - skremer
Дата добавления - 26.10.2016 в 17:06
KuklP Дата: Среда, 26.10.2016, 17:06 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
А теперь сравните свой макрос и мой. В чем отличие?


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеА теперь сравните свой макрос и мой. В чем отличие?

Автор - KuklP
Дата добавления - 26.10.2016 в 17:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена суммового формата и изменение формата ячейки (макрос) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!