从而产生不同效果
发布时间：2023-09-10 17:05:02
单击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
投稿猜你喜欢
在Word中如何快速调整表格大小呢？这是我们经常会遇到的一种情况，这时，掌握一个小技巧是非常重要的，那么接下来小编就和大家说说吧！如果这个表- WRSSSDK.exe进程简介进程文件： WRSSSDK or WRSSSDK.exe 进程名称： Webroot Spy Sweeper
- PowerPoint 2013版本新增加了一个取色器功能。很多小伙伴还不知道ppt2013取色器在哪里呢？下面小编带大家一起看看。比如下面这
- 在日常工作中，经常利用Excel表格统计人员信息，当人员的工号因为工作时长不一样时，长度会有所不同，那么在Excel表格当中，如何统一人员的
- 如何保护我们原本就已经很脆弱的隐私这真的是一个不容小视的问题，win7的资源管理器来说，默认情况下它会自动存储我们的搜索记录，现在就让我们看
- 输入法是使用电脑必备的一款软件，在Win10系统中默认的输入法是英语美式键盘，电脑桌面右下角显示为eng，不少用户觉得这个英语美式键盘是个累
- 如何将PDF中的表格转换到excel中?PDF文件一般情况下无法进行编辑，要针对PDF文件进行编辑也并非全无办法，我们可以使用AdobeAc
- Parallels Desktop 14 mac是Mac Down搜集到的一款Mac上的虚拟机软件，在Mac下最强大的虚拟化软件。Mac用户
- 在实际工作中，使用操作WPS文字的时候常常会遇到一种问题，就是当在文字占满整页的时候，文档常常会多出一页空白页的现象。如下图所示。对于WPS
- INDEX函数数组公式，我们知道，数组公式在输入完后必须按Ctrl+Shift+Enter键来强制公式为数组公式。然而，我们已经习惯了在输入
- 当我们的电脑的光盘受损之后，我们就无法使用光盘里的东西，这时局需要我们来进行恢复，最贱的方法就是借助工具，我们最常用的恢复光盘数据的软件就是
- Excel中经常需要使用到公式进行判断数据是否包含某值，包含某值的公式具体该如何使用呢?接下来是小编为大家带来的excel使用包含某值公式的
- AirPods Pro 采用了全新的入耳式设计，包装盒中随附小号，中号和大号三种尺寸柔软的硅胶头，Apple 并不会单独直接出售耳塞，但如果
- HomeKit 是今年发布的 iOS 12 发力的重头戏，也预示着智能设备将由手机逐渐扩散到家居设备中，那么 HomeKit 到底是什么？它
- 众所周知，开机启动Win7系统后，右下角一般都会显示小键盘图标，在我们需要输入文字时，可按下“ctrl+shift”快捷键来切换小键盘图标中
- 如何用U盘来安装Win10系统？很多用户对用U盘装系统的方法并不是很了解，尤其是这种新出现的安装方法，下面我们就来为大家详细的介绍下用U盘如
- QQ五笔输入法的纯拼音输入快捷键是Ctrl+Shift+P，可以在(设置)→(按键设置)中进行修改。
- 这篇文章主要介绍了win10不识别sd卡怎么办?Win10无法识别不能读取SD卡的解决方法的相关资料,需要的朋友可以参考下本文详细内容介绍w
- 1、首先，我们需要有单词的读音。如果你的电脑里已有，当然最好。否则，我们就来录制它们吧。这里以内录为例：打开PPT，缩放一边，打开有单词发声
- Win10系统弱化了控制面板的功能，使用设置来代替控制面板。有一些用户升级Win10 TH2版以后，“应用和功能”以及“存储”这两个选项无法
