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
    
    
    
    其他与业务有关的代码这里就不贴出来了
  • 相关阅读:
    npm install 的时候报错 (Unexpected end of JSON input while parsing near)
    vue 父子组件以及非父子组件如何通信
    webstorm 破解版下载及破解教程------永久使用
    判断数据类型
    洗牌算法
    原生js实现图片懒加载
    React(^16.8) 新增特性Hook
    Blob、ArrayBuffer、File、FileReader和FormData的区别
    React中的Dom操作
    微信小程序填坑总结
  • 原文地址:https://www.cnblogs.com/chenxizhang/p/1705602.html
Copyright © 2011-2022 走看看