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
  • 相关阅读:
    中序遍历
    二叉树前序遍历
    A Real Stewart
    走遍美国 听写
    2016-12-12——2016-12-16友邻
    英语百日听力
    6.2分鱼问题两种解法
    Bootstrap组件1
    Bootstrap图标及另一个好用图标网站介绍
    Bootstrap全局CSS样式之图片
  • 原文地址:https://www.cnblogs.com/dlsunf/p/9361401.html
Copyright © 2011-2022 走看看