Existe codificação para Formatar/Células/Texto/Maiúscula…, Ou seja, qualquer texto digitado na célula ficará MAIÚSCULO.
=MAIÚSCULA(B1) Você digita na célula B1 e aparece onde vc colocou a função.
Oi Beto esta eu conheço, necessitava formatação direta da célula. Grato.
No caso de ser uma formatação direta da célula, implicaria que a exibição seria sempre em maiúsculas mesmo que o conteúdo fosse em minusculas. Ao usar uma referencia à célula em questão, a cadeia de caracteres viria em minusculas. O usuário teria de saber essa característica muito bem pra não se confundir.
Nesse caso, Gilberto, faça uma macro e associe ela a um botão enviar, após o clik do mouse…, por exemplo. Fiz com sucesso digitando em uma célula em minúsculas e após clique em gravar macro, fui em formatar, “Alterar caixa” escolhi maiúsculas. mandei parar e dei uma nome a macro… Enfim, a macro funcionou…
Ok o arquivo teste esta funcionando…Para associar uma macro salva na planilha ao evento: botão direito do mouse sobre a aba da planilha >>> “Eventos de planilha…” >>> evento “Conteúdo alterado” >>> botão “Macro”. conforme Cálculo automático por Macro sem fórmula na célula
sub Maiusculo
' ----------------------------------------------------------------------
' define variables
dim document as object
dim dispatcher as object
' get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1:$F$20"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:ChangeCaseToUpper", "", 0, Array())
' embaixo só para desmarcar a área....
dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args1())
end sub