zoukankan      html  css  js  c++  java
  • 【VBA】标准Sub/Function定义,带ScreenUpdating、On Error GoTo

    【说明】

    标准Sub/Function定义,带ScreenUpdating、On Error GoTo

    Sub AutoFillRole()
        '--------------- ERROR MSG------------------------------
        On Error GoTo errorhandle:
        'On Error Resume Next
        '--------------- ERROR MSG------------------------------
        Application.ScreenUpdating = False
    
    
    
    
    
    
        Application.ScreenUpdating = ture
    
        '--------------- ERROR MSG------------------------------
        Exit Sub
    errorhandle:
        If Err.Number > 0 Then
            MsgBox Err.Description & " " & Err.Number
        End If
        '--------------- ERROR MSG------------------------------
    End Sub
    Function FindRole(key As String) As String
        '--------------- ERROR MSG------------------------------
        On Error GoTo errorhandle:
        'On Error Resume Next
        '--------------- ERROR MSG------------------------------
        Application.ScreenUpdating = False
        
    
    
    
    
    
    
        Application.ScreenUpdating = ture
        '--------------- ERROR MSG------------------------------
        Exit Function
    errorhandle:
        If Err.Number > 0 Then
            MsgBox Err.Description & " " & Err.Number
        End If
        '--------------- ERROR MSG------------------------------
    End Function
  • 相关阅读:
    FastAdmin Shopro商城安装
    MYSQL ERROR 10060
    宝塔命令
    kdevtmpfsi挖矿病毒处理
    VUE安装
    原生JS请求(AJAX)
    Bootstrap: 模态框组件
    Bootstrap: 缩略图组件
    Bootstrap: 栅格系统
    Bootstrap: 下拉菜单组件 & 分页组件
  • 原文地址:https://www.cnblogs.com/dlsunf/p/9361401.html
Copyright © 2011-2022 走看看