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
  • 相关阅读:
    Msql-51CTO笔记
    Elasticsearch 学习第一天
    大数据开发参考资料
    1.docker的安装
    java_根据实体字段中的中文汉字排序
    遍历set集合,进行数据的拼接
    关于integer 和int
    03.linux环境安装mysql8的安装包
    02.linux下面安装jdk8
    01.VMware15.5下安装Centos7
  • 原文地址:https://www.cnblogs.com/dlsunf/p/9361401.html
Copyright © 2011-2022 走看看