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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос замены точки на запятую и формат в числовой (Макросы/Sub)

HoBU4OK

Дата: Понедельник, 15.02.2016, 12:42 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 309

Репутация: 14 ±

Замечаний: 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]

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

Я думал, ты остроглазый лев, а ты слепая собака :-)

Ответить

Апострофф

Дата: Понедельник, 15.02.2016, 13:08 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 448

Репутация: 124 ±

Замечаний: 0% ±

Excel 1997

Попробуйте -
[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]

Ответить

HoBU4OK

Дата: Понедельник, 15.02.2016, 13:48 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 309

Репутация: 14 ±

Замечаний: 0% ±

Excel 2010

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

Я думал, ты остроглазый лев, а ты слепая собака :-)

Ответить

krosav4ig

Дата: Понедельник, 15.02.2016, 16:54 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,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]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 15.02.2016, 16:55

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос замены точки на запятую и формат в числовой (Макросы/Sub)

Страница 1 из 1
1