Как заменить русские буквы на английские в excel
дано:
смешанный (англо-руский) текс
ingрусский
хочу отделить кириллицу от латиницы
ing русский
своего ума хватило на :
=ПОИСК(КОДСИМВ(">127");B4)
но Excel со мной не согласен
дано:
смешанный (англо-руский) текс
ingрусский
хочу отделить кириллицу от латиницы
ing русский
своего ума хватило на :
=ПОИСК(КОДСИМВ(">127");B4)
но Excel со мной не согласен 0mega
дано:
смешанный (англо-руский) текс
ingрусский
хочу отделить кириллицу от латиницы
ing русский
своего ума хватило на :
=ПОИСК(КОДСИМВ(">127");B4)
но Excel со мной не согласен Автор - 0mega
Дата добавления - 28.01.2011 в 22:09
Function КИР_ЛАТ(СЛОВО$) As String
Dim i As Long, strTmp$, FirstS, NextS$
strTmp = Left(СЛОВО, 1)
On Error Resume Next
For i = 1 To Len(СЛОВО)
FirstS = Mid(СЛОВО, i, 1)
NextS = Mid(СЛОВО, i + 1, 1)
Select Case Asc(FirstS)
Case 65 To 90, 97 To 122
Select Case Asc(NextS)
Case 65 To 90, 97 To 122
strTmp = strTmp & NextS
Case Else
strTmp = strTmp & " " & NextS
End Select
Case 192 To 255, 168, 184
Select Case Asc(NextS)
Case 192 To 255, 168, 184
strTmp = strTmp & NextS
Case 65 To 90, 97 To 122
strTmp = strTmp & " " & NextS
Case Else
strTmp = strTmp & " " & NextS
End Select
Case Else
strTmp = strTmp & " " & NextS
End Select
Next i
КИР_ЛАТ = strTmp
End Function
Function КИР_ЛАТ(СЛОВО$) As String
Dim i As Long, strTmp$, FirstS, NextS$
strTmp = Left(СЛОВО, 1)
On Error Resume Next
For i = 1 To Len(СЛОВО)
FirstS = Mid(СЛОВО, i, 1)
NextS = Mid(СЛОВО, i + 1, 1)
Select Case Asc(FirstS)
Case 65 To 90, 97 To 122
Select Case Asc(NextS)
Case 65 To 90, 97 To 122
strTmp = strTmp & NextS
Case Else
strTmp = strTmp & " " & NextS
End Select
Case 192 To 255, 168, 184
Select Case Asc(NextS)
Case 192 To 255, 168, 184
strTmp = strTmp & NextS
Case 65 To 90, 97 To 122
strTmp = strTmp & " " & NextS
Case Else
strTmp = strTmp & " " & NextS
End Select
Case Else
strTmp = strTmp & " " & NextS
End Select
Next i
КИР_ЛАТ = strTmp
End Function
Function КИР_ЛАТ(СЛОВО$) As String
Dim i As Long, strTmp$, FirstS, NextS$
strTmp = Left(СЛОВО, 1)
On Error Resume Next
For i = 1 To Len(СЛОВО)
FirstS = Mid(СЛОВО, i, 1)
NextS = Mid(СЛОВО, i + 1, 1)
Select Case Asc(FirstS)
Case 65 To 90, 97 To 122
Select Case Asc(NextS)
Case 65 To 90, 97 To 122
strTmp = strTmp & NextS
Case Else
strTmp = strTmp & " " & NextS
End Select
Case 192 To 255, 168, 184
Select Case Asc(NextS)
Case 192 To 255, 168, 184
strTmp = strTmp & NextS
Case 65 To 90, 97 To 122
strTmp = strTmp & " " & NextS
Case Else
strTmp = strTmp & " " & NextS
End Select
Case Else
strTmp = strTmp & " " & NextS
End Select
Next i
КИР_ЛАТ = strTmp
End Function
RAN,
благодарю Вас за уделенное время
К сожалению, для меня это высший пилотаж.
Мне надо чтобы самый первый знак был "=" или "+"
RAN,
благодарю Вас за уделенное время
К сожалению, для меня это высший пилотаж.
Мне надо чтобы самый первый знак был "=" или "+" 0mega
Если всегда сначала идут английские буквы, а потом русские (не вперемежку!), то подойдёт такой вариант (см. вложение).
Если всегда сначала идут английские буквы, а потом русские (не вперемежку!), то подойдёт такой вариант (см. вложение). Serge_007
Я для выделения плодов трудов "умельцев", которые мешают в тексте латиницу и кириллицу, написал макрос, выделяющий такие буквы разным цветом:Sub [vba]
[/vba]При желании из него легко можно и ЮДФ-ку сделать. Хотя ЗАЧЕМ?
Я этот макрос у себя в Персонал положил, а пункт-кнопочку для его вызова в меню "Сервис" засунул с капчей "Выделить цветом РУС-LAT" и регулярно пользуюсь.
Очень помогает обрабатывать-объединять чужие таблицы, полученные из разных источников.
Я для выделения плодов трудов "умельцев", которые мешают в тексте латиницу и кириллицу, написал макрос, выделяющий такие буквы разным цветом:Sub [vba]
[/vba]При желании из него легко можно и ЮДФ-ку сделать. Хотя ЗАЧЕМ?
Я этот макрос у себя в Персонал положил, а пункт-кнопочку для его вызова в меню "Сервис" засунул с капчей "Выделить цветом РУС-LAT" и регулярно пользуюсь.
Очень помогает обрабатывать-объединять чужие таблицы, полученные из разных источников. Alex_ST
[/vba]При желании из него легко можно и ЮДФ-ку сделать. Хотя ЗАЧЕМ?
Я этот макрос у себя в Персонал положил, а пункт-кнопочку для его вызова в меню "Сервис" засунул с капчей "Выделить цветом РУС-LAT" и регулярно пользуюсь.
Очень помогает обрабатывать-объединять чужие таблицы, полученные из разных источников. Автор - Alex_ST
Дата добавления - 29.01.2011 в 22:36
Определить наличие латиницы в ячейке — довольно несложная операция, чего не скажешь о ее удалении.
Тех, кто хочет удалить из ячеек латиницу в Excel, используя стандартный набор функций, ждет сюрприз. Просто так это сделать не получится, т.к. для множества латинских символов в Excel не предусмотрено групповых операций по удалению и замене.
Тем не менее, любую задачу можно решить, даже если и не оптимальным способом. Рассмотрим подробнее способы удаления латиницы в той или иной конфигурации.
Удалить любые символы латиницы из ячеек
Это тот случай, когда не важно, где находится символ в ячейке, внутри слова, как отдельное слово, есть в ячейке другие символы, кроме латиницы, или нет.
Удалить латиницу с помощью встроенной процедуры поиска и замены
Худшее, что можно представить в качестве решения — последовательную замену всех 26 символов латиницы на пустоту. Это займет время и в целом процесс на больших объемах небыстрый. Но у него есть и преимущества:
- Процесс можно единожды записать макрорекордером в личную книгу макросов и использовать в следующий раз с помощью назначенного горячего сочетания клавиш.
- Ячейки изменяются на месте, не нужно создавать дополнительных столбцов.
С помощью функции ПОДСТАВИТЬ
Excel 2007 и более поздние версии позволяют использовать 64 уровня вложенности, что дает возможность составить единую мегаформулу для замены всех 26 символов. К сожалению, она регистрозависимая, поэтому уровней будет 52, по 2 для каждой английской буквы. Так она будет выглядеть:
Для этого решения потребуется дополнительный столбец, внутри которого будет указанная формула, для кого-то это плюс, т.к. сохраняются исходные данные, для кого-то минус — больше лишних действий.
С помощью !SEMTools
Ниже перечислены возможности, которых и вовсе нет в Excel, однако, они доступны пользователям надстройки для Excel !SEMTools.
Удалить латиницу с помощью регулярного выражения
Если нужно, как и в предыдущем варианте, удалить латиницу, не трогая остальные символы в строке, можно воспользоваться процедурой !SEMTools в меню «удалить символы».
Такой подход, как видно по примеру выше (6, 9, 10 строки), оставит куски слов, которые содержали помимо латиницы другие символы. Поэтому могут быть полезны процедуры, описанные в отдельных разделах.
Нужно удалить латиницу из текста в Excel?
В !SEMTools есть это и сотни других готовых решений!
Как перевести кириллицу в транслитерацию в Excel?
Технически транслитерация - это замена списка значений - символов на их конкретные эквиваленты в другом макете. Это означает, что задача состоит в том, чтобы реализовать этот набор переопределений в Excel.
Удивительно, но есть много способов сделать такую массовую замену и транслитерировать текст в Excel. Подробнее обо всех ниже.
">
Формула транслита с помощью стандартных функций Excel
Наименее элегантное, но самое простое решение проблемы. В Excel есть функция REPLACE для замены символов. Формула принимает 4 аргумента в качестве входных данных:
- Текст для обработки, в котором будет произведена замена (текст)
- Фрагмент для замены (old_text)
- На что заменить (новый_текст)
- Какой фрагмент встречается по смыслу, подлежащему замене. (число_звук)
Четвертый параметр является необязательным, и если он не заполнен, заменяются все фрагменты, встречающиеся в тексте.
Как раз то, что нам нужно! Поскольку Excel позволяет составлять сложные вложенные функции, мы можем выполнять эту серию замен во вложенной формуле много раз.
Но есть несколько проблем, которые в совокупности не позволяют создать идеальную унифицированную формулу транслитерации. Они здесь:
- В русском алфавите 33 буквы
- Идеальная формула транслитерации должна сохранять заглавные буквы во время замены. К счастью, функция REPLACE чувствительна к регистру. Получается, нужно сделать не 33, а 66 замен. Но
- в Excel есть ограничение на количество уровней вложенности в формуле: 64.
Если бы в русском алфавите было хотя бы на одну букву меньше, мы были бы в рамках Excel. Есть выход? Да, довольно просто.
Формула на 64 уровня вложенности без заглавных Ъ и Ь
Как правило, в словах есть заглавные буквы, если это начало слова. Или, если это аббревиатура, но аббревиатуры также состоят из первых букв слов.
Вы знаете слова, которые начинаются на боб? :)
Похоже, их пропустили. Так что давайте сохраним два уровня вложенности и настроимся на пределы Excel (66 - 2 = 64)!
также важно учитывать, что при транслитерации заглавных букв Ж, Ш, Ч, Щ и т.д., когда английский эквивалент состоит из нескольких букв, только первая должна быть заглавной латинскими буквами. В Интернете полно решений, где этот момент не учитывается. Итак, вот наиболее полная правильная формула:
= ПОДСТАВИТЬ (ПОДСТАВИТЬ (ПОДСТАВИТЬ (ПОДСТАВИТЬ (ПОДСТАВИТЬ) (ПОДСТАВИТЬ (ПОДСТАВИТЬ)) (ПОДСТАВИТЬ (ПОДСТАВИТЬ) (ПОДСТАВИТЬ (ПОДСТАВИТЬ) (ЗАМЕНА (A1; «)»; « В »;« В »);« Г »;« Г »);« Д »;« Д »);« Е »;« Д »);« Е »;« Йо »);« Ж »;« Ж » ");" З ";" Z ");" И ";" I ");" Y ";" Y ");" К ";" K ");" Л ";" L ");" М »;« M »);« N »;« N »);« O »;« O »);« P »;« P »);« P »;« R »);« C »;« S »); «Т»; «Т»); «У»; «U»); «Ф»; «F»); «Х»; «Х»); «Ц»; «Ц»); «Ч»; «Ч»); «Ш»; «Ш»); «Щ»; «Щ»); «Y»; «Y»); "А ТАКЖЕ"; "А ТАКЖЕ"); «U»; «Ю»); «Я ЕСМЬ»; «Я»); «а»; «а»); «б»; «б»); «с»; "v"); "грамм"; "грамм"); «д»; «г»); "А также"; "А также"); "А также"; «йо»); «е»; «ж»); «з»; «з»); «е»; «я»); «у»; «у»); «к»; «к»); «L»; «L»); «м»; «м»); «п»; «п»); "или"; "или"); "п"; "п"); "п"; «r»); «c»; «s»); «t»; «t»); «y»; «u»); «f»; «f»); «x»; «kh»); «ц»; "ц"); "час"; "ч"); "ш"; "ш"); "u"; «щ»); «ъ»; «у»); «с»; "y"); "b"; ""); "e"; "e"); "yu"; "yu"); "i"; "ya")
Вышеупомянутая формула, основанная на функции REPLACE с различными условиями, может быть изменена: вместо явного написания текстовых значений вы можете основывать ее на определенных ячейках. Почему такой подход дешевле? Тот факт, что формулу менять не нужно, а данные для замены представлены в удобном для чтения и редактирования формате в столбцах A и B.
Транслитерация с таблицей подстановок и формулой с 64 уровнями вложенности
По ссылке можно загрузить файл шаблона, в котором применяются эти функции.
Формулы транслита, итоги
Подход к созданию таких мега-формул имеет свои плюсы и минусы. Есть только один недостаток - они громоздкие, и их не так-то просто набрать сразу. Поэтому их нужно где-то хранить и при необходимости копировать.
Плюсы в основном связаны с недостатками кода VBA:
Функция на VBA
Код пользовательской функции, которая транслитерирует строчные буквы в строчные и прописные в прописные и одновременно транслитерирует прописные буквы Ж, Ш, Х, Ч, Щ и т.п., используя только первую букву транслитерации (Zh, Ш, Х, Ч, Щ…).
Правильно, эта функция присутствует в надстройке SEMTools и доступна всем: вам просто нужно скачать и установить! Затем эту функцию можно применить на листе как обычную функцию Excel. Например, = Транслит (A1)
Функция транслита (x как строка) как строка cyr = "abvgdeozhziyklmnoprstufkhtschshshchshch'yueyuya" lat = Array ("", "a", "b", "v", "g", "d", "e", "e" , «zh», «z», «i», «y», «k», _ «l», «m», «n», «o», «p», «r», «s», «t», «u», «f», «kh», «ts», «ch», _ «sh», «sch», «y», «y», «», «e», «yu» "," ya ") Для i = от 1 до 33 x = Replace (x, Mid (cyr, i, 1), lat (i) . vbBinaryCompare) x = Replace (x, UCase (Mid (cyr, i, 1)), StrConv (lat (i), vbProperCase) . vbBinaryCompare) Next Translit = x End Function
Заменить русские буквы на английские в Excel и наоборот
Надстройка SEMTools предлагает еще 4 варианта замены в дополнение к основному:
- Обратная транслитерация (с латиницы на кириллицу)
- «Изменить макет» - asdf -> fiva
- Замена букв в едином стиле - с кириллицы на латиницу
- Аналогичная замена английских букв, похожих на русские, на истинно русские
Если вам часто приходится переводить кириллицу в транслит (а попробуйте-ка сделать это для фамилии Кржижановский, например), то специальная пользовательская функция на VBA может очень помочь.
Откройте редактор Visual Basic сочетанием клавиш Alt+F11, вставьте через меню новый пустой программный модуль (Insert → Module) и введите туда текст этой функции.
Function Translit(Txt As String) As String Dim Rus As Variant Rus = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", _ "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", _ "щ", "ъ", "ы", "ь", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", _ "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", _ "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я") Dim Eng As Variant Eng = Array("a", "b", "v", "g", "d", "e", "jo", "zh", "z", "i", "j", _ "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _ "sh", "sch", "''", "y", "'", "e", "yu", "ya", "A", "B", "V", "G", "D", _ "E", "JO", "ZH", "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", _ "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SCH", "''", "Y", "'", "E", "YU", "YA") For I = 1 To Len(Txt) с = Mid(Txt, I, 1) flag = 0 For J = 0 To 65 If Rus(J) = с Then outchr = Eng(J) flag = 1 Exit For End If Next J If flag Then outstr = outstr & outchr Else outstr = outstr & с Next I Translit = outstr End Function
Теперь на любом листе этой книги вы можете использовать эту функцию, указав в качестве аргумента ячейку с русским текстом, который надо преобразовать в транслит.
Как правильно в Excel переводить русские буквы в транслит
В этом макросе варианты замены русских букв английскими эквивалентами представлены согласно ГОСТу. Если для вашей задачи нужны другие версии (например, русская «я» должна выводиться как «ja», а не как «ya» и т.д.), то можно свободно подкорректировать это в теле макроса. Как легко догадаться, два первых массива Rus и Eng как раз и задают эти подстановки.
Здравствуйте. Для сайта Википедия нужен скрипт. Требуется около 100 фамилий биатлонистов "переделать" с латиницы (и не только) на кириллицу. Нужно именно по принципу:
Martin Fourcade - Мартен Фуркад
Björn Ferry - Бьёрн Ферри
Ole Einar Bjørndalen - Уле-Эйнар Бьёрндален
Вдобавок, в зависимости от гонки фамилии могут меняться местами.
Т.е. нужно что-то вроде массовой замены "Найти" и "Заменить на".
У кого-нибудь есть идеи? Спасибо :))
Здравствуйте. Для сайта Википедия нужен скрипт. Требуется около 100 фамилий биатлонистов "переделать" с латиницы (и не только) на кириллицу. Нужно именно по принципу:
Martin Fourcade - Мартен Фуркад
Björn Ferry - Бьёрн Ферри
Ole Einar Bjørndalen - Уле-Эйнар Бьёрндален
Вдобавок, в зависимости от гонки фамилии могут меняться местами.
Т.е. нужно что-то вроде массовой замены "Найти" и "Заменить на".
У кого-нибудь есть идеи? Спасибо :)) dimakdd
Martin Fourcade - Мартен Фуркад
Björn Ferry - Бьёрн Ферри
Ole Einar Bjørndalen - Уле-Эйнар Бьёрндален
Вдобавок, в зависимости от гонки фамилии могут меняться местами.
Т.е. нужно что-то вроде массовой замены "Найти" и "Заменить на".
У кого-нибудь есть идеи? Спасибо :)) Автор - dimakdd
Дата добавления - 12.11.2017 в 18:16
в основном, называются "транслит".
Ищите, и обрящете.
Правда, как с использованием транслита изобразить Fernand Renault, большой вопрос.
в основном, называются "транслит".
Ищите, и обрящете.
Правда, как с использованием транслита изобразить Fernand Renault, большой вопрос. RAN
в основном, называются "транслит".
Ищите, и обрящете.
Правда, как с использованием транслита изобразить Fernand Renault, большой вопрос. Автор - RAN
Дата добавления - 12.11.2017 в 18:27
Хм. а по какому принципу Ole Einar превращается в Уле-Эйнар (через дефис). Что-то подсказывает, что для
Хм. а по какому принципу Ole Einar превращается в Уле-Эйнар (через дефис). Что-то подсказывает, что для
проще ручками таблицу соответствий сделать, чем заморачиваться на скрипты под разные языки buchlotnik
проще ручками таблицу соответствий сделать, чем заморачиваться на скрипты под разные языки Автор - buchlotnik
Дата добавления - 12.11.2017 в 19:07
Ой, СПАСИБО за оперативность. Уже РЕШИЛ проблему. Просто думал, что у меня уникально-сложная ситуация. Оказалось всё просто - ответы с этой темы натолкнули меня на идеи, и вот здесь моя проблема решена:
Создаём Excel-документ. В документе создаём "вторую книгу". Во второй книге, в столбце "А" прописываем фамилии на языке-оригинале. В столбце "B" прописываем фамилии так, как хотим их видеть на русском.
Копируем фамилии из pdf-документа с результатами гонок, вставляем в "первую книгу" документа, создаём и запускаем нижеследующий макрос:
Sub Translate()
Dim cell1 as Range, cell2 As Range
Dim i as Long, Langs As Long
Langs = 3 'количество языков перевода, включая русский
For Each cell1 In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
For Each cell2 In Worksheets("Словарь").Cells.SpecialCells(xlCellTypeConstants)
If cell1.Value = cell2.Value Then
i = cell2.Column
If i = Langs Then i = 1 Else i = i + 1
cell1.Value = Worksheets("Словарь").Cells(cell2.Row, i).Value
GoTo 1
End If
Next cell2
1: Next cell1
Ой, СПАСИБО за оперативность. Уже РЕШИЛ проблему. Просто думал, что у меня уникально-сложная ситуация. Оказалось всё просто - ответы с этой темы натолкнули меня на идеи, и вот здесь моя проблема решена:
Создаём Excel-документ. В документе создаём "вторую книгу". Во второй книге, в столбце "А" прописываем фамилии на языке-оригинале. В столбце "B" прописываем фамилии так, как хотим их видеть на русском.
Копируем фамилии из pdf-документа с результатами гонок, вставляем в "первую книгу" документа, создаём и запускаем нижеследующий макрос:
Sub Translate()
Dim cell1 as Range, cell2 As Range
Dim i as Long, Langs As Long
Langs = 3 'количество языков перевода, включая русский
For Each cell1 In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
For Each cell2 In Worksheets("Словарь").Cells.SpecialCells(xlCellTypeConstants)
If cell1.Value = cell2.Value Then
i = cell2.Column
If i = Langs Then i = 1 Else i = i + 1
cell1.Value = Worksheets("Словарь").Cells(cell2.Row, i).Value
GoTo 1
End If
Next cell2
1: Next cell1
Создаём Excel-документ. В документе создаём "вторую книгу". Во второй книге, в столбце "А" прописываем фамилии на языке-оригинале. В столбце "B" прописываем фамилии так, как хотим их видеть на русском.
Копируем фамилии из pdf-документа с результатами гонок, вставляем в "первую книгу" документа, создаём и запускаем нижеследующий макрос:
Sub Translate()
Dim cell1 as Range, cell2 As Range
Dim i as Long, Langs As Long
Langs = 3 'количество языков перевода, включая русский
For Each cell1 In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
For Each cell2 In Worksheets("Словарь").Cells.SpecialCells(xlCellTypeConstants)
If cell1.Value = cell2.Value Then
i = cell2.Column
If i = Langs Then i = 1 Else i = i + 1
cell1.Value = Worksheets("Словарь").Cells(cell2.Row, i).Value
GoTo 1
End If
Next cell2
1: Next cell1
И позвольте ещё помощь. Я просто в Макросах Excel, на ДАННЫЙ МОМЕНТ, вообще не понимаю. Однако добрые дела делать хочется, например, для Википедии. Там реально люди тратят по 2 часа, чтобы ВРУЧНУЮ набрать результаты ОДНОЙ ГОНКИ. Используя Макросы Excel эту же задачу можно решить за 5-10 минут.
Как улучшить вышеуказанный скрипт для следующей базовой цели:
Есть excel-документ. В нём 4 листа ("Лист1", "Мужчины", "Женщины", "Флаги"). На Лист1 я ввёл фамилию биатлонистки "CHEVALIER ANAIS". Нужно, чтобы Макрос видел эту фамилию при том, что "База данных" с этой фамилией расположена на третьем листе (т.е. на листе "Женщины").
И 2 коротких вопроса:
1. Как увеличить у Макроса "зону просмотра столбцов" ?? Т.е. этот Макрос "просматривает" только 3 столбца на листе "Словарь" и потом возвращаеться к 1-му столбцу этого же листа. Нужно, чтобы "просматривал" хотя бы 5 столбцов, И НЕ возвращался к 1-му столбцу
2. Что будет, если убрать из макроса строчку:
Langs = 3 'количество языков перевода, включая русский
Бывает, что при "переводе" языков распознования будет 1 (английский), или до 5 (англ, русский, французский, немецкий, норвежский).
И позвольте ещё помощь. Я просто в Макросах Excel, на ДАННЫЙ МОМЕНТ, вообще не понимаю. Однако добрые дела делать хочется, например, для Википедии. Там реально люди тратят по 2 часа, чтобы ВРУЧНУЮ набрать результаты ОДНОЙ ГОНКИ. Используя Макросы Excel эту же задачу можно решить за 5-10 минут.
Как улучшить вышеуказанный скрипт для следующей базовой цели:
Есть excel-документ. В нём 4 листа ("Лист1", "Мужчины", "Женщины", "Флаги"). На Лист1 я ввёл фамилию биатлонистки "CHEVALIER ANAIS". Нужно, чтобы Макрос видел эту фамилию при том, что "База данных" с этой фамилией расположена на третьем листе (т.е. на листе "Женщины").
И 2 коротких вопроса:
1. Как увеличить у Макроса "зону просмотра столбцов" ?? Т.е. этот Макрос "просматривает" только 3 столбца на листе "Словарь" и потом возвращаеться к 1-му столбцу этого же листа. Нужно, чтобы "просматривал" хотя бы 5 столбцов, И НЕ возвращался к 1-му столбцу
2. Что будет, если убрать из макроса строчку:
Langs = 3 'количество языков перевода, включая русский
Бывает, что при "переводе" языков распознования будет 1 (английский), или до 5 (англ, русский, французский, немецкий, норвежский). dimakdd
Как улучшить вышеуказанный скрипт для следующей базовой цели:
Есть excel-документ. В нём 4 листа ("Лист1", "Мужчины", "Женщины", "Флаги"). На Лист1 я ввёл фамилию биатлонистки "CHEVALIER ANAIS". Нужно, чтобы Макрос видел эту фамилию при том, что "База данных" с этой фамилией расположена на третьем листе (т.е. на листе "Женщины").
И 2 коротких вопроса:
1. Как увеличить у Макроса "зону просмотра столбцов" ?? Т.е. этот Макрос "просматривает" только 3 столбца на листе "Словарь" и потом возвращаеться к 1-му столбцу этого же листа. Нужно, чтобы "просматривал" хотя бы 5 столбцов, И НЕ возвращался к 1-му столбцу
2. Что будет, если убрать из макроса строчку:
Langs = 3 'количество языков перевода, включая русский
Бывает, что при "переводе" языков распознования будет 1 (английский), или до 5 (англ, русский, французский, немецкий, норвежский). Автор - dimakdd
Дата добавления - 16.11.2017 в 12:56
Читайте также: