vba - 如何使用#NAME 解决 excel 错误 2029？

Question

我读了一个 excel 文件，在一个单元格上我得到了这样的文本:

“=- Bla Bla Bla”. 这将无法识别并显示 #NAME?

因此，如果您需要读取某些单元格并将其存入数据库，文件中的此错误将显示为 Error 2029。脚本将卡住。 因此，如果单元格中出现 = 或 - 字符，我是否可以预先替换内容，以便在读取内容之前验证内容并收到错误。我可以跳过吗!

我需要单元验证

Private Sub Worksheet_Change(ByVal Target As Range)
    c = Target.Cells.Column
    r = Target.Cells.Row
    'validate cell
End If

谢谢!

Answer 1

这是你正在尝试的吗？

Sub Sample()
    Dim sTemp As String

    With Sheets("Sheet1")
        '~~> Check if cell has error
        If IsError(.Range("A1").Value) Then
            '~~> Check if it is a 2029 error
            If .Range("A1").Value = CVErr(2029) Then
                '~~> Get the cell contents
                sTemp = Trim(.Range("A1").Formula)
                '~~> Remove =/-
                Do While Left(sTemp, 1) = "=" Or Left(sTemp, 1) = "-"
                    sTemp = Trim(Mid(sTemp, 2))
                Loop
                '~~> Either put it in back in the cell or do
                '~~> what ever you want with sTemp
                .Range("A1").Formula = sTemp
            End If
        End If
    End With
End Sub