Поиск немецких символов в тексте

@wo9f · Регистрация: 15.10.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте.
У меня непростая задача, занимает очень много времени, хочется скоротать время на проработку файла.
Прошу вас помочь.
У меня в файле excel имеются три столбца.
В 1-м столбце имеется текст на русском языке, во 2-м столбце перевод русского на английский.
В 3-м столбце перевод русского на немецкий.

Беда в том, что в 3-м столбце перевод неверный, в нем встречается и кириллица и латиница (английские и немецкие слова).
С поиском кириллицы я разобрался, нашел в интернете макрос, который выделяет цветом кириллицу от латиницы.

Теперь моя задача отделить немецкие слова от английских.
Как?
Не знаю!
Пытался делать это глазками, выискивать, но уже глаза болят. Да и ошибки неизбежны.

Может есть ГУРУ в excel который поможет с моим вопросом?

@Linoge · 15.10.2017, 12:24

Сообщение от wo9f

Теперь моя задача отделить немецкие слова от английских.
Как?

В немецком всего 3 символа не совпадающие с английским и вероятность их наличия в разбираемых словах гораздо меньше 1.
Поиск через переводчик.

@wo9f · 15.10.2017, 13:37 **[ТС]**

Как вариант, думал искать символы немецкие типа ü, ö, ä, ß, но у меня файл очень крупный, более 86000 строк, Искать вручную займет о-о-очень много времени.

Добавлено через 35 минут
Как вариант, можно использовать проверку орфографии немецкого языка? Есть такая функция в excel?
Например, задаем excel проверить орфографию немецкого языка. и все что будет выделено неправильно орфографически, принять как английские слова, как то так..
Но как на это написать макрос?

@wo9f · 15.10.2017, 14:33 **[ТС]**

Нашел такой сайт https://www.exceltrick.com/how... -in-excel/ Здесь есть решение моего вопроса. Но решение еще кривое. Выдает ошибку и выделяет не все что нужно
Я себе записал этот код (есть на найденном сайте)
Выделяется не весь документ, а всего несколько строк. Как это исправить, подскажите пожалуйста?

shanemac51 · 15.10.2017, 15:42

Visual Basic

Sub ColorMispelledCells()  
For Each cl In ActiveSheet.UsedRange  
If Not Application.CheckSpelling(Word:=cl.Text) Then _  
cl.Interior.ColorIndex = 28  
Next cl  
End Sub

из описания макроса

Этот макрос изменяет Цвет фона ячеек, где слова присутствуют. Это делает его легче для всех, чтобы найти неправильно написанные слова просто просматривая лист

вряд ли вам надо это
---
я бы видимо сделала пословный перебор текста и запись слов в словарь

@wo9f · 15.10.2017, 15:53 **[ТС]**

У меня есть файлик, где строчек с текстом (предложениями) более 86000.
Есть и файлики поменьше (3000, 6000 строк), их можно и вручную править, можно и потерпеть, но времени жалко.

У меня идея появилась, что скорее всего было бы лучше задать excel задачу, проверить на орфографические ошибки строки (в настройках отметить проверка немецкого языка). Те ячейки, где будут найдены ошибки, должны быть выделены в определенный цвет (любой), чтобы я потом в поиске нашел эти выделенные ячейки, и потом выдал переводчику, чтобы он их перевел на немецкий. Потом перевод я должен обратно вставить.
Если ячейки с неправильным переводом будут выделены в цвет, их можно быстро потом найти и поправить перевод.

@wo9f 0 / 0 / 0 Регистрация: 15.10.2017 Сообщений: 13
		1
	Поиск немецких символов в тексте 15.10.2017, 12:10. Показов 1739. Ответов 5 Метки нет (Все метки) Здравствуйте. У меня непростая задача, занимает очень много времени, хочется скоротать время на проработку файла. Прошу вас помочь. У меня в файле excel имеются три столбца. В 1-м столбце имеется текст на русском языке, во 2-м столбце перевод русского на английский. В 3-м столбце перевод русского на немецкий. Беда в том, что в 3-м столбце перевод неверный, в нем встречается и кириллица и латиница (английские и немецкие слова). С поиском кириллицы я разобрался, нашел в интернете макрос, который выделяет цветом кириллицу от латиницы. Теперь моя задача отделить немецкие слова от английских. Как? Не знаю! Пытался делать это глазками, выискивать, но уже глаза болят. Да и ошибки неизбежны. Может есть ГУРУ в excel который поможет с моим вопросом? 0

@Linoge 3199 / 1910 / 323 Регистрация: 25.10.2011 Сообщений: 5,557
	15.10.2017, 12:24	2
	Сообщение от wo9f Теперь моя задача отделить немецкие слова от английских. Как? В немецком всего 3 символа не совпадающие с английским и вероятность их наличия в разбираемых словах гораздо меньше 1. Поиск через переводчик. 0

@wo9f 0 / 0 / 0 Регистрация: 15.10.2017 Сообщений: 13
	15.10.2017, 13:37 [ТС]	3
	Как вариант, думал искать символы немецкие типа ü, ö, ä, ß, но у меня файл очень крупный, более 86000 строк, Искать вручную займет о-о-очень много времени. Добавлено через 35 минут Как вариант, можно использовать проверку орфографии немецкого языка? Есть такая функция в excel? Например, задаем excel проверить орфографию немецкого языка. и все что будет выделено неправильно орфографически, принять как английские слова, как то так.. Но как на это написать макрос? 0

@wo9f 0 / 0 / 0 Регистрация: 15.10.2017 Сообщений: 13
	15.10.2017, 14:33 [ТС]	4
	Нашел такой сайт https://www.exceltrick.com/how... -in-excel/ Здесь есть решение моего вопроса. Но решение еще кривое. Выдает ошибку и выделяет не все что нужно Я себе записал этот код (есть на найденном сайте) Выделяется не весь документ, а всего несколько строк. Как это исправить, подскажите пожалуйста? Миниатюры 0

@wo9f 0 / 0 / 0 Регистрация: 15.10.2017 Сообщений: 13
	15.10.2017, 15:53 [ТС]	6
	У меня есть файлик, где строчек с текстом (предложениями) более 86000. Есть и файлики поменьше (3000, 6000 строк), их можно и вручную править, можно и потерпеть, но времени жалко. У меня идея появилась, что скорее всего было бы лучше задать excel задачу, проверить на орфографические ошибки строки (в настройках отметить проверка немецкого языка). Те ячейки, где будут найдены ошибки, должны быть выделены в определенный цвет (любой), чтобы я потом в поиске нашел эти выделенные ячейки, и потом выдал переводчику, чтобы он их перевел на немецкий. Потом перевод я должен обратно вставить. Если ячейки с неправильным переводом будут выделены в цвет, их можно быстро потом найти и поправить перевод. 0