|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
刚开始学习VBA,在编写自定义函数的时候,逐语句运行都没问题,但是使用公式的时候就显示结果出错。在监视器窗口看到,显示“溢出上下文”,不知道是怎么回事?
1、表格中需要实现的功能及输入公式后显示的效果:同样的零件名称但是层级不同,需要使用自定义函数,查找层级大于1,且与搜索零件名称相同的零件代号。
2、监视器窗口显示
3、代码为:
Public Function findljh(x As Range, cj As Range, ljmc As Range, ljdh As Range)
Dim str As Range
Set str = ljmc.Find(x.Value, lookat:=xlWhole)
If Sheets(ljmc.Parent.Name).Cells(str.Row, cj.Column).Value = 1 Then
Set str = ljmc.FindNext(str)
End If
findljh = Sheets(ljmc.Parent.Name).Cells(str.Row, ljdh.Column).Value
End Function
|
|