[ Регистрация · Вход · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: irakitin2014  
Форум » Готовые решения » На базе Excel » Макрос замены точки на запятую
Макрос замены точки на запятую
irakitin2014Дата: Пятница, 16.02.2018, 09:06 | Сообщение # 1
Генерал-майор
Группа: Модераторы
Сообщений: 188
Репутация: 5
Статус: Offline
Макрос замены точки на запятую(меняем диапазон в макросе)
Неудобство этого макроса в том,что надо менять необходимый диапазон в теле макроса( но у меня он всегда один, поэтому я не парюсь tongue )
Очень полезен при обработке данных, выгруженных из 1С

Код
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



для спасибов ЯД 41001877306852
 
irakitin2014Дата: Пятница, 16.02.2018, 10:53 | Сообщение # 2
Генерал-майор
Группа: Модераторы
Сообщений: 188
Репутация: 5
Статус: Offline
тот же макрос, но без внесения изменений в тело макроса
Выделяем диапазон, запускаем макрос
Код
Sub TTT()
    Dim rn As Range
    Dim rr As Range
    Set rr = Intersect(Selection, ActiveSheet.UsedRange)
        For Each rn In Intersect(rr, ActiveSheet.UsedRange)
            If rn Like "*#.#*" Then
                rn = Val(rn)
                rn.NumberFormat = "0.0000"
            End If
        Next
End Sub



для спасибов ЯД 41001877306852


Сообщение отредактировал irakitin2014 - Пятница, 16.02.2018, 11:11
 
dsb75Дата: Пятница, 16.02.2018, 10:59 | Сообщение # 3
Генералиссимус
Группа: Администраторы
Сообщений: 130
Репутация: 2
Статус: Offline
А зачем там комментарий после val ?
 
irakitin2014Дата: Пятница, 16.02.2018, 11:11 | Сообщение # 4
Генерал-майор
Группа: Модераторы
Сообщений: 188
Репутация: 5
Статус: Offline
не стер


для спасибов ЯД 41001877306852
 
Форум » Готовые решения » На базе Excel » Макрос замены точки на запятую
  • Страница 1 из 1
  • 1
Поиск: