最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

Excel自定義關(guān)閉按鈕實(shí)現(xiàn)代碼

 更新時(shí)間:2020年12月03日 14:46:48   作者:手撕高達(dá)的村長  
這篇文章主要介紹了Excel自定義關(guān)閉按鈕實(shí)現(xiàn)代碼,文中通過示例代碼介紹的非常詳細(xì),對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友可以參考下

遇到過這樣一個(gè)需求,是在excel關(guān)閉的時(shí)候,不要excel本身的保存窗口,只用自定義的.

這個(gè)的需要第一,是點(diǎn)擊關(guān)閉時(shí)候觸發(fā),

第二;觸發(fā)后,不能還是彈出那個(gè)窗口

第三:取消后,要能停止程序

為了弄這個(gè)摸索了很久,最后總算通過結(jié)合,找出了解決辦法:

先執(zhí)行

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If C_Msg.PostA("Com_Err023", , True, 1) = vbOK Then
 
     Dim xxx As String
     xxx = "Yes"
    Cancel = False
   Else
     Dim sss As String
      sss = "No"
      Cancel = True
   End If
End Sub

再執(zhí)行

Sub Auto_Close()
 
    ThisWorkbook.Saved = True
    If Application.Workbooks.Count = 1 Then
      Application.Quit
    End If
    'ThisWorkbook.Close False
End Sub

以上就是本文的全部內(nèi)容,希望對大家的學(xué)習(xí)有所幫助,也希望大家多多支持腳本之家。

相關(guān)文章

最新評論

万年县| 河曲县| 绥化市| 凤翔县| 清水河县| 阜宁县| 凤城市| 永善县| 正镶白旗| 澄城县| 交城县| 娄底市| 伊宁县| 佛山市| 洛川县| 高碑店市| 奉新县| 玉龙| 凌源市| 灯塔市| 临海市| 什邡市| 宁南县| 淄博市| 泸州市| 句容市| 昭平县| 嘉荫县| 永顺县| 漠河县| 汕尾市| 博野县| 拉萨市| 阳泉市| 贺州市| 庆阳市| 宁波市| 叙永县| 漠河县| 垣曲县| 鄂伦春自治旗|