Office中国论坛/Access中国论坛

标题: 在线跪求！如何用变量引用工作表 [打印本页]

作者: blmm 时间: 2005-6-20 06:18
标题: 在线跪求！如何用变量引用工作表
遇到一个难题，请各位高手指教：

有一张表格有很多地方需要引用其它的工作表，如：“0509”中A2的内容，地方少可以用‘0509’！A2手工输入来表示，但如果有很多地方都需要输入‘0509’！就很麻烦，而且如果想改成引用0510工作表的内容，又要全部重新输入，非常麻烦。

请教各位，能不能用一个变量，比如一个单元格，来代替“0509”的名称，这样修改这个单元格，就可以自动引用“0510”等其它工作表中的内容。

请高手不吝赐教，多谢！！！

[此贴子已经被作者于2005-6-19 22:33:42编辑过]

作者: 晓月清风 时间: 2005-6-21 16:02
使用一个自定义函数:

Function SnameGV(sname As Range, xcell As Range)

'引用名为SNAME工作表中XCELL的值

      Application.Volatile

      With Application.Caller.Parent

            SnameGV = .Parent.Sheets(sname.Value).Range(xcell.Address).Value

      End With

End Function

作者: 晓月清风 时间: 2005-6-21 16:04
顺便把文件也上传给你：

[attach]11380[/attach]

作者: blmm 时间: 2005-6-24 20:56
多谢大大的关心！谢谢谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)