作者：乔山办公网日期：
返回目录：excel表格制作
自定义函数不能修改其它单元格的值，也百就是说，不能向度 rag 参数传递不是输入公式的单元格的引用，换句话说，在A1 单元格输入公式，知只能传递 A1 作为参数。
但是道如果传递本身单元格的引用的话，因为的代码又设置了单元格的值，就会无回限循环调用函数。
可以把自定义函数改为 sub。
例如答下列Sub可以实现：
Sub ShowErro()
If ActiveCell.Value = Null Then
Return
End If
If (MsgBox("输入错误", vbRetryCancel) = vbCancel) Then
ActiveCell.Value = Null
End If
End Sub
1、首先打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub test2()Worksheets("Sheet1").Range("A1").Value =
_Worksheets("Sheet1").Range("A5").ValueMsgBox "现在A1单元格中的值也为" &
_Worksheets("Sheet1").Range("A5").ValueEnd Sub
3、可以看到这里指定了中名为sheet1的工作表，并使用了range选取了a1单元格，选择单元格值的属性。换个方式说就是sheet1中a1单元格是对象，value值是属性。
4、这里有个下划线，在vba中是作为连接符存在的，意思是下一行的代码是链接636f7079e79fa5e98193332到本行代码后，不是中断的语句。
5、使用msgbox函数来显示一段信息，提示a1的单元格值为，后面链接了a5单元格的值，其实因为前面有赋值，所以这里直接写a1单元格的值也是可以的。
6、因为这里的对象很统一，所以代码我们可以用with简写，那么我们只用写一个with语句像下面这样With Worksheets("sheet1")
.Range("A1").Value = _
.Range("A5").Value
MsgBox "现在A1单元格中的值也为" & _
.Range("A5").Value
End With。
7、可以看到代码运行成功，a1和a5单元格内的值一样，证明赋值成功。
8、
Private Sub OptionButoon1_Click()
If OptionButoon1.Value = True Then
Sheet2.Range("A" & n+1).Value = OptionButoon1.Caption ‘n是另外定义的变量，zd从专0开始随点击累加
OptionButoon1.Value = false
End If
End Sub
加了这属一句，试一下吧：OptionButoon1.Value = false
假设把 sheet1 中A1单元格赋值给X变量，语句如下： X = sheets(1).range("A1") 假设X经过计算后，得到一个变量值Y，那么把Y赋值给A1，语句为： sheets(1).range("A1")=Y 这样就实现了单元格与变量之间的相互赋值关于此例中涉及到的VBA中变量的相关知识： 1、什么是变量变量是一个命名的内存位置。是在程序或代码运行过程中，用于临时存储数据，并且其存储的数据可以根据需要发生改变的一个命名项目。变量由名称(变量名)和数据类型指定：变量名——用来引用变量数据类型——确定变量所能存储信息的种类以及所占存储空间的大小 2、变e5a48de588b6e799bee5baa6e997aee7ad94361量的命名规则（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表示当前变量的类型。