Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Прочее. Программное обеспечение > Замена апострофа (') Excel

Замена апострофа (') Excel

Ответ
Поиск в этой теме
Непрочитано 08.05.2012, 07:28 #1
Замена апострофа (') Excel
Малюк
 
проектировщик
 
Житомир
Регистрация: 03.05.2007
Сообщений: 652

Результатом работы программы является файл Excel. Содержимое некоторых ячеек, которого имеют вид подбного рода:
'=250*560
'652
'=450*40
и т.д.
Всё, что находится за апострофом воспринимается, как текст, а мне надо чтобы воспринималось, как число или выражение
=250*560
652
=450*40
и т.д.
Пробывал через замену. Ставил найти ' заменить на ничего. Пишет, что апострофа не нашёл.
Вопрос такой: как удалить (не вручную, а через замену или как-то подругому за один раз и всё сразу) апострофы из ячеек документа?

Последний раз редактировалось Малюк, 08.05.2012 в 07:35.
Просмотров: 49616
 
Непрочитано 08.05.2012, 10:32
#2
Pum-purum

PHP-разработчик
 
Регистрация: 12.05.2008
Ижевск
Сообщений: 1,166


Вот эта штука работает несмотря на кажущуюся нелепость:
Код:
[Выделить все]
Sub Малюк()
'здесь i и j - число столбцов и строк соответственно
For i = 1 To 100
For j = 1 To 100
Worksheets(1).Cells(j, i) = Worksheets(1).Cells(j, i).Value
Next j
Next i
End Sub
Pum-purum вне форума  
 
Непрочитано 08.05.2012, 13:42
#3
Солидворкер
Moderator

Конструктор (машиностроение)
 
Регистрация: 23.10.2006
Россия
Сообщений: 22,990
<phrase 1=


Цитата:
Сообщение от Малюк Посмотреть сообщение
Пробывал через замену. Ставил найти ' заменить на ничего. Пишет, что апострофа не нашёл.
Вопрос такой: как удалить (не вручную, а через замену или как-то подругому за один раз и всё сразу) апострофы из ячеек документа?
Апостроф в Эксель является служебным символом, который указывает, что ячейка является текстовой.
Солидворкер вне форума  
 
Автор темы   Непрочитано 08.05.2012, 15:55
#4
Малюк

проектировщик
 
Регистрация: 03.05.2007
Житомир
Сообщений: 652


Цитата:
Сообщение от Солидворкер Посмотреть сообщение
Апостроф в Эксель является служебным символом, который указывает, что ячейка является текстовой.
Это я понимаю. Вот мне и нужно выражение типа '=450*40 переделать в =450*40. Если я могу сделать руками то наверно тоже самое может сделать и компъютер.
Цитата:
Сообщение от Pum-purum Посмотреть сообщение
Вот эта штука работает несмотря на кажущуюся нелепость
У меня не хочет, смотри вложенный файл "Что получается"

И тоже сообщение с другим кодом "Что выходит"
Вложения
Тип файла: rar Что получается.rar (396.6 Кб, 361 просмотров)
Тип файла: rar Что выходит.rar (343.1 Кб, 311 просмотров)

Последний раз редактировалось Малюк, 08.05.2012 в 16:06.
Малюк вне форума  
 
Непрочитано 08.05.2012, 16:26
#5
totoro26


 
Регистрация: 04.05.2012
Москва
Сообщений: 29


Я правильно понял, вы хотите убрать апостроф из строки формул? Чтобы в самой ячейке Excel посчитал произведение этих чисел?
totoro26 вне форума  
 
Автор темы   Непрочитано 08.05.2012, 18:23
#6
Малюк

проектировщик
 
Регистрация: 03.05.2007
Житомир
Сообщений: 652


Именно так
Малюк вне форума  
 
Непрочитано 08.05.2012, 22:25
#7
totoro26


 
Регистрация: 04.05.2012
Москва
Сообщений: 29


Малюк, я перепробовал все известные мне хитрости касаемо MS Excel, множество редко используемых функций и т.п. Ничего не помогает. На мой взгляд, чтобы решение было сравнительно быстрым без лишнего загромождения листа, сделайте следующее:
1. Выделяете нужный диапазон ячеек.
2. Выполняете команду Главная=>Редактирование=>Очистить=>Очистить форматы
3. В строке формул апострофы исчезнут, но в ячейках по-прежнему останется запись наподобие =0,07*0,250
4. Не снимая выделение ячеек жмите на клавиатуре последовательно F2 и Enter

P.S. Такой способ не вершина инженерной мысли, но все же... Это на примере офиса 2007
totoro26 вне форума  
 
Автор темы   Непрочитано 08.05.2012, 23:40
#8
Малюк

проектировщик
 
Регистрация: 03.05.2007
Житомир
Сообщений: 652


Способ который нашёл я:
1. Указываем пустую ячейку и из контекстного меню нажать копировать.
2. Ctrl+A затем контекстное меню-специальная втавка поставить галку на форматы нажать ОК
3. Ctrl+H в нём
найти:1 заменить на:1 нажать "Заменить всё"
найти:2 заменить на:2 нажать "Заменить всё"
...
найти:9 заменить на:9 нажать "Заменить всё"
Всё теперь всё без апострофов

Вот как-бы макрос на это дело написать
Малюк вне форума  
 
Непрочитано 09.05.2012, 14:53
#9
totoro26


 
Регистрация: 04.05.2012
Москва
Сообщений: 29


Да, я понял суть вашего способа

Сам тоже рассматривал возможность использования специальной вставки, правда пробовал с домножением на единицу. Видимо, в этом вопросе нет решения с 2-3 простыми действиями... С макросами, к сожалению, я не силен. Помочь в этом деле не смогу.

P.S. Наверно остается только радоваться что в качестве основной пользуемся системой счисления из 10 цифр
totoro26 вне форума  
 
Непрочитано 09.05.2012, 20:49
#10
Солидворкер
Moderator

Конструктор (машиностроение)
 
Регистрация: 23.10.2006
Россия
Сообщений: 22,990
<phrase 1=


А выгрузить в другой формат и загрузить обратно в Эксель?
Солидворкер вне форума  
 
Непрочитано 09.05.2012, 21:07
#11
ShaggyDoc

Thượng Tá Quân Đội Nhân Dân Việt Nam
 
Регистрация: 14.03.2005
44d32'44"С, 33d26'51"В
Сообщений: 13,381


Цитата:
Вот как-бы макрос на это дело написать
Так включите запись макроса перед началом и остановите после. Он сам и напишется, хотя грубовато, но работать будет.
ShaggyDoc вне форума  
 
Непрочитано 10.05.2012, 12:32
#12
CaMoCAD


 
Регистрация: 25.03.2008
Зелик
Сообщений: 1,576


Цитата:
Сообщение от Малюк Посмотреть сообщение
опрос такой: как удалить (не вручную, а через замену или как-то подругому за один раз и всё сразу) апострофы из ячеек документа?
Если правильно понял - это результат импорта откуда-то.
У меня получилось победить так:
1. Выделяем только "гадкие" ячейки
2. Наблюдаем рядом желтый ромб <!> с потягушкой
3. Тянем-потянем, выбираем преобразовать в число
__________________
* Буква "ё" не используется в тексте исключительно в связи с требованиями ЕСКД.
CaMoCAD вне форума  
 
Непрочитано 10.05.2012, 14:23
#13
totoro26


 
Регистрация: 04.05.2012
Москва
Сообщений: 29


Цитата:
Наблюдаем рядом желтый ромб <!> с потягушкой
Цитата:
выбираем преобразовать в число
А как быть если после апострофа в ячейке не число, а формула, которая не воспринимается таковой как раз из-за наличия этого апострофа? Я имею ввиду, рядом с такими ячейками желтый ромб не появляется.
totoro26 вне форума  
 
Непрочитано 12.07.2012, 06:13
#14
esp22


 
Регистрация: 12.07.2012
Сообщений: 24


Вот код, который убирает апострофы с активной страницы:
Код:
[Выделить все]
Sub ApostroRemove()
    ActiveSheet.UsedRange.Select
    For Each currentcell In Selection
        If currentcell.HasFormula = False Then
            currentcell.Formula = currentcell.Value
        End If
    Next
    ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, 1)).Select
End Sub
esp22 вне форума  
 
Непрочитано 18.12.2014, 16:50
#15
vladimirrus


 
Регистрация: 18.12.2014
Сообщений: 1


Господа, всё гораздо проще. При извлечении данных из автокада, на вкладке "Извлечение данных - Уточнение данных (стр.5 из 8)" можно выделив столбец, задать формат ячеек через правую кнопку. В эксель в итоге они конвертируются как нормальные цифры.
vladimirrus вне форума  
 
Непрочитано 18.12.2014, 16:52
#16
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


vladimirrus, а ты тему-то прочитал? При чем тут AutoCAD?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 18.12.2014, 18:32
#17
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,090


Это, конечно, гробокопательство, но если кому интересно: в Excel 2010, а может, и в более ранних версиях, на вкладке "Данные" есть инструмент "Текст по столбцам", который и позволяет выполнить необходимое действие. В качестве разделителя указать тот самый апостроф
kp+ вне форума  
 
Непрочитано 10.02.2015, 19:29
#18
lovial

Инженер
 
Регистрация: 12.11.2008
Днепропетровск
Сообщений: 525


Цитата:
Сообщение от Малюк Посмотреть сообщение
Способ который нашёл я:
1. Указываем пустую ячейку и из контекстного меню нажать копировать.
2. Ctrl+A затем контекстное меню-специальная втавка поставить галку на форматы нажать ОК
3. Ctrl+H в нём
найти:1 заменить на:1 нажать "Заменить всё"
найти:2 заменить на:2 нажать "Заменить всё"
...
найти:9 заменить на:9 нажать "Заменить всё"
Всё теперь всё без апострофов

Вот как-бы макрос на это дело написать
Не надо ничего писать. Вы поменяли формат, но его отображение меняется только в момент ввода в ячейку (нажатие Энтера). Сэмулировать его можно точно так же, найти - заменить, но не цифры, а знак равенства, "=". Он есть во всех "нужных" ячейках, и после одного единственного поиска/замены все станет правильно.
Ну или воспользуйтесь советом Солидворкера: выделить ячейки, скопировать, вставить в ворд, выделить получившуюся в ворде табличку, скопировать, вставить в эксель... Профит...
lovial вне форума  
 
Непрочитано 11.01.2016, 09:12
#19
Maria_X


 
Регистрация: 11.01.2016
Сообщений: 1


Цитата:
Сообщение от kp+ Посмотреть сообщение
Это, конечно, гробокопательство, но если кому интересно: в Excel 2010, а может, и в более ранних версиях, на вкладке "Данные" есть инструмент "Текст по столбцам", который и позволяет выполнить необходимое действие. В качестве разделителя указать тот самый апостроф
Спасибо, таким образом у меня получилось изменить формат столбца с апострофами на "дату", после копировании данных с реестра из 1С. Теперь буду знать о "Тексте по столбцам".
Maria_X вне форума  
 
Непрочитано 22.08.2016, 15:11
1 | #20
totoro26


 
Регистрация: 04.05.2012
Москва
Сообщений: 29


Рекомендую всем, кто столкнулся с данной проблемой - нашел обобщающую статью по преобразованию чисел в текст http://www.planetaexcel.ru/techniques/7/1091/
totoro26 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Прочее. Программное обеспечение > Замена апострофа (') Excel

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Замена связей AutoCAD 2012 и Excel seregas AutoCAD 40 20.06.2014 10:12
как скопировать ячейки excel в чертеж AutuCAD vestes AutoCAD 5 14.06.2011 00:37
Подключение Excel к AutoCad 2008 c помощью базы ODBC Eddicordo AutoCAD 4 03.02.2011 17:01
Проблема вставки диаграмм в ACAD 2009 из Excel 2007 ST2 AutoCAD 1 26.05.2009 01:30