ExcelVBA引用单元格内字符串型代码并执行

VBA用于在Excel单元格中实现引用和执行字符串VBA代码的方法。

步骤阅读工具/原材料超过2003VBA方法/步骤1单击“Visual Basic”工具栏上的“安全性”按钮，并在弹出的“安全性”对话框中的“可靠发布者”选项卡下勾选“信任对“Visual Basic项目的访问”。

-2步阅读-3步阅读2ALT+F11打开VBE编辑器，单击菜单工具-参考，并在弹出的参考-VBAP对话框中，选择项目“参考Microsoft Visual Basic 6.0可扩展性”。

-4步骤阅读3创建一个名为yyzx的新模块

-5步读取4在表1中粘贴以下代码(表1代码窗口:

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

Dim sr，ksh，zh

下一次恢复时出错

ksh = ThisWorkbook。VBProject . VBComponents(& quot；yyzx代码模块. ProcBodyLine。yyrgzx，vbext _ pk _ Proc)

如果呃。数字= 35然后& # 39；判断yyrgzx进程是否存在

sr = & quotsub yyrgzx()& quot；& ampvbCrLf和。单元格(1，1)和。vbCrLf和。"结束子

使用此工作簿。VBProject . VBComponents(& quot；yyzx)。代码模块

。AddFromString sr

以...结束

呼叫参考

其他

使用此工作簿。VBProject . VBComponents(& quot；yyzx)。代码模块

ksh =。ProcBodyLineyyrgzx，vbext _ pk _ Proc)

zh =。ProcCountLines(& quot；yyrgzx，vbext _ pk _ Proc)

。DeleteLines ksh，zh - 1

以...结束

sr = & quotsub yyrgzx()& quot；& ampvbCrLf和。单元格(1，1)和。vbCrLf和。"结束子

使用此工作簿。VBProject . VBComponents(& quot；yyzx)。代码模块

。AddFromString sr

以...结束

呼叫参考

结束条件

末端接头

子参考()

打电话给yyrgzx

末端接头

步骤阅读5使用表单工具栏上的按钮拖出一个名为:引用要执行的单元格内容，指定宏:“工作表1”的按钮。引用单元格字符串代码并执行”。

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

-8步读取结束