Question

Excel VBA 自定义函数，怎么获取当前单元格和赋值

打个比方，我现在写一个自定义函数 test1() ，并且在单元格 A1 中 写了 =test1()
我希望这个自定义函数的VBA程序能够获取到当前 sheet、单元格 并且在最后为此单元格赋值，，这个应该怎么才能做到？我写了几个，但是一直提示我循环引用了

Answer 1

假设把 sheet1 中A1单元格赋值给X变量，语句如下：
X = sheets(1).range("A1")
假设X经过计算后，得到一个变量值Y，那么把Y赋值给A1，语句为：
sheets(1).range("A1")=Y
这样就实现了单元格与变量之间的相互赋值

关于此例中涉及到的VBA中变量的相关知识：
1、什么是变量

变量是一个命名的内存位置。是在程序或代码运行过程中，用于临时存储数据，并且其存储的数据可以根据需要发生改变的一个命名项目。
变量由名称(变量名)和数据类型指定：
变量名——用来引用变量
数据类型——确定变量所能存储信息的种类以及所占存储空间的大小
2、变量的命名规则
（1）名称是由字母(A-Z，a-z)或数字和下划线“_”的任意组合。(在Excel 2002以后的版本中也可以包含中文)；最后一个字符可以是类型说明符；
（2）变量名的长度不得超过255个字符
（3）变量名在有效的范围内必须是唯一的。有效的范围就是引用变量可以被程序识别的作用范围 例如一个过程、一个窗体等等；
（4）变量名不能是VBA中的保留字（关键字），也不能是末尾带类型说明符的保留字，但可以把保留字嵌入变量名。
说明：
（1）变量名是不区分大小写的。如ABC、aBc、abc等都是一样的；
（2）定义和使用变量时，通常要把变量名定义为容易使用阅读和能够描述所含数据用处的名称；
（3）根据需要混合使用大小写字母和数字。如果需要使用多单词组，变量中每个单词的第一个字母大写，例如：DataTemp表示临时数据，也可以两个单词中下划线分隔，例如：Last_Num；
（4）对于变量名也有更好的建议，每个变量名以两个或三个字符缩写开始，这些字符缩写对应于变量要存储数据的数据类型。例如strWorksheet as string表用来示工作表名，前缀str表示当前变量的类型。