zoukankan      html  css  js  c++  java
  • 【VBA编程】13.Workbook对象的事件

    Workbook事件用于响应对Workbook对象所进行的操作。

    【BeforeClose事件】

    BforeClose事件用于响应窗口关闭的操作

    在工程资源器中,双击“ThisWorkbook”对象,弹出"ThisWorkbook"窗口,并且选择Workbook,BeforeClose

    并在窗口中写下如下代码:
    【代码区域】

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
        If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
        MsgBox "工作簿已经发生变更,已经保存", vbOKOnly, "测试BeforeClose事件"
        Cancle = True
        End If
    End Sub

    接着保存即可。保存完毕之后,重新打开Excle,编辑后直接退出。则会出现如下结果

    【结果展示】

                                                             

    【BeforeSave事件】

    BeforeSave用于响应保存操作,当保存操作发生时,将触发BeforeSave操作

    与BeforeClose事件操作一致

    【代码区域】

    Private Sub workbook_BeforeSave(ByVal saveAsUI As Boolean, cancel As Boolean)
        sel = MsgBox("真的要保存对工作簿的修改吗?", vbYesNo, "测试BeforeSave事件")
        If sel = vbNo Then
         cancel = True
         End If
    End Sub

    【结果展示】

                                                                  

     【WindowsActivate事件】

    WindowsActivate事件用于保存响应激活窗口的操作,当激活窗口时,首先执行此函数内部的代码,然后执行激活窗口的后续操作

    【代码区域】

    Private Sub workbook_windowsActivate(ByVal wn As Window)
        MsgBox "欢迎使用Excle 2013电子表格处理程序", vbOKOnly, "测试windowsActivate事件"
    End Sub
    Private Sub workbook_windowresize(ByVal wn As Window)
        MsgBox "你已经调整了Excle 2013应用程序的窗口大小", vbOKOnly, "测试windowsActivate事件"
    End Sub

    如下调整窗口大小时:

    【效果展示】

                                                                          

  • 相关阅读:
    自定义input file样式
    input text 不显示输入的历史记录
    白话 P-value
    R博客
    安装NXNET
    形象的解释神经网络激活函数的作用是什么?
    嵌入式选择与L1正则化
    “梯度下降法”理解
    控制台乱码
    R语言快捷键
  • 原文地址:https://www.cnblogs.com/OliverQin/p/6215056.html
Copyright © 2011-2022 走看看