изменение формата после выгрузки из 1С
zaak88
Дата: Понедельник, 31.10.2016, 08:22 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация:
1
±
Замечаний:
0% ±
Excel 2013
Доброе утро, коллеги! Прошу помочь с небольшой проблемой, при выгрузке из 1С необходимо изменить формат ячеек на числовой, можно формулой в соседнем столбце. Спасибо!
Доброе утро, коллеги! Прошу помочь с небольшой проблемой, при выгрузке из 1С необходимо изменить формат ячеек на числовой, можно формулой в соседнем столбце. Спасибо! zaak88
Ответить
Сообщение Доброе утро, коллеги! Прошу помочь с небольшой проблемой, при выгрузке из 1С необходимо изменить формат ячеек на числовой, можно формулой в соседнем столбце. Спасибо! Автор - zaak88 Дата добавления - 31.10.2016 в 08:22
китин
Дата: Понедельник, 31.10.2016, 08:26 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
выделяем столбец А, Ctrl+H найти . заменит на , заменит всеP.S. я использую вот такой код( честно не помню у кого стырил, спасибо автору))
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
в этой строчке
For Each rn In Intersect([b:e] , ActiveSheet.UsedRange)
в квадратных скобках меняем диапазон на нужный
выделяем столбец А, Ctrl+H найти . заменит на , заменит всеP.S. я использую вот такой код( честно не помню у кого стырил, спасибо автору))
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
в этой строчке
For Each rn In Intersect([b:e] , ActiveSheet.UsedRange)
в квадратных скобках меняем диапазон на нужныйкитин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Понедельник, 31.10.2016, 08:30
Ответить
Сообщение выделяем столбец А, Ctrl+H найти . заменит на , заменит все [p.s.] я использую вот такой код( честно не помню у кого стырил, спасибо автору)) [vba]
Sub Макрос777()Dim rn As RangeFor Each rn In Intersect([b:e ], ActiveSheet.UsedRange )If rn Like "*#.#*" Thenrn = Val(rn ) ', ".", ",")rn.NumberFormat = "0.0000"End IfNextEnd Sub
[/vba] в этой строчке [vba]
For Each rn In Intersect([b:e ], ActiveSheet.UsedRange )
[/vba] в квадратных скобках меняем диапазон на нужный Автор - китин Дата добавления - 31.10.2016 в 08:26
zaak88
Дата: Понедельник, 31.10.2016, 08:40 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация:
1
±
Замечаний:
0% ±
Excel 2013
китин , спасибо, очень помогли! а с помощью формулы не может быть решения?
китин , спасибо, очень помогли! а с помощью формулы не может быть решения?zaak88
Ответить
Сообщение китин , спасибо, очень помогли! а с помощью формулы не может быть решения?Автор - zaak88 Дата добавления - 31.10.2016 в 08:40
китин
Дата: Понедельник, 31.10.2016, 08:43 |
Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
с помощью формулы не может быть решения?
может конечно
=ПОДСТАВИТЬ(A1 ;".";",")
с помощью формулы не может быть решения?
может конечно
=ПОДСТАВИТЬ(A1 ;".";",")
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Понедельник, 31.10.2016, 08:44
Ответить
Сообщение с помощью формулы не может быть решения?
может конечно
=ПОДСТАВИТЬ(A1 ;".";",")
Автор - китин Дата добавления - 31.10.2016 в 08:43
Gustav
Дата: Понедельник, 31.10.2016, 08:48 |
Сообщение № 5
Группа: Админы
Ранг: Участник клуба
Сообщений: 2843
Репутация:
1194
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
=--ПОДСТАВИТЬ(A5 ;".";",")
=--ПОДСТАВИТЬ(A5 ;".";",")
Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение
=--ПОДСТАВИТЬ(A5 ;".";",")
Автор - Gustav Дата добавления - 31.10.2016 в 08:48
zaak88
Дата: Понедельник, 31.10.2016, 08:51 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация:
1
±
Замечаний:
0% ±
Excel 2013
китин , Gustav , спасибо! выручили!
китин , Gustav , спасибо! выручили!zaak88
Ответить
Сообщение китин , Gustav , спасибо! выручили!Автор - zaak88 Дата добавления - 31.10.2016 в 08:51
Nic70y
Дата: Понедельник, 31.10.2016, 08:54 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9137
Репутация:
2416
±
Замечаний:
0% ±
Excel 2010
=--ПОДСТАВИТЬ(A5 ;".";ПСТР(1/2;2;1))
так надежнее, но больше вычислений
=--ПОДСТАВИТЬ(A5 ;".";ПСТР(1/2;2;1))
так надежнее, но больше вычисленийNic70y
ЮMoney 41001841029809
Ответить
Сообщение
=--ПОДСТАВИТЬ(A5 ;".";ПСТР(1/2;2;1))
так надежнее, но больше вычисленийАвтор - Nic70y Дата добавления - 31.10.2016 в 08:54
zaak88
Дата: Понедельник, 31.10.2016, 09:09 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 179
Репутация:
1
±
Замечаний:
0% ±
Excel 2013
Nic70y , спасибо, действительно удобнее.
Nic70y , спасибо, действительно удобнее.zaak88
Ответить
Сообщение Nic70y , спасибо, действительно удобнее.Автор - zaak88 Дата добавления - 31.10.2016 в 09:09
_Boroda_
Дата: Понедельник, 31.10.2016, 09:50 |
Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16910
Репутация:
6615
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Из 1С часто выгружается еще и с пробелами между тысяч. Типа этого 22 555 250.000 Тогда вот так
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(A5 ;" ";);".";ПСТР(1/2;2;1))
Кстати, пробел может быть и не просто пробелом, а неразрывным пробелом. Чтобы не морочить себе голову, нужно просто скопировать его из "числа" 1С-ной выгрузки и вставить в формулу
Из 1С часто выгружается еще и с пробелами между тысяч. Типа этого 22 555 250.000 Тогда вот так
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(A5 ;" ";);".";ПСТР(1/2;2;1))
Кстати, пробел может быть и не просто пробелом, а неразрывным пробелом. Чтобы не морочить себе голову, нужно просто скопировать его из "числа" 1С-ной выгрузки и вставить в формулу _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Из 1С часто выгружается еще и с пробелами между тысяч. Типа этого 22 555 250.000 Тогда вот так
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(A5 ;" ";);".";ПСТР(1/2;2;1))
Кстати, пробел может быть и не просто пробелом, а неразрывным пробелом. Чтобы не морочить себе голову, нужно просто скопировать его из "числа" 1С-ной выгрузки и вставить в формулу Автор - _Boroda_ Дата добавления - 31.10.2016 в 09:50
Nic70y
Дата: Понедельник, 31.10.2016, 12:53 |
Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 9137
Репутация:
2416
±
Замечаний:
0% ±
Excel 2010
у меня и так=--ПОДСТАВИТЬ(A5;".";ПСТР(1/2;2;1))
работает, но помню была тема, шо у кого-то не работало. проверил на 2003, 2010, 2013 все норм (Ура у меня правильные Экселя )
у меня и так=--ПОДСТАВИТЬ(A5;".";ПСТР(1/2;2;1))
работает, но помню была тема, шо у кого-то не работало. проверил на 2003, 2010, 2013 все норм (Ура у меня правильные Экселя ) Nic70y
ЮMoney 41001841029809
Ответить
Сообщение у меня и так=--ПОДСТАВИТЬ(A5;".";ПСТР(1/2;2;1))
работает, но помню была тема, шо у кого-то не работало. проверил на 2003, 2010, 2013 все норм (Ура у меня правильные Экселя ) Автор - Nic70y Дата добавления - 31.10.2016 в 12:53
Edward_M
Дата: Среда, 27.12.2017, 10:13 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
4
±
Замечаний:
0% ±
Excel 2010
Использую такой вариант :
=ЗНАЧЕН(ЗАМЕНИТЬ(A1 ;НАЙТИ(".";A1 ;1);1;","))
Использую такой вариант :
=ЗНАЧЕН(ЗАМЕНИТЬ(A1 ;НАЙТИ(".";A1 ;1);1;","))
Edward_M
Ответить
Сообщение Использую такой вариант :
=ЗНАЧЕН(ЗАМЕНИТЬ(A1 ;НАЙТИ(".";A1 ;1);1;","))
Автор - Edward_M Дата добавления - 27.12.2017 в 10:13