本人是菜鸟,下面是一个有效的自定义函数,取指定 sheet 名的 指定单元格的数据。
Function GetSheet(ST As String, Rg As Range)
GetSheet = Worksheets(ST).Range(Rg.Address)
End Function
例如:工作簿中 有 SHEET1 ,SHEET2 两个工作表
sheet1.A1="你好吗"
sheet2.B5="SHEET1"
在 SHEET2.C5单元格中输入公式 getsheet(b5,a1)
则 SHEET2.C5返回值为 “你好吗”
现在我想把这个公式扩展一下,比如说:
C:\BOOK1.XLS.A1="你好吗"
C:\BOOK2.XLS\sheet2.B5="C:\BOOK1.XLS.A1"
我想在book2中引用BOOK1 的数据,
也就是说,我想把这个公式扩展到绝对路径,如何定义公式,谢谢?
參考答案:Function GetSheet(path as string ,ST As String, Rg As Range)
GetSheet = WorkBook(path).Worksheets(ST).Range(Rg.Address)
End Function