ExcelVBA引用单元格内字符串型代码并执行
发布时间：2023-04-03 19:53:57
单击Visual Basic工具栏上的安全按钮，在弹出的安全性对话框中可靠发行商标签项底下的‘信任对于“Visual Basic 项目”的访问’前打√。
ALT+F11打开VBE编辑器，单击菜单工具-引用，在弹出的引用-VBAProject对话框中，选择引用Microsoft Visual Basic 6.0 Extensibility这一项。
新建一个模块，命名为:yyzx
在Sheet1(Sheet1)代码窗口，粘贴如下代码：
Sub 引用单元格字符串型代码并执行()
Dim sr, ksh, zh
On Error Resume Next
ksh = ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule.ProcBodyLine("yyrgzx", vbext_pk_Proc)
If Err.Number = 35 Then '判断yyrgzx过程是否存在
sr = "Sub yyrgzx()" & vbCrLf & Cells(1, 1) & vbCrLf & "End Sub"
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
.AddFromString sr
End With
Call 引用
Else
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
ksh = .ProcBodyLine("yyrgzx", vbext_pk_Proc)
zh = .ProcCountLines("yyrgzx", vbext_pk_Proc)
.DeleteLines ksh, zh - 1
End With
sr = "Sub yyrgzx()" & vbCrLf & Cells(1, 1) & vbCrLf & "End Sub"
With ThisWorkbook.VBProject.VBComponents("yyzx").CodeModule
.AddFromString sr
End With
Call 引用
End If
End Sub
Sub 引用()
Call yyrgzx
End Sub
利用窗体工具栏上的按钮，拖拉出一个按钮，命名为：引用单元格内容执行，指定：“Sheet1.引用单元格字符串型代码并执行”的宏。
6查看效果，当A1单元格内容变化时，单击引用单元格内容执行，将根据A1单元格中字符串代码执行，从而产生不同效果。
0
投稿猜你喜欢
有不少朋友了解到win10电脑可以通过重置来恢复到最初的系统状态，可以选择保留个人文件，那么具体应该怎么操作呢？win10重置还原电脑的方法- 微软现在积极向win7、win8.1系统推送升级win10正式版系统，但是有些用户点击立即升级Win10出现闪退现象了，导致升级失败，这是怎
- 天猫和淘宝有什么区别？天猫和淘宝是大家必去的网购平台，很多用户都会疑惑淘宝与天猫到底哪个好？对于消费者来说，淘宝与天猫的区别是什么？下面小编
- Win10中Administrator账户即内置管理员帐户，有的朋友们可能还不知道怎么开启？下面小编就给大家带来Win10开启Adminis
- 现在有越来越多的用户都在使用Wps这一款办公软件，不仅操作简单，使用起来还十分方便，但有部分对于Wps不熟悉的用户在使用的过程中不清楚要如何
- 最近有用户发现自己的C盘在没有操作的情况下，不停被写入，导致C盘空间很快就满了，导致无法进行电脑操作。经过查看发现是一个名为Synaptic
- 在我们进行网页浏览的过程中，有时会突然发生崩溃的现象，这种情况的发生也会影响到我们上网的心情，如果遇到这种情况要如何解决呢？不用着急，小编这
- U盘重装系统方法是现在最常用的电脑重装系统方式，其操作简单，安装速度快。今天小编将为大家带来2022最干净的u盘启动盘，那就是使用石大师U盘
- win10 10041更新提示错误怎么办？在win10预览版10041发布以后，不少用户在更新过程中出现了错误提示，比如无法检查更新、100
- Win10全屏截图怎么自动保存为图片文件？Win10截屏图片保存在哪？最近有一些朋友在问，这里就统一回答一下，确实有办法使用快捷键进行全屏截
- Win10系统宽带错误676发生的原因是机房设备的问题导致电话占线，用户可以通过连续拨号来登录。下面就来具体介绍一下Win10系统宽带连接错
- windows hello人脸识别设置不了相机？很多人在打开人脸识别设置选项显示：抱歉，出现问题。无法打开相机，那么遇到这种问题该怎么处理呢
- 联想作为一个销量全球领先的厂家，微软自然不会放弃windows这么一个发展良好的环境。自去年接近年位时期，微软总裁鲍尔默密会联想老大。进行了
- 人生日历作为一款优秀的日历软件，不仅可以用来看日期，还可以看天气，写备忘录，计算天数等，并且人生日历还可以设置皮肤透明度，把皮肤设置成透明的
- Word中，如何实现只能在指定区域进行编辑修改操作，其它部分不做任何改动，从而来起到保护Word文档的作用。修改指定区域的方法介绍如下：首先
- 什么是访问限制iPhone里面的家长控制模式，实质上就是访问限制功能。借助这一功能，用户可以禁用iPhone的一些功能。比如说，如果你在“访
- 当使用win10帐户更改用户头像时，我遇到一条消息“用户头像错误，请再试一次”。如果用户的头像出错，我该怎么办？实际上，编辑建议您更改化身格
- 自2020年1月14日开始，微软宣布正式停止对win7系统的支持，那么以后将不会对win7系统进行安全修复和更新。而继续使用win7系统将会
- IE浏览器主页无法修改怎么办？我们经常会把浏览器主页修改为常用的网站，但是最近不少人反映，遇到IE浏览器主页无法修改的问题，这是怎么回事？请
- 不管怎么移动和调整，批注框还是那个老样子。接下来我们就讲讲，通过设置批注格式来美化批注框。首先我们需要在批注框中单机鼠标右键，在弹出的右键菜
