Переформировать с цифр+12 на текстовый формат с замещением.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переформировать с цифр+12 на текстовый формат с замещением. (Макросы/Sub)

wwizard

Дата: Понедельник, 26.12.2016, 13:42 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 176

Репутация: 0 ±

Замечаний: 40% ±

Добрый день. Существует прайслист, где во втором столбце, время от времени существует код товара в виде: 4,62372E+12 . Насколько возможно при помощи макроса, переформатировать в столбце те ячейки где есть такой формат в текстовый, и привести в нормальный вид, ту информацию что там представлено а именно: 4,62372E+12 в 4623720446840

http://prntscr.com/dnziya - так это выглядит в прайсе. Пример приложил.
Спасибо.

К сообщению приложен файл: 6867870.xlsx (8.7 Kb)

Ответить

Karataev

Дата: Понедельник, 26.12.2016, 13:52 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Макрос обрабатывает столбец "B" со строки 2 и до последней.
[vba]

Код

Sub Изменить_числа()
    Dim arr(), lr As Long, i As Long
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    arr() = Range("B2:B" & lr).Value
    Columns("B").NumberFormat = "@"
    For i = 1 To UBound(arr)
        arr(i, 1) = CStr(arr(i, 1))
    Next
    Range("B2:B" & lr).Value = arr()
    Application.ScreenUpdating = True
End Sub

[/vba]

Ответить

_Boroda_

Дата: Понедельник, 26.12.2016, 13:53 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
r1_ = Range("B" & Rows.Count).End(xlUp).Row
Range("B2:B" & r1_).FormulaLocal = Range("B2:B" & r1_).FormulaLocal
End Sub

[/vba]

К сообщению приложен файл: 6867870_1.xlsm (13.6 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Страница 1 из 1
1