zoukankan      html  css  js  c++  java
  • 好久不写的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).Delete
    End Sub
    
    Private 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 With
    End Sub
    
    
    
    其他与业务有关的代码这里就不贴出来了
  • 相关阅读:
    扩展kmp
    计算几何板子
    组合数板子
    SecureML: A System for Scalable Privacy-Preserving Machine Learning 论文笔记
    mac任务管理器快捷键
    后缀数组
    poj 1144 Network【图的割点】模板
    CSU 1162【Balls in the Boxes】
    CSU 1111【三家人】数学题
    P1330 封锁阳光大学【二分染色】
  • 原文地址:https://www.cnblogs.com/chenxizhang/p/1705602.html
Copyright © 2011-2022 走看看