带有Excel数据库的VBA计数器

Question

我正在为Excel工作表编写一些宏，这些宏会将点添加到数据库中。 条目的纬度和经度值必须唯一，因此我添加了几行代码，可以在用户尝试输入条目后检查条目的经/纬度。 它旨在对照数据库中的所有条目检查待处理条目的纬度/经度。 如果匹配一个，它将返回一个错误。 这是代码：

x = 2
Do Until (Worksheets("DBase").Cells(x, 3).Value = "")
     If Worksheets("DBase").Cells(x, 3).Value = lat And Worksheets("DBase").Cells(x,
4).Value = lon Then
          GoTo coorAbort
     Else
          x = x + 1
     End If
Loop

x是行计数器，lat和lon是用户输入的经/纬度，而coorAbort是带有错误消息的部分。 一切工作正常，除了计数器似乎无法将循环前进到下一行。 它检查第二行条目，然后退出循环并继续执行代码的下一部分。 我确定我有一些小问题，只是似乎无法挑选出来。 有人有想法么？

Answer 1

我猜lat和lon是双值吗？ 如果是这样，您应该更换

If Worksheets("DBase").Cells(x, 3).Value = lat

通过

If Abs(Worksheets("DBase").Cells(x, 3).Value - lat)<1e-6

（对于lon也要这样做）。 切勿直接测试双精度值是否相等。