изменение формата после выгрузки из 1С

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

изменение формата после выгрузки из 1С (Формулы/Formulas)

zaak88

Дата: Понедельник, 31.10.2016, 08:22 | Сообщение № 1

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

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

Сообщений: 179

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

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

Excel 2013

Доброе утро, коллеги!

Прошу помочь с небольшой проблемой, при выгрузке из 1С необходимо изменить формат ячеек на числовой, можно формулой в соседнем столбце.

Спасибо!

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

Ответить

китин

Дата: Понедельник, 31.10.2016, 08:26 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 7034

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

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

Excel 2007;2010;2016

выделяем столбец А, Ctrl+H найти . заменит на , заменит все
[p.s.]
я использую вот такой код( честно не помню у кого стырил, спасибо автору))
[vba]

Код

Sub Макрос777()
Dim rn As Range
For Each rn In Intersect([b:e], ActiveSheet.UsedRange)
If rn Like "*#.#*" Then
rn = Val(rn) ', ".", ",")
rn.NumberFormat = "0.0000"
End If
Next
End Sub

[/vba]
в этой строчке
[vba]

Код

For Each rn In Intersect([b:e], ActiveSheet.UsedRange)

[/vba] в квадратных скобках меняем диапазон на нужный

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Понедельник, 31.10.2016, 08:30

Ответить

zaak88

Дата: Понедельник, 31.10.2016, 08:40 | Сообщение № 3

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

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

Сообщений: 179

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

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

Excel 2013

китин, спасибо, очень помогли!

а с помощью формулы не может быть решения?

Ответить

китин

Дата: Понедельник, 31.10.2016, 08:43 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 7034

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

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

Excel 2007;2010;2016

Цитата zaak88, 31.10.2016 в 08:40, в сообщении № 3

с помощью формулы не может быть решения?

может конечно

Код

=ПОДСТАВИТЬ(A1;".";",")

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Понедельник, 31.10.2016, 08:44

Ответить

Gustav

Дата: Понедельник, 31.10.2016, 08:48 | Сообщение № 5

Группа: Админы

Ранг: Участник клуба

Сообщений: 2843

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Код

=--ПОДСТАВИТЬ(A5;".";",")

МОИ: Ник, Tip box: 41001663842605

Ответить

zaak88

Дата: Понедельник, 31.10.2016, 08:51 | Сообщение № 6

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

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

Сообщений: 179

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

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

Excel 2013

китин, Gustav, спасибо! выручили!

Ответить

Nic70y

Дата: Понедельник, 31.10.2016, 08:54 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 9130

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

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

Excel 2010

Код

=--ПОДСТАВИТЬ(A5;".";ПСТР(1/2;2;1))

так надежнее, но больше вычислений

ЮMoney 41001841029809

Ответить

zaak88

Дата: Понедельник, 31.10.2016, 09:09 | Сообщение № 8

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

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

Сообщений: 179

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

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

Excel 2013

Nic70y, спасибо, действительно удобнее.

Ответить

_Boroda_

Дата: Понедельник, 31.10.2016, 09:50 | Сообщение № 9

Группа: Админы

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Из 1С часто выгружается еще и с пробелами между тысяч. Типа этого 22 555 250.000
Тогда вот так

Код

=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(A5;" ";);".";ПСТР(1/2;2;1))

Кстати, пробел может быть и не просто пробелом, а неразрывным пробелом. Чтобы не морочить себе голову, нужно просто скопировать его из "числа" 1С-ной выгрузки и вставить в формулу

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