学习啦>学习电脑>工具软件>办公软件学习>Excel教程>Excel函数>

Excel中VBA函数引用单元格字符串代码的操作方法

晓生分享

  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函数引用单元格字符串代码的操作相关文章:

1.excel 字符串连接函数的用法

2.Excel中字符串连接或合并函数的操作方法

3.excel中VBA程序调用函数的方法

4.Excel中使用vba循环语句输入单元格的操作方法

5.怎么在VBA指令中调用Excel函数

6.Excel中统计包含某字符串个数函数用法的操作方法

7.Excel中进行利用函数截取字符串的操作方法

8.Excel中实现字符串合并的操作方法

    2246023