[已解决]请教VBA中如何实现Indirect功能？

令狐风

写了一个函数AutoID()，返回的是单元格的地址代码，字符型，比如“A1”

现在我想用另外的函数读这个代码所表示的单元格的内容
比如SQRT(A1)，就要写成SQRT(INDIRECT(AUTOID()))
我现在想把INDIRECT整合到VBA里，表格里就直接写SQRT(AUTOID())
请问怎么实现？

之前把函数返回值设成Range型，然后里面用Val()转换，好像不行

谢谢！

autoid.zip (15.1 KB, 下载次数: 52)

2012-4-24 09:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

adders

2012-4-24 09:36

再写个类似的函数呗:

1. 
   
2. Function AtID()
   
3.     Application.Volatile
   
4.     AtID = Range(AutoCell).Value
   
5. End Function

复制代码

然后在EXCEL里输入公式就可以了:
=SQRT(AtID())

跳转到最佳答案楼层

zjcat35

看不明白！！！！

adders

再写个类似的函数呗:

1. 
   
2. Function AtID()
   
3.     Application.Volatile
   
4.     AtID = Range(AutoCell).Value
   
5. End Function

复制代码

然后在EXCEL里输入公式就可以了:
=SQRT(AtID())

令狐风

adders 发表于 2012-4-24 09:36
再写个类似的函数呗:

可以了，谢谢！      

令狐风

adders 发表于 2012-4-24 09:36
再写个类似的函数呗:

另外请教，怎么能把selectionchange事件整合到函数中去，这样就可以直接保存成.xlam了，每次打开不同的文件都可以调用这个函数

flbzxf

大家好