Impostazione della lingua di contenuto delle celle in Excel

In MS Excel, è ansible impostare la lingua del contenuto delle celle ad esempio per colonna? Lo scopo sarebbe, tra l'altro, effettuare controlli ortografici adeguati quando il contenuto è multilingue (ad es. Un dictionary), come possiamo fare in MS Word.

Ecco una macro veloce e sporca che si può sperare di adattarsi alle tue esigenze. Come è ora, eseguirà un controllo ortografico in inglese americano nella Column A e quindi eseguire un controllo ortografico in spagnolo messicano nella Column B Qui puoi trovare i codici per i linguaggi supportti.

 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 

Sì, si può fare. Ecco un esempio per l'input giapponese e inglese. (È ansible impostare diverse impostazioni per il tipo di input giapponese che si desidera consentire).

Utilizzo le regole di immissione nella scheda Dati. (Devo impostare le "Opzioni", "Lingua", "Modifica lingua" in "Giapponese")

Basta andare alla scheda "Dati" e select "Regole condizionali" dal gruppo "Dati". Ci sarà ora una nuova scheda sulla destra chiamata "Ingresso giapponese". Impostare una colonna su "On", l'altra su "Off" e sarai pronto ad andare.

Sembra che sia ansible anche con VB. Non sono sicuri però le celle.

 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