Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Преобразование текста в число в макросе, вне зависимости от настроек разделителей
 
#1
23.07.2017 20:49:37
Всем добрый день! Подскажите, пжста, как преобразовать в VBA текст в число, чтобы вне зависимости от разделителей, у пользователей точно получилось число. Обрабатываемые значения имеют вид - 54 174,00. У меня разделители для числа такие - 54174.00.  У других пользователей. 54174,00.   Как обойти этот момент? Чтобы точно у всех работало. Спасибо.
 
 
 
#2
23.07.2017 20:56:13
Цитата
matr0001 написал:
как преобразовать в VBA текст в число
Код
Val()
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
23.07.2017 20:59:44
Пробовала. Он выдает только символы до пробела. То есть в данном случае - 54.
 
 
 
#4
23.07.2017 21:29:15
Код
Sub StrToNum()
    With Selection
        .Replace " ", "", 2
        .Replace ".", ".", 2
        .Replace Chr(160), "", 2
    End With
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#5
23.07.2017 21:30:50
Удаляйте пробелы, приводите разделители целой и дробной части к одному виду.
 
 
 
#6
23.07.2017 21:31:12
Упс! ))
 
 
 
#7
24.07.2017 12:23:55
Цитата
kuklp написал:
Код ? 1234567Sub StrToNum()    With Selection        .Replace " ", "", 2        .Replace ".", ".", 2        .Replace Chr(160), "", 2    End WithEnd Sub
Спасибо! В принципе получилось. Но вот только все равно приходится заменять разделитель дробной части запятую на точку. У меня проходит. А вот если у другого пользователя будет наоборот, то у него не пройдет, видимо...
 
 
 
#8
24.07.2017 12:27:43
Подскажите, как именно обрабатываете? В цикле? Если да - то можно сделать функцию, которая будет каждое число преобразовывать в нужный формат в соответствии с локализацией.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#9
24.07.2017 12:33:25
Цитата
The_Prist написал:
Подскажите, как именно обрабатываете? В цикле? Если да - то можно сделать функцию, которая будет каждое число преобразовывать в нужный формат в соответствии с локализацией.
Нет, сделала просто замену всего диапазона

       Range("A1:A1000").Formula = "=DATE(RIGHT(B1,4),RIGHT(LEFT(B1,5),2),LEFT(B1,2))"
       Range("M1:M1000").Select
       With Selection
           .Replace " ", "", 2
           .Replace ",", ".", 2
           .Replace Chr(160), "", 2
       End With
       Range("P1:P1000").Select
       With Selection
           .Replace " ", "", 2
           .Replace ",", ".", 2
           .Replace Chr(160), "", 2
       End With

Но могу и в цикл вставить (он тоже есть), если есть вариант эффективнее:)
 
 
 
#10
24.07.2017 13:04:53
matr0001, оформляйте код тегами, кнопка <...> не панели редактирования сообщений. Ну и:
Код
Range("A1:A1000").Formula = "=DATE(RIGHT(B1,4),RIGHT(LEFT(B1,5),2),LEFT(B1,2))"
 with Range("M1:M1000,P1:P1000")
 .Replace " ", "", 2
 .Replace ",", ".", 2
 .Replace Chr(160), "", 2
 End With
Я сам - дурнее всякого примера! ...
 
 
 
#11
24.07.2017 13:20:35
Для пущей универсальности (дабы не заменять разделители):
Код
AppSep = Application.DecimalSeparator: RepSep = IIf(AppSep = ".", ",", ".")
With Range("M1:M1000,P1:P1000")
 .Replace " ", "", 2
 .Replace Chr(160), "", 2
 .Replace RepSep, AppSep, 2
 End With
 
 
 
#12
24.07.2017 13:26:09
Цитата
Влад написал:
.Replace RepSep, AppSep, 2
не надо! В ВБА ВСЕГДА разделитель - точка. Так что независимо от системного разделителя менять надо на точку.
Я сам - дурнее всякого примера! ...
 
 
 
#13
24.07.2017 13:44:12
Всем большое спасибо!
 
 
 
Страницы: 1
Читают тему
Наверх