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"

这是一种解决方法，但是一旦定义，它就应该易于使用。祝你好运！