Aqui está uma solução alternativa do VBA que definirá o formato de todas as datas como um idioma específico. Está escrito apenas para formatar datas, mas você pode mudar isso. Com base nas opções da caixa de diálogo "Formatar Células", acredito que só tenha um efeito para datas, horas e formatos especiais, mas você pode tecnicamente adicionar o LCID a qualquer formato. Você precisará da lista de IDs de idiomas para definir LCID
para qualquer valor que você precisar. (Certifique-se de usar LCID Hex, não LCID Dec)
Sub SetLanguageFormat()
'Declarations
Dim cell As Range
Dim f As String
Const LCID As String = "[$-0409]"
Dim reg 'As RegExp 'Removed for late binding
'Setup regular expression
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.IgnoreCase = True
reg.Pattern = "\[\$\-+[\w]*[\w]\]"
'Loop through all cells and change the date formate
For Each cell In ActiveSheet.UsedRange.Cells
If IsDate(cell.Value) Then
f = cell.NumberFormat
If reg.Execute(f).Count > 0 Then
'Language is set so replace it
f = reg.Replace(f, LCID)
Else
'Langauge is not set so add it
f = LCID & f
End If
cell.NumberFormat = f
End If
Next
End Sub
Você também pode fazer isso um a um pelo método manual clicando com o botão direito do mouse em uma célula e, em seguida, clicando em "Formatar células ..."