1

我有一个文档，我想检查一些列以查看它们的格式是否正确。对于不正确的值，我想要一个显示每个实例的值和位置（每个在单独的行上）的 msgbox。

以防万一出现大量错误，我希望为每一列创建一个消息框。下面我有一个部分代码，但 cl.address2 / value2 需要更改，可能还有 vbanextline ，但基本上就是这样。谢谢！

Sub datachecks
    Dim cl as range
    For each cl in range("A:A")
        If cl.format = "dd/mm/yyyy" then
            Msgbox(cl.address & cl.value & vbanextline & cl.address2 & cl.value)
4

1 回答 1

1

我会为每个明确引用单元格。要跟踪找到的单元格，请使用本地字符串变量，在其中添加找到的任何行和回车符或换行符 (= Chr(13))。在这里和那里也做了一些小的更正，应该这样做：

Sub datachecks()
    Dim cl As Range
    Dim foundCells As String

    For Each cl In Range("A:A").Cells
        If cl.NumberFormat = "dd/mm/yyyy" Then
            foundCells = foundCells & cl.Address & " " & cl.Value & Chr(13)
        End If
    Next cl
    MsgBox (foundCells)
End Sub
于 2013-05-09T22:04:41.480 回答