Início / coding / Perguntas / 79096230
Accepted
Forward Ed
Asked: 2024-10-17 09:50:36 +0800 CST

IsError não captura o erro retornado pela expressão

  • 772

O que estou tentando fazer

Estou tentando determinar a primeira coluna em uma tabela nomeada que tem uma data.

O que eu tentei

Como todos os dados em uma linha de cabeçalho de tabela são armazenados como strings, imaginei que teria que primeiro retirar os números de data como uma string e depois convertê-los em um número. Depois, verificar se é um erro caso não haja números na string extraída.

Meu código para encontrar a coluna da tabela é o seguinte e explode na instrução IF.

For Each HeaderCell In LO.HeaderRowRange
    If Not IsError(CLng(Left(HeaderCell.value, 4))) Then
        lngFirstDateCol = HeaderCell.Column
        Exit For
    End If
Next HeaderCell

Adicionei cada parte do check à janela watch. HeaderCell.Value retorna "Project No". Left retorna "Proj". CLng mostra como . IsError mostra como .

insira a descrição da imagem aqui

Minha linha de cabeçalho de exemplo se parece com a seguinte

Proj No | TTTT | Office | Staff | RFP | 2024/10/4 | 2024/10/11

Com o cabeçalho Example gostaria de retornar o valor de 6

Pergunta

Qual é a abordagem correta para encontrar a primeira coluna que é uma coluna de data? Atualmente, eu a tenho codificada.

excel

1 respostas

  1. Best Answer

    Use IsDatepara validar o valor.

    Sub demo()
    Dim c As Long, bFound As Boolean
    For c = 1 To Columns.Count
        If IsDate(Cells(1, c)) Then
            bFound = True
            Exit For
        End If
    Next
    If bFound Then
        MsgBox "The first date column (index) is " & c
        ' your code
    Else
        MsgBox "Can't locate date in the first row."
    End If
End Sub

    insira a descrição da imagem aqui

    Localize a primeira coluna de data na linha de cabeçalho ListObject.

    Sub demo()
    Dim c As Range, bFound As Boolean
    Dim LO As ListObject
    Set LO = Sheet1.ListObjects(1)
    For Each c In LO.HeaderRowRange
        If IsDate(c) Then
            bFound = True
            Exit For
        End If
    Next
    If bFound Then
        MsgBox "The first date column (index) in LO is " & LO.ListColumns(c.Value).Index
        ' your code
    Else
        MsgBox "Can't locate date in the header."
    End If
End Sub

    insira a descrição da imagem aqui

    • 3

relate perguntas