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

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.tuLaoShi.comNumber = 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

（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/ejc/） ExcelVBA引用单元格内字符串型代码并执行

　　利用窗体工具栏上的按钮，拖拉出一个按钮，命名为：引用单元格内容执行，指定：Sheet1.引用单元格字符串型代码并执行的宏。

　　6查看效果，当A1单元格内容变化时，单击引用单元格内容执行，将根据A1单元格中字符串代码执行，从而产生不同效果。

Word、Excel文档未保存怎么办?如何找回?

　　电脑死机或者突然断电，辛苦编辑的Word或者Excel文档来不及保存，大家心中会不会非常的懊恼?那么该如何找回未保存的文档?下面图老师小编就教给你一招超实用小技巧，帮你迅速找回未保存的文档。

　　Word未保存文档找回

　　Word中来不及保存的文档，一般会自动暂时存放在C:Documents and SettingsAdministratorApplication DataMicrosoftWord，只要到上述的地方，找到档名为XXX.asp之类的，这就是你辛苦编辑的文档了，接下来在把副档名改为XXX.doc，就可以找到你未保存的Word文档了。

　　Excel未保存文档找回

　　Excel也是同理，会暂时存放在C:Documents and Settings用户名[url=fi图老师le:Application]Application[/url]DataMicrosoftExcel，在上述地方找到以XXX.asp"结尾的文档，再把副档名改为XXX.xls，就可以找到你未保存的Excel文档了。

　　XXX.asp的文档，都是隐藏的，需要开启在工具-文件夹选项-查看中的显示所有文件盒文件夹

　　Administrator是指的你所用的用户名，你使用的什么用户名就在哪个下面寻找。

　　以上就是图老师小编推荐给大家的Word、Excel文档未保存的找回办法，