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单元格中字符串代码执行,从而产生不同效果。


猜你喜欢
- 有不少朋友了解到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浏览器主页无法修改的问题,这是怎么回事?请
- 不管怎么移动和调整,批注框还是那个老样子。接下来我们就讲讲,通过设置批注格式来美化批注框。首先我们需要在批注框中单机鼠标右键,在弹出的右键菜