excel - 看似非常简单的 Excel 无响应问题

Question

因此，对于我的代码，我不明白为什么在尝试执行此循环后我的电子表格没有响应。

功能 inpolygon(point, range)是一个点(2 个单元格，所以(1,2))是否适合由 n x 2 组成的区域。

任何想法将不胜感激。

Public Function whichplay2(point As range, basinrange As range) As String

Dim nbasin As Integer
Dim i As Integer
i = 1

'number of basins = CInt(basinrange.Columns.Count) / 2
nbasin = CInt(basinrange.Columns.Count) / 2

Do While i <= nbasin

If InPolygon(point, range(basinrange.range("A1").Offset(0, 2 * i - 2), _
    basinrange.range("A1").Offset(0, 2 * i - 1).End(xlDown))) = False Then

Else

   whichplay2 = Sheets("RawCoor").range("A1").Offset(0, 2 * i - 2)

End If

Loop


End Function

Answer 1

尝试添加 i=i+1就在循环之前，或者:

For i = 1 To nbasin
*rest of code*
Next i