vba利用treeview算距离

Userform1代码

Private Sub CommandButton1_Click()
   Unload Me
End Sub

Private Sub CommandButton2_Click()
   Dim Sh As Worksheet, lr As Long, Rng As Range, Subrng As Range, BeginString As String, EndString As String
  '      Set D = CreateObject("Scripting.Dictionary")
   Set Sh = ActiveSheet
   lr = Sh.[a65536].End(xlUp).Row
   Set Rng = Sh.Range("a2:c" & lr)
   BeginString = ComboBox1.Text
   EndString = ComboBox2.Text
   Dim b As Integer, e As Integer
   b = NodeParentCount(TreeView1.Nodes(BeginString), TreeView1)
   e = NodeParentCount(TreeView1.Nodes(EndString), TreeView1)
   If b >= e Then
      TextBox1 = "错误条件"
   Else
      TextBox1 = computlen(BeginString, EndString, Rng)
   End If
End Sub

 

 

 

 

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.