Excel中VBA函数引用单元格字符串代码的操作方法
发布时间：2023-05-21 20:00:11
ExcelVBA是如何引用单元格内字符串型代码并执行的操作?具体是怎么去执行操作的呢?今天，小编就教大家在Excel中VBA函数引用单元格字符串代码的操作方法。
Excel中VBA函数引用单元格字符串代码的操作步骤如下：
单击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.引用单元格字符串型代码并执行”的宏。
查看效果，当A1单元格内容变化时，单击引用单元格内容执行，将根据A1单元格中字符串代码执行，从而产生不同效果。
Excel中VBA函数引用单元格字符串代码的操作
0
投稿猜你喜欢
win10的功能十分的丰富，作为一款用户量极大的电脑系统，它的系统更新速度是很快的，同时它的稳定性和安全性也有一定的保障。现在的电子设备，当- Excel中DCOUNTA函数是计算符合所指定条件的清单或资料库栏中的非空白储存格个数。DCOUNTA函数的语法：DCOUNTA ( dat
- 对于Win8兼容性怎么样是很多打算安装Win8系统用户近期比较关心的话题，接下来本文将用事实说话，实测Win8兼容性到底怎么样，有兴趣的朋友
- 剧能玩如何缓存视频？剧能玩是一款视频播放APP，剧能玩是以图片剧的形式来构成一个短剧，用户们可以根据自己的意愿，选择喜欢的分支剧情，由此玩出
- Excel设置打印一次单元格内容变一次的步骤：sheet1中，已经设置好了打印区域。要求每打印一次，单元格B2中的日期就增加一天。Alt+F
- 前一阵子在一位高人指点下小试了一下国产办公软件WPS，果真效果不凡，如今在演示文档里面插入Flash就像插入图片一样容易了。前一阵子在一位高
- 1、打开【控制面板】→【程序和功能】→【打开或关闭Windows功能】→【媒体功能】，查看【Windows Media Player】前面是
- 打开软件提示存储空间不足，无法处理此命令怎么办？近日有用户在使用软件时，频繁提示存储空间不足，无法使用此命令的问题，但是明明硬盘存储空间还有
- 在Win10系统中，系统自带地图功能，但是很多时候我们并不使用这些地图功能，地图数据也会自动更新，那么如何关闭系统地图自动更新呢？下面跟着小
- 想必大家在用wps做表格的时候都会遇到需要画斜线的时候，尤其是做统计类表格，之后还得在斜线的上下分别加入不同的类别，那么如何做到这一点呢?下
- 说明SMALL 函数返回一组数据的第 k 个最小值。返回值第 k 个最小值。语法=SMALL(array, k)=SMALL(数组, k)参
- 如何在线进行Win7系统重装？很多小伙伴们向小编反应自己想进行系统重装但是会担心对电脑造成影响，也不知道有什么装机工具合适，想问问小编有没有
- WinXP系统电脑一直提示windows无法访问指定设备怎么办？有用户反映XP系统电脑经常会提示windows无法访问指定设备，该如何解决呢
- Excel表格如何快速删除选定区域内容?下面小编来教大家。01、首先，我们打开我们的电脑，然后我们打开一个excel文档；02、之后我们选中
- 我们不仅可以在Word文档中编辑文本等内容，我们还可以根据自己的实际需要调整其中各种内容的格式，排版效果等内容。有时候我们可能会发现文档中段
- 神奇照片自动打印软件作为一款专业的照片打印软件，不仅拥有全自动打印和半自动打印两种打印模式，还支持设置多打印方案，同时连接多个打印机，加速打
- win10系统有着非常多的版本很多的小伙伴都被搞糊涂了不知道相对应的版本是什么意思，今天就给大家带来了enterprise是什么版本的详细介
- 我们在使用U盘时经常会遇到各种问题，比如U盘读不出来、U盘出现乱码等问题，而这些问题都是可以使用软件来进行修复的（U盘硬件问题除外），那么有
- 如果你此前没用过Win8系统，那么下面的Metro应用使用教程或许将让你对Windows系统有一个全新的看法，对应用执行的操作取决于你所安装
- Win10专业版的用户在打开的网页的时候，有时候会遇到系统提示win10此站点不安全问题，那么这个问题该如何解决呢？一起来看看。Win10专
