TO:初学此文者
刚接触楼主的文件你们可能会对以下问题产生疑问:
1、宏表如何插入:
ctrl+f11
2、宏表如何隐藏:
运行以下代码为深度隐藏
Sub Hide()
ThisWorkbook.Sheets("Macro").Visible = 2 '-1为解除隐藏
End Sub
隐藏后将上述代码删除。
3、如何复制上述宏表在其他工作表中使用
A、在新表中建立一个宏表
B、将楼主宏表中的内容复制到新宏表中
C、在VBE中插入一个新模块,将楼主的
Public Sub AddName() '在工作表中插入"Macro! auto_activate名称
dim sh
For Each Sh In ActiveWorkbook.Sheets
If Not ChkName(Sh.Name) Then
ActiveWorkbook.Names.Add Name:=Sh.Name & "!auto_activate", RefersToR1C1:= _
"=Macro!R1C1"
End If
Next
End Sub
Function ChkName(ByVal Sh As String) As Boolean
Dim Ck As Boolean,nm
For Each nm In ActiveWorkbook.Names
If InStr(UCase(nm.Name), UCase(Sh)) > 0 Then
Ck = True
Exit For
End If
Next
ChkName = Ck
End Function
复制到新模块中,运行一下后,删除代码! 保存后退出,重新打开试一下。:)
[此贴子已经被作者于2005-6-6 15:34:14编辑过] |