好久不写的VBA代码

今天在解决一个问题的时候，使出了很久不用的VBA。这是在Excel里面的一个特殊功能。

下面是代码的一部分，主要是增加和删除快捷菜单

Private Sub Workbook_BeforeClose(Cancel As Boolean)'删除工具条On Error Resume Next    Dim bar As CommandBar    Set bar = Application.CommandBars("CELL")    Dim ctrl As CommandBarControl    bar.FindControl(Tag:=12000).DeleteEnd SubPrivate Sub Workbook_Open()'添加工具条    Dim bar As CommandBar    Set bar = Application.CommandBars("CELL")    Dim ctrl As CommandBarControl            '先判断是否有这个工具条    Dim button  As CommandBarControl    Set button = bar.Controls.Add(Type:=msoControlButton, temporary:=True)    With button        .Caption = "打印标识卡"        .OnAction = "PrintAction"        .Tag = 12000    End WithEnd Sub

.csharpcode, .csharpcode pre{font-size: small;color: black;font-family: consolas, "Courier New", courier, monospace;background-color: #ffffff;/*white-space: pre;*/}.csharpcode pre { margin: 0em; }.csharpcode .rem { color: #008000; }.csharpcode .kwrd { color: #0000ff; }.csharpcode .str { color: #006080; }.csharpcode .op { color: #0000c0; }.csharpcode .preproc { color: #cc6633; }.csharpcode .asp { background-color: #ffff00; }.csharpcode .html { color: #800000; }.csharpcode .attr { color: #ff0000; }.csharpcode .alt {background-color: #f4f4f4;width: 100%;margin: 0em;}.csharpcode .lnum { color: #606060; }其他与业务有关的代码这里就不贴出来了