ExcelVBA引用单元格内字符串型代码并执行

单击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)

相关推荐

  • Excel中right函数引用单元格及字符串的使用方法实例

    在Excel表格中，有个截取字符串函数，其中包括LEFT函数、RIGHT函数与MID函数，RIGHT函数的作用是从指定字符串的最右边开始，截取特定长度的一串字符。接下来小编就为大家剖析一下RIGHT函 ...

  • excel怎么将一个单元格内的字符串按照特定字符进行分列?

    excel怎么将一个单元格内的字符串按照特定字符进行分列呢?下面就为大家详细介绍一下,不会的朋友可以参考本文,来看看吧! 1.比如我现在要将单元格A1中的字符串“验,旧,森,y,u,1”按照半角逗号“ ...

  • excel vba如何引用单元格值?

    excel中使用vba引用单元格值的方法,不会的朋友可以参考本文! 步骤 1.首先我们打开一个工作样表作为例子. 2.在工作表中引用单元格数值我们使用=加上单元格序列即可引用,如图中所示在c22单元格 ...

  • 在excel表格中使用vba引用单元格区域

    今天为大家介绍在excel中使用vba来引用单元格区域方法,不会的朋友可以参考本文,来看看吧! 步骤 1.首先我们打开一个工作样表作为例子. 2.使用alt+f11组合快捷键进入vbe编辑器,插入一个 ...

  • 怎么批量去掉Excel表格中单元格内多余的空格？

    怎么批量去掉Excel表格中单元格内多余的空格？

    在Excel表格中,有时我们会手误在单元格里手动输入了一些空格,导致格式对齐不那么美观了,那么怎么批量去掉Excel表格中单元格内多余的空格?下面一起来看看吧.具体如下:1. 如下图的表格,名字中间有 ...

  • 一个单元格内多个人名怎么计算人数（表格怎么统计单元格内有多少个人名）

    一个单元格内多个人名怎么计算人数（表格怎么统计单元格内有多少个人名）

    如下图:依据每条线路的名单,如何统计人数?公式:在C2单元格输入公式:=LEN(B2)-LEN(SUBSTITUTE(B2,".","")) 1,向下填充,即得 ...

  • Excel怎么在一个单元格内输入多个值

    我们有时需要在某个单元格内连续输入多个数值,以查看引用此单元格的其他单元格的效果.但每次输入一个值后按回车键,活动单元格均默认下移一个单元格,非常不便.其实可以采用以下方法: 单击鼠标选定单元格,然后 ...

  • Excel如何批量去除单元格内最后一个字？

    excel应用中对部分数据处理,要去掉单元格中最后一个字符,比如单位等,本文通过实例直接操作给大家看如何去处理. Excel如何批量去除单元格内最后一个字? 这组数据,我们只需要它前面的数字,不需要最 ...

  • excel怎么将一个单元格内的字符进行分列?

    我们处理数据时,通常需要将一组数据按照某个分好分成多列,以便查看,那么excel怎么分列?下面小编就为大家详细介绍一下,来看看吧! 步骤 1.比如我现在要将单元格A1中的字符串“验,旧,森,y,u,1 ...