Range.Style меняется в зависимости от языков

Question

Я только что сделал макрос, который меняет стиль в зависимости от чего-то в английской версии Office.

Теперь я открыл в испанской версии, и он не работает.

Оказывается,.Style ="Bad" теперь равно .Style ="Incorrecto" и т. Д.

Как установить стиль, работающий на любом языке?

Существует ли коллекция стилей, которую я могу обработать по индексу?

Answer 1

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

With ActiveWorkbook.Styles.Add(Name:="Some_Name") 
 .Borders(xlTop).LineStyle = xlDouble 
 .Font.Bold = True 
 .Font.Name = "Calibri" 'This is any font name, but you might check that it is same across different user languages.
End With 
Worksheets(1).Range("A25:A30").Style = "Some_Name"

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