Сводные таблицы с текстовым форматом
gringos
Дата: Пятница, 03.03.2017, 15:21 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация:
0
±
Замечаний:
0% ±
Всем привет подскажите пожалуйста как решить данную проблему есть списки выгружаемые с текстовыми форматами как их переделать в числовые чтоб сводные таблицы можно было формировать. И минус убрать.
Всем привет подскажите пожалуйста как решить данную проблему есть списки выгружаемые с текстовыми форматами как их переделать в числовые чтоб сводные таблицы можно было формировать. И минус убрать. gringos
Ответить
Сообщение Всем привет подскажите пожалуйста как решить данную проблему есть списки выгружаемые с текстовыми форматами как их переделать в числовые чтоб сводные таблицы можно было формировать. И минус убрать. Автор - gringos Дата добавления - 03.03.2017 в 15:21
Nic70y
Дата: Пятница, 03.03.2017, 15:27 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8761
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
ctlr+h найти (минус)- заменить на - ни чего не писать, заменить все -//- (пробел)м. -//-
ctlr+h найти (минус)- заменить на - ни чего не писать, заменить все -//- (пробел)м. -//- Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Пятница, 03.03.2017, 15:28
Ответить
Сообщение ctlr+h найти (минус)- заменить на - ни чего не писать, заменить все -//- (пробел)м. -//- Автор - Nic70y Дата добавления - 03.03.2017 в 15:27
gringos
Дата: Пятница, 03.03.2017, 15:32 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация:
0
±
Замечаний:
0% ±
ctlr+h найти (минус)- заменить на - ни чего не писать, заменить все
Спасибо, с минусом понятно а с форматом не совсем
ctlr+h найти (минус)- заменить на - ни чего не писать, заменить все
Спасибо, с минусом понятно а с форматом не совсемgringos
Ответить
Сообщение ctlr+h найти (минус)- заменить на - ни чего не писать, заменить все
Спасибо, с минусом понятно а с форматом не совсемАвтор - gringos Дата добавления - 03.03.2017 в 15:32
Karataev
Дата: Пятница, 03.03.2017, 15:36 |
Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel
...
Сообщение отредактировал Karataev - Пятница, 03.03.2017, 16:08
Ответить
Сообщение ... Автор - Karataev Дата добавления - 03.03.2017 в 15:36
Nic70y
Дата: Пятница, 03.03.2017, 15:39 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8761
Репутация:
2273
±
Замечаний:
0% ±
Excel 2010
а ну дам у Вас еще точку на запятую и (неразрывный пробел)alt+0160 на ничего
а ну дам у Вас еще точку на запятую и (неразрывный пробел)alt+0160 на ничего Nic70y
ЮMoney 41001841029809
Ответить
Сообщение а ну дам у Вас еще точку на запятую и (неразрывный пробел)alt+0160 на ничего Автор - Nic70y Дата добавления - 03.03.2017 в 15:39
krosav4ig
Дата: Пятница, 03.03.2017, 15:39 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
989
±
Замечаний:
0% ±
Excel 2007,2010,2013
там еще у вас неразрывный пробел, его туже нужно заменить очистить поля Найти и Заменить на, в поле Найти нажать Alt+255, Заменить все или макрос [vba]Код
Sub dd() For Each v In Array("-", chr(160)," ", "м."): Selection.Replace v, "", 2: Next End Sub
[/vba]
там еще у вас неразрывный пробел, его туже нужно заменить очистить поля Найти и Заменить на, в поле Найти нажать Alt+255, Заменить все или макрос [vba]Код
Sub dd() For Each v In Array("-", chr(160)," ", "м."): Selection.Replace v, "", 2: Next End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 03.03.2017, 16:15
Ответить
Сообщение там еще у вас неразрывный пробел, его туже нужно заменить очистить поля Найти и Заменить на, в поле Найти нажать Alt+255, Заменить все или макрос [vba]Код
Sub dd() For Each v In Array("-", chr(160)," ", "м."): Selection.Replace v, "", 2: Next End Sub
[/vba] Автор - krosav4ig Дата добавления - 03.03.2017 в 15:39
gringos
Дата: Пятница, 03.03.2017, 16:06 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация:
0
±
Замечаний:
0% ±
Если надо часто делать такое, то могу предложить макрос. Перед применением макроса выделите столбец, который надо обработать.
Уважаемый, не могли бы вы дописать макрос данные прихода. 000 это лишние. Заранее блгодарен. Дата Тип Количество Дата Тип Количество 09.01.2012 Расх. 60 912 09.01.2012 Прих. 2 729 000 10.01.2012 Расх. 25 212 20.01.2012 Прих. 1 342 000 10.01.2012 Расх. 160 904 24.02.2012 Прих. 1 342 000 11.01.2012 Расх. 10 130 06.03.2012 Прих. 1 342 000 12.01.2012 Расх. 125 552 26.03.2012 Прих. 1 342 000
Если надо часто делать такое, то могу предложить макрос. Перед применением макроса выделите столбец, который надо обработать.
Уважаемый, не могли бы вы дописать макрос данные прихода. 000 это лишние. Заранее блгодарен. Дата Тип Количество Дата Тип Количество 09.01.2012 Расх. 60 912 09.01.2012 Прих. 2 729 000 10.01.2012 Расх. 25 212 20.01.2012 Прих. 1 342 000 10.01.2012 Расх. 160 904 24.02.2012 Прих. 1 342 000 11.01.2012 Расх. 10 130 06.03.2012 Прих. 1 342 000 12.01.2012 Расх. 125 552 26.03.2012 Прих. 1 342 000gringos
Ответить
Сообщение Если надо часто делать такое, то могу предложить макрос. Перед применением макроса выделите столбец, который надо обработать.
Уважаемый, не могли бы вы дописать макрос данные прихода. 000 это лишние. Заранее блгодарен. Дата Тип Количество Дата Тип Количество 09.01.2012 Расх. 60 912 09.01.2012 Прих. 2 729 000 10.01.2012 Расх. 25 212 20.01.2012 Прих. 1 342 000 10.01.2012 Расх. 160 904 24.02.2012 Прих. 1 342 000 11.01.2012 Расх. 10 130 06.03.2012 Прих. 1 342 000 12.01.2012 Расх. 125 552 26.03.2012 Прих. 1 342 000Автор - gringos Дата добавления - 03.03.2017 в 16:06
Karataev
Дата: Пятница, 03.03.2017, 16:08 |
Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel
...
Сообщение отредактировал Karataev - Пятница, 03.03.2017, 18:27
Ответить
Сообщение ... Автор - Karataev Дата добавления - 03.03.2017 в 16:08
gringos
Дата: Пятница, 03.03.2017, 17:25 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация:
0
±
Замечаний:
0% ±
Karataev , Подскажи пожалуйста мне ещё надо чтоб дата форматировалась 10.03.2017 в март 2017 а после макроса она не форматируется. Делал до но макрос возвращает её в исходный формат
Karataev , Подскажи пожалуйста мне ещё надо чтоб дата форматировалась 10.03.2017 в март 2017 а после макроса она не форматируется. Делал до но макрос возвращает её в исходный форматgringos
Ответить
Сообщение Karataev , Подскажи пожалуйста мне ещё надо чтоб дата форматировалась 10.03.2017 в март 2017 а после макроса она не форматируется. Делал до но макрос возвращает её в исходный форматАвтор - gringos Дата добавления - 03.03.2017 в 17:25
Karataev
Дата: Пятница, 03.03.2017, 18:26 |
Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel
Снова предлагаю новую версию макроса, может быть и с датой не будет проблем. Макрос обрабатывает выделенные ячейки. Применяйте макрос только к тем столбцам, которые надо обработать, т.к. макрос заменяет запятые на точки.
[vba]
Код
Sub Удалить_лишнее() Application.ScreenUpdating = False Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Selection.Replace What:="-", Replacement:="" Selection.Replace What:=" ", Replacement:="" Selection.Replace What:=Chr(160), Replacement:="" Selection.Replace What:="м.", Replacement:="" Application.ScreenUpdating = True End Sub
[/vba]
Снова предлагаю новую версию макроса, может быть и с датой не будет проблем. Макрос обрабатывает выделенные ячейки. Применяйте макрос только к тем столбцам, которые надо обработать, т.к. макрос заменяет запятые на точки.
[vba]
Код
Sub Удалить_лишнее() Application.ScreenUpdating = False Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Selection.Replace What:="-", Replacement:="" Selection.Replace What:=" ", Replacement:="" Selection.Replace What:=Chr(160), Replacement:="" Selection.Replace What:="м.", Replacement:="" Application.ScreenUpdating = True End Sub
[/vba]
Karataev
Сообщение отредактировал Karataev - Пятница, 03.03.2017, 18:59
Ответить
Сообщение Снова предлагаю новую версию макроса, может быть и с датой не будет проблем. Макрос обрабатывает выделенные ячейки. Применяйте макрос только к тем столбцам, которые надо обработать, т.к. макрос заменяет запятые на точки.
[vba]
Код
Sub Удалить_лишнее() Application.ScreenUpdating = False Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:= _ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Selection.Replace What:="-", Replacement:="" Selection.Replace What:=" ", Replacement:="" Selection.Replace What:=Chr(160), Replacement:="" Selection.Replace What:="м.", Replacement:="" Application.ScreenUpdating = True End Sub
[/vba]
Автор - Karataev Дата добавления - 03.03.2017 в 18:26