Functionkbyy(a)'跨表引用.工作表序号差值,行号,列号
Application.Volatile
Ifa=0Then'循环引用
kbyy="参数错误"
GoTojs
EndIf
x=Application.ThisCell.Worksheet.Index+a'公式所在工作表的序号
Ifb=0Then'所在单元格的行号
b=Application.ThisCell.Row
EndIf
Ifc=0Then
c=Application.ThisCell.Column
EndIf
kbyy=Worksheets(x).Cells(b,c).Value
js:
EndFunction
一般用法:
=kbyy(-1)
返回值:对上一张工作表相同位置的引用.
引用对象:
文本的,返回文本
数字的,返回数字
空值,返回0
