从而产生不同效果
发布时间：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中制作一份特殊的表格时，可能会用到这样一些特殊符号，“在方框里打钩”或打叉。这些符号虽看起来简单不起眼，也许随处可见，但是
excel表格怎么盖电子印章？excel表格中需要改印章，该怎么盖红色的电子印章呢？下面我们就来看看excel表格设计电子印章的教程，需要的- 在Word2010中,您可以插入多种数据图表和图形,如柱形图、折线图、饼图、条形图、面积图、散点图、股价图等。下面小编小编就为大家介绍wor
- Word目录中编号与标题内容间隔太大，怎么办？如下图所示的“目录”，各级标题编号与内容之间的间隔太大了，影响目录美观。怎么改呢？找对方法，就
- 当Word 2003文档发生故障或打不开时，我们该怎么办呢，不要激动方法还是有的，下面让小编为你带来world2003打不开的方法，欢迎大家
- 昨天Office官方博客更新的文章确定推出Update 2更新，带来了诸多新功能，下面本文提供了Office2016官方原版镜像下载，内含6
- Excel2016表格中行列数据怎么互换？excel2016中输入的数据行和列弄错了，重新输入太麻烦，怎么才能让行和列互换呢？教程很简单，需
- 打开word----点击左上角图标（office按钮）-----在word选项——加载项——管理【com加载项】，点击“转到”——把“稿纸向
- 最近去打印店看到很多毕业论文，发现很多人都在问“那个页眉页脚怎么弄”，然后好心的打印店员工帮他们一一弄好，看到这里，不禁想写点东西告诉你们该
- 第一步，点击“文件”第二步，点击“选项” 第三步，点击“高级”，勾选“不压缩文件中的图像”。设置完成之后，点击确认
- 点开页面布局→页面设置→ 文档网格,勾选文字对齐字符网格，然后设置每行字数和每页字数即可。
- word怎么设计北大西洋公约组织旗帜图标？之前我们介绍过使用word绘制旗帜，该怎么绘制北大西洋公约组织旗帜呢？下面我们就来看看详细的教程，
- 介绍一下这款WPS版电路图绘制器的制作及使用方法：一、绘制各种常用电路元件符号。 运行WPS演示，系统会自动建立一
- 分列整理主要是将存为“文本”格式的数字转换成“数字”格式，还有拆分单元格的功能。这个分列功能主要用来帮助大家整理杂乱的Excel表。一起来了
- 竖排文字用于对联，请贴，招牌，等等，word文档怎样输入竖排文字呢?那么下面就由小编给大家分享下word输入竖排文字的技巧，希望能帮助到您。
- 现实中，我们经常会遇到关于预测的工作，比如预测销售量、销售收入等等。很多人或许会想到使用诸如spss等专门的分析软件，其实excel也提供了
- 日常在做数据分析的时候，经常需要对数据按照大小进行排序，但一般我们操作都只会按一个关键字进行排序，或者说是对一列单元格的数据进行排序，但如果
- Excel函数一共有11类，分别是数据库函数、日期与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数学和三角函数、统计函
- 在Word2010文档中，用户可以方便地增大、减小和旋转SmartArt图形形状。操作步骤如下所述：第1步，打开Word2010文档窗口，选
- 相信EXCEL是每个办公白领做报表的时候会使用到的吧，关于EXCEL中的函数，有些新手朋友还不是很清楚，小编今天向大家讲讲if函数的常见使用
