从而产生不同的效果

单击Visual Basic工具栏上的安全按钮，在弹出的安全对话框中可靠发布者标签项下的“信任对Visual Basic Project的访问”前打。

ALT F11打开VBE编辑器，点击菜单工具-引用，在引用-VBAProject的弹出对话框中，选择引用Microsoft Visual Basic 6.0扩展性的项目。

创建一个名为：yyzx的新模块。

在Sheet1(Sheet1代码窗口)中，粘贴以下代码：

引用子单元格字符串代码并执行()

Dim sr，ksh，zh

出错时继续下一步

ksh=此工作簿。VBProject . VBComponents(' yyzx '). codemodule . proccodyline(' yyrgzx '，vbext_pk_Proc)

如果Err。Number=35然后'判断yyrgzx进程是否存在。

sr='Sub yyrgzx()' vbCrLf细胞(1，1) vbCrLf 'End Sub '

使用此工作簿。VBProject.VBComponents('yyzx ')。CodeModule。AddFromString sr

以…结尾

呼叫参考

其他

使用此工作簿。VBProject.VBComponents('yyzx ')。CodeModule

ksh=。probodyline(' yyrgzx '，vbext_pk_Proc)

zh=。ProcCountLines('yyrgzx '，vbext_pk_Proc)。删除线ksh，zh - 1

以…结尾

sr='Sub yyrgzx()' vbCrLf细胞(1，1) vbCrLf 'End Sub '

使用此工作簿。VBProject.VBComponents('yyzx ')。CodeModule。AddFromString sr

以…结尾

呼叫参考

如果…就会结束

末端接头

参考Sub()

呼叫yyrgzx

末端接头

使用表单工具栏上的按钮，拖出一个名为：引用要执行的单元格内容的按钮，并指定宏“Sheet1”。参考单元格字符串代码并执行”。

6检查效果。当单元格A1的内容发生变化时，点击要执行的引用单元格的内容，将根据单元格A1中的字符串代码执行，从而产生不同的效果。