为什么这个函数不能退出?我已经尝试了Exit函数和Exit For。到达Ubound(arr)语句后,我将重置为i=0,调用堆栈恢复为End Select语句,此后For循环再次开始。这必须来自我执行的递归行?Object, Optional ByVal i As Integer = 0) Select Case VBA.TypeNamei = UBound(arr) Then Exit FunctionE
我正在使用excel/vba创建一个树结构。节点前面有复选框。我使用递归函数遍历节点并复制选定/检查节点的文本。我试图将其放入变量、excel行、数组中,但我只得到最后选定节点的文本。下面是递归函数。 Loop While Not objSiblingNode Is NothingEnd Sub
在VBA