Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поменять текст в ячейках на числа макросом.
 
#1
16.04.2013 18:00:03
Добрый день, форумчане!

Суть такова - из некой АСУ выгружаются данные, вроде как в эксель и формат xls.
Однако, несмотря на то, что формат ячейки стоит именно числовой, все цифры на самом деле текст, и сводная таблица их не считает. А если двойной клац по ячейке - то сразу эта ячейка числом становится.
Вопрос - как макросом подправить их, чтобы он превратились в числа?

Копи-спец. пасте не помогает, пробовал записать макрос - он вообще лепит формулу в ячейку с ее же значением.
 
 
 
#2
16.04.2013 18:05:27
Каждому столбцу - "текст по столбцам".
Записать в макрос.
Можно записать по одному столбцу, поставить в цикл по нужным столбцам.
 
 
 
#3
16.04.2013 18:10:47
Запишите в любую ячейку 1, скопируйте ее.
Выделите вашу таблицу, спецвставка - умножить
 
 
 
#4
16.04.2013 18:11:20
Вот например почти из-под "пера" рекордера:
Код
Sub tt()
    Dim cl As Range
    Application.ScreenUpdating = False
    For Each cl In ActiveSheet.UsedRange.Columns
    cl.TextToColumns Destination:=cl(1), DataType:=xlDelimited, _
                         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                         Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
                                                                                     :=Array(1, 1), TrailingMinusNumbers:=True
    Next
    Application.ScreenUpdating = True
End Sub

Если мешают нули - можно добавить в код смену формата.

Даже так крч:
Код
Sub tt()
    Dim cl As Range
    Application.ScreenUpdating = False
    For Each cl In ActiveSheet.UsedRange.Columns: cl.TextToColumns: Next
    Application.ScreenUpdating = True
End Sub
Изменено: Hugo - 16.04.2013 18:13:51
 
 
 
#5
16.04.2013 19:45:15
Можно так:
Код
activesheet.usedrange.formula=activesheet.usedrange.formula
В примере нет ни одного дробного числа. Если дробные числа выгружаются с десятичным разделителем запятая, в левой части надо написать .formulaLocal
 
 
 
#6
17.04.2013 09:32:19
Сколько ответов-то! Спасибо всем!!!

Писал вчера с работы, только вот прочитал. Применил последнее, просто и работает! Дробных у меня нет в принципе. А что означает вообще данное выражение? Правая и левая часть равенства совершенно ведь одинаковы!?
 
 
 
#7
17.04.2013 09:48:03
Код
Range("A2:V30").Value = Range("A2:V30").Value
 ;)
 
 
 
#8
17.04.2013 12:11:04
Цитата
CTR пишет:
А что означает вообще данное выражение?
Можно сказать, что в каждую ячейку повторно вводится формула, которая там уже есть. Как будто двойной клац по ячейке. То есть если ячейка имеет числовой или Общий формат, а формула является текстовым представлением числа, то в ячейке получается число.
 
 
 
#9
17.04.2013 14:14:34
А, вот теперь понятно!  :)  
Еще раз всем спасиб!
 
 
 
#10
17.04.2013 14:16:45
Попробуй нужные ячейки на 1 умножить, и будут тебе числа вместо текста)
 
 
 
#11
17.04.2013 15:01:25
Александр Симонов, Вы знакомы с автором?
 
 
 
Страницы: 1
Читают тему
Наверх