Início / computer / Perguntas / 1565978
Accepted
René Nyffenegger
Asked: 2020-07-04 21:13:31 +0800 CST

É possível detectar "O formato de número aplicado a esta célula pode ser enganoso" com o VBA?

  • 772

Aqui está uma macro simples que cria uma planilha que possui uma célula com um aviso O formato de número aplicado a esta célula pode ser enganoso (indicado pelo triângulo verde).

Sub createWarning()

    Dim wb As Workbook
    Dim ws As Worksheet
    
    Set wb = Workbooks.Add
    Set ws = wb.Sheets(1)
    
    ws.Cells(1, 1).Value = 98765.4321
    ws.Cells(1, 2).FormulaR1C1 = "= RC[-1]"
    ws.Cells(1, 2).NumberFormat = "yyyy-mm-dd hh:mm:ss"
End Sub

insira a descrição da imagem aqui

Eu gostaria de poder detectar esses avisos com o VBA. Isso é possível de alguma forma?

microsoft-excel vba

1 respostas

  1. Best Answer

    https://support.microsoft.com/en-gb/office/misleading-formats-error-f31b6c93-eac4-48a6-8630-ea097f93e5bb

    A seção de notas possui configuração de aplicativo (será exibida se estiver ativada)

    Application.ErrorCheckingOptions.MisleadingNumberFormats, que retornará um valor booleano (verdadeiro/falso).

    A verificação do nível da célula

    MsgBox ws.Cells(1, 2).Errors(xlMisleadingFormat).Value
MsgBox ws.Cells(1, 2).Errors(10).Value
    • 2

relate perguntas