摘要： 单击Visual Basic工具栏上的安全按钮，在弹出的安全性对话框中可靠发行商标签项底下的‘信任对于“Visual Basic 项目”的访问’前打√。 ALT F11打开VBE编辑器，单击菜...
单击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
Excel2007设置标签窗口化
Excel2007设置标签窗口化 根据个人习惯有些用户在使用Excel表格时，喜欢将打开的表格分开可一一查看到表格标签，但是Excel默认打开多张表格都将所有打开的表格归纳到同一窗口当中，该如何分开表格同时也能看到其他表格。 用户打开多个Excel工作表都在一个窗口中。如下如任务栏中所打开的表格。 图1 在Excel表格“关闭键”下也有一个关闭窗口工具，点击“还原窗口”。 图2 此时可看到所打开的表格窗口标签。 图3 此时可看到所打开的表格窗口标签。 图4
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单元格中字符串代码执行，从而产生不同效果。
Excel2007在多个单元格中输入相同的内容和公式
Excel2007在多个单元格中输入相同的内容和公式 很多时候我们需要在Excel中多个单元格里面输入相同的数值，而且这些单元格可能是多个不相邻的位置，若一个一个手动输入那简直是太浪费时间了，有木有什么更好的方法可以一次性在这些单元格中输入相同的内容呢?本章就为大家详细讲解在Excel中如何在多个单元格中输入相同的内容和公式技巧! 实例如下，本次操作版本为Excel2007，此方法适应于各个版本。 ①首先，选中需要输入相同内容的单元格。按“Ctrl 鼠标左键”点选多个单元格; ②然后在最后一个选中的单
