Kompв MS Excel можно ли установить язык содержимого ячеек, например, для каждого столбца? Цель состояла бы, среди прочего, в том, чтобы сделать правильную проверку орфографии, когда содержание многоязычно (например, словарь), как мы можем сделать в MS Word.
Настройка языка содержимого ячеек в Excel
11
задан
13.03.2023 12:07 
2721
2721
2 ответа
вот быстрый и грязный макрос, который вы можете, надеюсь, адаптироваться к вашим потребностям. Как и сейчас, он будет запускать проверку орфографии на американском английском языке на Column A, а затем Запустить проверку орфографии в Мексиканском испанском языке в Column B. Вы можете найти коды для поддерживаемых языков здесь.
Sub multilanguageSC()
Dim rngEng As Range, rngSpa As Range
'Set ranges to check for each language.
Set rngEng = ActiveSheet.Range("A:A")
Set rngSpa = ActiveSheet.Range("B:B")
'Set spelling dictionary language to English (US).
Application.SpellingOptions.DictLang = 1033
'Check spelling for designated English range.
rngEng.CheckSpelling
'Set spelling dictionary language to Spanish(Mexico).
Application.SpellingOptions.DictLang = 2058
'Check spelling for designated Spanish range.
rngSpa.CheckSpelling
'Set spelling dictionary back to default setting.
Application.SpellingOptions.DictLang = Application.LanguageSettings.LanguageID(msoLanguageIDUI)
End Sub
3
отвечен Excellll 2023-03-14 19:55
Да, это можно сделать. Вот пример для японского и английского ввода. (Вы можете задать различные настройки для типа японского ввода, который вы хотите разрешить.)
Я использую правила ввода на вкладке Данные. (Я должен установить "параметры", "язык", "язык редактирования" на "японский")
просто перейдите на вкладку" Данные", а затем выберите" условные правила "из группы" инструменты данных". Теперь справа появится новая вкладка под названием "Японский ввод". Установите один столбец в "On" , другое к "Off", и вы готовы пойти.
похоже, что их можно сделать и с VB. Однако не уверен в диапазонах ячеек.
Sub Cond()
'
' Cond Macro
'
'
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeOn
.ShowInput = True
.ShowError = True
End With
End Sub
0
отвечен Wasabi 2023-03-14 22:12
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
