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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос замены точки на запятую и формат в числовой - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос замены точки на запятую и формат в числовой (Макросы/Sub)
Макрос замены точки на запятую и формат в числовой
HoBU4OK Дата: Понедельник, 15.02.2016, 12:42 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 231
Репутация: 13 ±
Замечаний: 0% ±

Excel 2010
Добрый день! Помогите с макросом замены точки на запятую в столбцах B:E (Лист4) и изменении формата ячеек на числовой, с 4-мя знаками после запятой.
Рекордером при записи получается следующее...

[vba]
Код
Sub Макрос7()
'
' Макрос7 Макрос
'
' Сочетание клавиш: Ctrl+й
'
    Columns("B:E").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
[/vba]

А при повторном запуске макроса- точка меняется на запятую, формат ячеек остается текстовым


Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
СообщениеДобрый день! Помогите с макросом замены точки на запятую в столбцах B:E (Лист4) и изменении формата ячеек на числовой, с 4-мя знаками после запятой.
Рекордером при записи получается следующее...

[vba]
Код
Sub Макрос7()
'
' Макрос7 Макрос
'
' Сочетание клавиш: Ctrl+й
'
    Columns("B:E").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
[/vba]

А при повторном запуске макроса- точка меняется на запятую, формат ячеек остается текстовым

Автор - HoBU4OK
Дата добавления - 15.02.2016 в 12:42
Апострофф Дата: Понедельник, 15.02.2016, 13:08 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 26 ±
Замечаний: 0% ±

Excel 2003
Попробуйте -
[vba]
Код
Sub Макрос777()
Dim rn As Range
For Each rn In Intersect([b:e], ActiveSheet.UsedRange)
If rn Like "*#.#*" Then
  rn = Val(rn) ', ".", ",")
  rn.NumberFormat = "0.0000"
End If
Next
End Sub
[/vba]
 
Ответить
СообщениеПопробуйте -
[vba]
Код
Sub Макрос777()
Dim rn As Range
For Each rn In Intersect([b:e], ActiveSheet.UsedRange)
If rn Like "*#.#*" Then
  rn = Val(rn) ', ".", ",")
  rn.NumberFormat = "0.0000"
End If
Next
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 15.02.2016 в 13:08
HoBU4OK Дата: Понедельник, 15.02.2016, 13:48 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 231
Репутация: 13 ±
Замечаний: 0% ±

Excel 2010
Апострофф, спасибо, помогло!


Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
СообщениеАпострофф, спасибо, помогло!

Автор - HoBU4OK
Дата добавления - 15.02.2016 в 13:48
krosav4ig Дата: Понедельник, 15.02.2016, 16:54 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1336
Репутация: 533 ±
Замечаний: 0% ±

Excel 2007, 2013
HoBU4OK, [vba]
Код
    Selection.NumberFormat = "0.00"
    Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    'и на всякий случай
    Selection.Formula = Selection.Value
[/vba]


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Понедельник, 15.02.2016, 16:55
 
Ответить
СообщениеHoBU4OK, [vba]
Код
    Selection.NumberFormat = "0.00"
    Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    'и на всякий случай
    Selection.Formula = Selection.Value
[/vba]

Автор - krosav4ig
Дата добавления - 15.02.2016 в 16:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос замены точки на запятую и формат в числовой (Макросы/Sub)
Страница 1 из 11
Поиск:

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