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函数引用单元格字符串代码的操作
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Windows 7系统备份与还原操作详解
如何在word中为样式设置快捷键
![](https://img.aspxhome.com/file/2023/8/33158_0s.jpg)
如何在WPS表格中快速插入其它表格的内容
![](https://img.aspxhome.com/file/2023/7/a185337_0s.png)
如何快速的提取WPS文字中所有的图片
![](https://img.aspxhome.com/file/2023/3/a186793_0s.jpg)
百度网盘视频加速播放功能怎么用?
Sketch教程-制作毛玻璃(模糊)效果和应用案例
![](https://img.aspxhome.com/file/2023/9/a212119_0s.jpeg)
怎么在Excel中插入视频?Excel文件插入视频的方法
![](https://img.aspxhome.com/file/2023/6/a143686_0s.jpg)
Windows Media Player版本错误提示安装不正确的解决方法
![](https://img.aspxhome.com/file/2023/29/a256675_0s.png)
Win10怎么设置自动关机?Win10系统设置自动关机的方法
![](https://img.aspxhome.com/file/2023/28/a242874_0s.png)
excel怎么输入大于15位的数字?excel中显示大于15位数的数值的方法介绍
windows11安全中心怎么打开
![](https://img.aspxhome.com/file/2023/29/a262056_0s.jpg)
Win10登录微软账户出现0xd00000bb错误怎么办?
![](https://img.aspxhome.com/file/2023/26/a227591_0s.jpg)
excel表格怎么设置页面显示比例
Win10开机缺少winload.efi怎么办?Win10系统缺少文件无法开机图文教程
![](https://img.aspxhome.com/file/2023/26/a220828_0s.jpg)
Win7笔记本电脑无线网络连接不上怎么办?
![](https://img.aspxhome.com/file/2023/29/a261828_0s.jpg )
如何删除不需要的小程序?微信删除下拉小程序的方法
![](https://img.aspxhome.com/file/2023/7/a331553_0s.jpg)
如何在Win8.1预览版中找回Windows体验指数
![](https://img.aspxhome.com/file/2023/29/a256976_0s.jpg)
微软霸气承诺 Win10最新预览版升级每月至少一次
![](https://img.aspxhome.com/file/2023/29/a251352_0s.jpg)