主页 / coding / 问题 / 79096230
Accepted
Forward Ed
Asked: 2024-10-17 09:50:36 +0800 CST

IsError 没有捕获表达式返回的错误

  • 772

我正在尝试做什么

我正在尝试确定命名表中包含日期的第一列。

我尝试过

由于表标题行中的所有数据都存储为字符串，因此我认为我必须首先将日期数字作为字符串剥离，然后将其转换为数字，然后检查在拉出的字符串中没有数字的情况下是否存在错误。

我查找表格列的代码如下，并在 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

我将检查的每个部分都添加到了监视窗口。HeaderCell.Value 返回“Project No”。Left 返回“Proj”。CLng 显示为 。IsError 显示为 。

在此处输入图片描述

我的示例标题行如下所示

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

使用示例标头，我想返回值 6

问题

查找第一个日期列的正确方法是什么？目前我已对其进行了硬编码。

excel

1 个回答

  1. Best Answer

    用于IsDate验证值。

    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

    在此处输入图片描述

    在 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

    在此处输入图片描述

    • 3

相关问题