excel - VBA中两点之间的距离

Question

我正在做一个 excel VBA 作业。这实际上是一个玩家和怪物的游戏。我们使用箭头在工作表内移动，我们继续移动，怪物不断接近我们，我们必须尝试远离怪物。但是在每一步移动到另一个单元格时，我们需要显示玩家和怪物之间的距离。我们需要使用距离公式。我想知道，由于单元格行和单元格列每次都在变化，我该如何使用距离公式。

注意：我们只在整个工作表中使用 A1 到 T23 一些单元格是彩色的，这意味着玩家和怪物都可以进入这些彩色单元格。

我们只是初学者，所以公式不应该很复杂。例如使用函数/for 循环

标签： excelvba

Answer 1

我希望它会起作用的基本尝试：

Function distance(ya As Double, xa As Double, yb As Double, xb As Double)

distancePoint = Sqr((ya - yb) ^ 2 + (xa - xb) ^ 2)

End Function