Страницы: 1
RSS
Макрос. Преобразование текста в чсило . замена разделительного знака .
 
Доброго вечера.  .
Нужен простой макрос. Который в выделенном диапазоне преобразует текст в число . поменяет разделительный знак с точки на запятую . удалит 0 в ячейках . чтобы они остались пустыми .  и присвоит диапазону  Число десятичных знаков "2" . и если возможно обрежет десятичные знаки которые  выше "2" .  
 
Цитата
Doneck117 написал: Нужен простой макрос.
Из Правил -

"2.7. Если вам нужен не совет по самостоятельному решению задачи, а чтобы все сделали за вас - добро пожаловать в ветку Работа. Там, скорее всего, найдутся специалисты, которые разберутся с вашей проблемой быстро, качественно и за разумную плату."
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Извиняюсь. я думал что у кого то уже такой есть макрос. при работе с ценами это первостепенное.  
 
Цитата
Doneck117 написал: Нужен простой макрос
Запишите нужные действия макрорекордером. В полученном коде замените конкретный диапазон на Selection
Изменено: Sanja - 13.12.2018 19:16:42
Согласие есть продукт при полном непротивлении сторон
 
Когда работают с ценами, считают деньги (числа).
Когда работают с ценниками, считывают текст.
А, оказывается, первостепенное - превратить текст с ценников в деньги.  :)
Код
Sub Макрос1()
    Selection.Replace ".", ".", 2
    Selection.NumberFormat = "0.00"
End Sub
 
Код
Sub Doneck117()
    Dim Cel As Range
    For Each Cel In Selection
        With Cel
            .NumberFormat = "#.00"
            If .Value = 0 Then
                .Value = Empty
            Else
                .Value = Round(Replace(.Value, ".", ","), 2)
            End If
        End With
    Next Cel
End Sub
 
RAN
Михаил С.
Спасибо . то что нужно .  
Изменено: Doneck117 - 13.12.2018 20:22:01
 
Цитата
RAN написал: превратить текст с ценников в деньги.
Я в очередь за таки макросом. Оплата - с первых 10 ценников. А пока что пойду ценники собирать. :)
Страницы: 1
Наверх