Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос ошибочно умножает число на 1000
 
#1
22.04.2019 18:23:17
Добрый день!, при использовании макроса, если попадаются числа вида 1500.252, обрабатывает такие числа не верно, вместо прибавления процента, преобразует число в 1500252
какую нужно добавить строку в макрос что бы она преобразовала числа в 1500,25 или 1500.25
 
 
 
#2
22.04.2019 18:41:02
Куда/где эти числа попадаются? Файл-пример в студию
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
22.04.2019 18:58:40
Пример
 
 
 
#4
22.04.2019 18:59:59
А где этот 'неправильный' макрос? И покажите в файле Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
22.04.2019 19:31:06
Два макроса, оба не обрабатывают корректно числа с тремя знаками после точки
Изменено: nicex - 22.04.2019 19:48:26
 
 
 
#6
22.04.2019 19:52:59
Текст, он только похож на число, но не число.
Код
Sub a()
For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
        Cells(i, 6) = Val(Cells(i, 4))
        If Val(Cells(i, 4)) >= 100 And Val(Cells(i, 4)) <= 5999.99 Then Cells(i, 6) = Val(Cells(i, 4)) * 1.5
    Next
End Sub
 
 
 
#7
22.04.2019 20:57:25
RAN, Спасибо!, а во втором макросе (b) как код изменить не подскажете
 
 
 
#8
23.04.2019 01:05:28
В этом случае этот код:
Код
    .Replace What:=".", Replacement:=","
работать не будет (может не работать), попробуйте использовать этот код:
Код
    Dim stlb As Object
    For Each stlb In Columns("D:E")
        stlb.TextToColumns Destination:=stlb.Cells(1), DataType:=xlDelimited, _
        FieldInfo:=Array(1, 1), DecimalSeparator:=".", TrailingMinusNumbers:=True
    Next
 
 
 
#9
23.04.2019 01:42:25
ocet p, Спасибо!
 
 
 
#10
23.04.2019 11:11:11
В подобных случаях можно и таким способом:
Код
Sub test()
  With ActiveSheet.UsedRange
    .Value = .Value
  End With
End Sub
Владимир
 
 
 
Страницы: 1
Наверх