vba利用treeview算距离

最新推荐文章于 2022-02-07 14:19:02 发布

stljsh

最新推荐文章于 2022-02-07 14:19:02 发布

阅读量653

点赞数

分类专栏： VBA应用文章标签： vba integer string textbox function each

本文链接：https://blog.csdn.net/stljsh/article/details/2100966

版权

该博客介绍了如何使用VBA在Userform中，通过treeview控件计算两个特定节点之间的距离。当用户在ComboBox中选择开始和结束节点时，程序会遍历工作表数据并返回相应的距离。博客包含Userform和模块两部分代码，展示了TreeNodeParentCount函数和computlen函数的实现。

摘要由CSDN通过智能技术生成

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