Я пытаюсь скопировать стиль шрифта из одного диапазона в другой, используя следующий код:
Range("A10").Font.FontStyle = Range("A11").Font.FontStyle
Обычно это будет работать таким образом, что он извлекает имя стиля шрифта "Bold". "from Range" A11 "и использует его для установки стиля шрифта Range" A10 ".
Однако, поскольку язык моего Excel установлен на польский, вместо" Bold "он извлекает польское названиеСтиль шрифта («Погрубионы»). Из-за этого код не работает, поскольку VBA принимает только английские имена (насколько я знаю).
Я знаю, что мог бы сделать что-то вроде этого:
if Range("A11").Font.FontStyle = "Pogrubiony" Then Range("A10").Font.FontStyle = "Bold"
Но я 'Интересно, есть ли способ для VBA автоматически преобразовать имя в английский или, может быть, узнать имя стиля шрифта, если оно на другом языке?