excel如何用自定义函数给单元格赋值

假设把e799bee5baa6e997aee7ad94e78988e69d83365 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表示当前变量的类型。

自定义函数中不能对其他单元格赋值
你的要求可以用工作表的Change事件过程来实现copy
也就是说
当指定单元格发生变化时
自动运行一段程序
程序中可以对需要的单zhidao元格进行赋值

示例：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("A5") = "TEST"
End Sub

只要A1单元格内容变化，就将A5单元格中的内容修改为“TEST”
如果 是标准的 * 和 / 不是 × ÷

就是
=EVALUATE(Sheet1!A3)
就可以了

自定义函数中不能对其他单元格赋值
你的要求可以用工作表的Change事件过程来实zhidao现
也就是说
当指定单元格版发生变化时
自动运行一段程序
程序中可以对需要的单元格进行赋值

示例：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("A5") = "TEST"
End Sub

只要A1单元格内容变化，就将A5单元格中的内容修改为权“TEST”