treeview 子节点的值调用自定义函数

[zjx55]

如：treeview
子节点的值为font(range(A1:A5),"黑体",5）
如何实现读出子节点的值，并且在读出值时调用自定义函数font

自定义函数font
Public Function font( Rng As Range, x, y As Integer) As String
With Rng.Font

If .Name = x Then
font = y
Else
font= 0
End If

End With
End Function

[bcrun]

看你的代码好像是EXCEL VBA一类吧,跟TREEVIEW咋联系起来的

[帝企鹅已被占用]

我估计楼主在excel上放了个treeview。
他想通过点击treeview的node去改变excel 的range的字体。
set rng = .range("A1:A5").select
rng.font.bold = true
rng.font.size = 5