精华内容
下载资源
问答
  • 在excel应用程序中,我们在执行代码的时候,会弹出是否要确认执行该处理提示框。当然这个提示框不是我们用msgbox函数做出来的,而是系统自带用来防止误操作带来的影响。但是有时候我们并不希望有这个提示框,因为会...

    在excel应用程序中,我们在执行代码的时候,会弹出是否要确认执行该处理提示框。

    当然这个提示框不是我们用msgbox函数做出来的,而是系统自带用来防止误操作带来的影响。

    但是有时候我们并不希望有这个提示框,因为会影响我们的操作效率。那么如何去掉这个提示框呢?

    此代码的作用是删除工作簿中所有非正在活动的表格。运行程序,你会发现每次删除都会弹出下面的对话框Sub delSheet()

    Dim sht As Worksheet

    For Each sht In Worksheets

    If sht.Name <> ActiveSheet.Name Then

    sht.Delete

    End If

    Next

    End Sub

    cda033f7cf2a84dc87e03572cd3578fc.png

    解决办法:

    添加DisplayAlerts属性为FALSE,可以关闭程序运行中是否显示警告信息。

    注意:设置为false,要谨记在程序运行完重新设置为true!Sub delSheet()

    Dim sht As Worksheet

    Application.DisplayAlerts = False

    For Each sht In Worksheets

    If sht.Name <> ActiveSheet.Name Then

    sht.Delete

    End If

    Next

    Application.DisplayAlerts = True

    End Sub

    展开全文
  • Excel VBA之立即窗口

    千次阅读 2020-06-03 11:46:20
    立即窗口介绍: 1.在VB编辑器窗口,选择“视图”-“立即窗口” 在决定使用在你自己的VBA过程之前,立即窗口可以用来试验VB语言中不同的指令,函数和运算符。...立即窗口允许你输入VBA语句,并且测试它们...

     立即窗口介绍:

     

     

    1.在VB编辑器窗口,选择“视图”-“立即窗口”
    在决定使用在你自己的VBA过程之前,立即窗口可以用来试验VB语言中不同的指令,函数和运算符。这是一个非常好的调试新语言的工具,你输入在这个窗口里面的指令,将会立即显示结果。
     

    立即窗口可以在VB编辑器窗口上任意移动,也可以设置为可连接的,这样它就会出现在相同的地方。可以通过选项对话框上的“可连接的”页来打开或关闭可连接设置。在VB编辑器窗口上按下Ctrl+G就可以快速访问立即窗口。立即窗口允许你输入VBA语句,并且测试它们的结果,而不需要写成一个过程。立即窗口就像一个草稿板,你可以用它测试你的语句。如果该语句输出了你希望的结果,你就可以将立即窗口上的语句复制到你的过程中去(或者,你也可以将语句拖曳到代码窗口,如果代码窗口是可见的)

    Worksheets("Tabelle1").Activate
    Range("A1:A4").Select
    [A1:A4].Value = 55
    Selection.ClearContents
    ?Selection.Address
    $A$1:$A$4
    Print ActiveWorkbook.Name
    Try.xlsx
    ?Application.Name
    Microsoft Excel
    ?Application.Name
    ?12/3
     4 
    ?3+2:?12*8
     5 
     96 
    
    

    如图 

     

    运行:

    你每次按下回车键后,Excel总是执行光标所在行的语句。如果你想要再次执行同一指令,那么点击该指令行的任意位置,回车。

    展开全文
  • EXCEL VBA未公开的内部函数,实现自动延时关闭对话框,可自定义延时时间。
  • 如果消息框只是提醒用户,并不需要获取用户的输入,那么使用可以自动关闭的消息提示框,可以避免程序暂停挂起,无法继续执行的问题,但是VBA中提供的MsgBox无法实现自动关闭的功能。下面介绍一个未公开的Windows API...

    MsgBox用于显示提示信息,并且可以根据用户的不同选择执行不同的后续操作。例如:使用如下消息框获取用户选择,如果点击“是”,则继续执行程序,如果点击“否”,则结束程序执行。
    在这里插入图片描述
    但是这将带来一个问题,显示消息框时,代码过程将处于暂停状态,如果用户没有进行选择,后续代码无法执行。
    如果消息框只是提醒用户,并不需要获取用户的输入,那么使用可以自动关闭的消息提示框,可以避免程序暂停挂起,无法继续执行的问题,但是VBA中提供的MsgBox无法实现自动关闭的功能。下面介绍一个未公开的Windows API函数,可以完美实现自动关闭的消息框。
    示例代码如下:

    #If VBA7 And Win64 Then
    Private Declare PtrSafe Function MessageBoxTimeout Lib "user32" _
        Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, _
                                    ByVal lpText As String, _
                                    ByVal lpCaption As String, _
                                    ByVal wType As Long, _
                                    ByVal wlange As Long, _
                                    ByVal dwTimeout As Long) As Long
    #Else
    Private Declare Function MessageBoxTimeout Lib "user32" _
        Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, _
                                    ByVal lpText As String, _
                                    ByVal lpCaption As String, _
                                    ByVal wType As Long, _
                                    ByVal wlange As Long, _
                                    ByVal dwTimeout As Long) As Long
    #End If
    Sub Demo1()
        ' 只有确定按钮
        MessageBoxTimeout 0, "3 秒后自动关闭", "DEMO1", 0, 0, 3000
        MsgBox "VBA消息框", vbOKOnly, "DEMO1-VBA"
    End Sub
    Sub Demo2()
        ' 三个按钮,第二按钮为默认
        MessageBoxTimeout 0, "3 秒后自动关闭", "DEMO2", 275, 0, 3000
        MsgBox "VBA消息框", vbDefaultButton2 + vbCritical + vbYesNoCancel, "DEMO2-VBA"
    End Sub
    

    运行Demo1,依次显示如下两个消息框,第1个消息框3 秒后自动关闭。
    在这里插入图片描述在这里插入图片描述

    运行Demo2,依次显示如下两个消息框,第1个消息框3 秒后自动关闭。
    在这里插入图片描述在这里插入图片描述
    【代码解析】
    第1~17行代码声明API函数MessageBoxTimeout
    第2~8行代码是适用于64位系统的声明函数。
    第10~16行代码是适用于32位系统的声明函数。
    API函数的参数看似复杂,其实和VBA中的MsgBox函数时类似的。

    参数含义MsgBox对应参数
    hwnd窗口句柄-
    lpText消息框提示信息prompt
    lpCaption消息框标题title
    wType消息框类型buttons
    wlange函数扩展,通常为0-
    dwTimeout延迟关闭时间,单位毫秒-

    第25行代码中wType参数值为275,相当于下面三个VBA常量值的和。

    VBA常量常量值
    vbDefaultButton2256
    vbCritical16
    vbYesNoCancel3

    在Office VBA使用此API函数时,可以直接使用这些常量值,代码如下:

    MessageBoxTimeout 0, "3 秒后自动关闭", "DEMO2", vbDefaultButton2 + vbCritical + vbYesNoCancel, 0, 10000
    
    展开全文
  • 自动关闭 Msgbox对话框: Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As VbMsgBoxStyle, ...

    自动关闭 Msgbox对话框:

    Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As VbMsgBoxStyle, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
    
     Private Sub 测试自动关闭对话框()
        MsgBoxEx 0, "显示内容:2秒后自动关闭", "标题", vbYesNo + vbInformation, 1, 2000
     End Su

    错误捕捉:

    例子一:

    On Error Resume Next  '如果遇到错误,不管错误,继续往下执行,但如果嵌套了其他错误处理语句,这些错误处理语句还是会按照自己规则运行
          语句xxxx
    On Error GoTo 0 ’结束错误捕捉

    例子二:

    Sub 例子过程()  
    
        On Error GoTo Err_Handle                 '之后语句出错则跳转至 Err_Handle 标签处
    
                 处理语句1                                        '若出错,则跳转到 Err_Handle
    
         On Error GoTo 0                             '跳出错误捕捉,之后语句若出错,自动弹出出错框  
                 处理语句2                                   '若出错则弹出错误,可调试或结束
    
           Exit Sub   '如果没有这个退出过程语句,会一直执行下去
    Err_Handle:
            MsgBox ("不存在该数字")
    
    End Sub
    

    转载于:https://blog.51cto.com/alun51cto/2392898

    展开全文
  • 该楼层疑似违规已被系统折叠隐藏此楼查看此楼跪求各位大神,最近因为VBA调用IE的问题弄得焦头烂额,深夜3点还是睡不着,小弟VBA小白一枚,在大量百度各种求救无奈之下发此贴,肯请各位老师帮忙看看下面代码的问题,...
  • 1 Scripting Host(WSH)的Popup方法--测试不好用? 不知道为啥测试不好用 测试情况,也不能显示倒计时秒数, Sub test_sample1() 'Scripting Host(WSH)的Popup方法。...w1.popUp "3秒自动关闭", ...
  • 值得去仔细研究一遍:开始我是这么想的,看了看,实际上,初期重视下 “视图” 这个菜单下的内容就了 其他的好像都是ms的通用的菜单模板的感觉。 1.2 excel里 VBE相关的各种层级 VBA的对象层级和引用 语法...
  • VBA调用doc命令,doc窗口关闭之后,继续执行代码 Option Explicit 'Docワィンドワ閉じるした後、後続けの処理実施 Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandel As Long, ByVal...
  • VBA文件夹,直接解压后,放到%Common Files%\microsoft shared下, 再通过win+r调出CMD窗口,输入regedit后弹出注册表编辑器, 找到HKEY_CLASSES_ROOT\TypeLib\{0002E157-0000-...关闭已经打开的OFFICE,再打开就可以了
  • 很多人忙于工作,疲于工作,烦于工作,不知道VBA是一道独特的风景,需要你的欣赏,需要你用心去开发。在我20多年的VBA实践中,越来越感到此处风景独到,此处风景独好,希望大家利用VBA,开垦VBA,让代码为你服务。我...
  • VBA常用技巧

    2014-12-21 16:39:28
    45-2 单击工作簿关闭按钮关闭工作簿 12 技巧46 禁用工作簿的关闭按钮 12 技巧47 保存工作簿的方法 12 47-1 使用Save方法 12 47-2 直接保存为另一文件名 12 47-3 保存工作簿副本 12 技巧48 保存指定工作表为工作簿...
  • VBA异常后弹框提示

    千次阅读 2017-05-09 22:40:58
    VBA异常后弹框提示
  • 目录 码 MsgBox函数 各个参数与提示对话框的联系​ ...使用MsgBox函数弹出提示窗口提示程序运行结果。 码 Option Explicit Function 弹出对话框() MsgBox _ prompt:="警告信息", _ Buttons:=vbCritic...
  • CorelDRAW VBA - 第一个Hello World程序

    千次阅读 2018-01-10 20:44:33
    这篇教程将教会你使用 CorelDRAW 来编写一个只有1行VBA代码的入门程序,其效果是:在文档中创建了任意图形后,会弹出一个消息框,显示“Hello, World!”。 下面将演示如何用 CorelDRAW 软件来开发这样的程序,本...
  • Vba菜鸟教程

    万次阅读 多人点赞 2020-05-02 18:21:15
    文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作...
  • 实际上,还可以通过编写一简单的VBA代码实现这种功能。下面我们来看看具体操作。1、启动Excel并打开工作表,按“Alt+F11”键打开Visual Basic编辑器。创建1个模块,然后在该模块的代码窗口中创建两个过程并分别...
  • 让VB在关闭窗口提示

    热门讨论 2008-07-16 16:32:25
    像迅雷一样,很多程序在关闭窗口前都有诸如是否确定退出程序的提示。有了这个提示,可以有效地防止因错误的操作而带来的不必要的麻烦。我们自己的VB程序要想也有此功能,关键是要截获关闭信息,以及在用户不想关闭时...
  • False为悬浮窗体 弹窗 双击打开Excel文件,弹窗提示关闭Excel 代码 控件 复选框控件 用来多项选择使用 文本框控件 TableIndex属性 按下Tab键时的切换顺序 PasswordChar属性 密码字符 代码 组合控件 原数据 代码 小...
  • 删除当前 Sub deleteCurrentLine() Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.delete Unit:=wdCharacter, Count:=1 End Sub 选中当前 Sub ...
  • 利用VBA开发数据汇总工具通常在日常工作中总会用到Excel并且经常会遇到Excel将多个表格进行汇总。经过工作中的实践,发现用VBA开发具有一定重复性的功能,能够极大提高工作效率。最近,将本人曾开发的的Excel数据...
  • 获取当前文件夹的名称(CurDir 函数)当你使用文件时,经常会需要知道当前文件夹的名称,你使用CurDir函数轻易地获取该信息:CurDir([drive])Drive是一可选参数,如果你忽略它,VBA将使用当前驱动(drive)。CurDir函数...
  • 有一份Excel报表,里面有1w多条数据,并且有一列是IP地址,老板说,把每一的IP对应的中文地址信息找出来。OMG,这怎么办???琢磨了一下,整理了思路:操作excel数据最好的方法->vba->vba通过给定的ip地址向...
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
  • 题 使用窗体制作登录界面,实现...在工作簿的Open事件中添加显示窗体的代码,并将Excel程序对象的Visible属性设置为False,以隐藏Excel程序,当窗体关闭时,再将该属性设置为True。 步骤1 将Sheet2作为存储用户名...
  • VBA常用代码合集

    千次阅读 多人点赞 2020-12-19 11:13:11
    VBA常用代码模版Tp0️⃣—零零散散小功能(持续更新)Tp1️⃣—输出活动页面筛选后的行数Tp2️⃣—创建数组存放数据Tp2-1 静态数组Tp2-2 动态数组Tp3️⃣ 创建字典存放数据Tp4️⃣ 优化代码运行速度 Tp0️⃣—零零散...
  • Excel VBA(08)窗体和控件

    千次阅读 2020-04-29 16:36:58
    基础部分 一、窗体的基本操作 1、窗体插入 2、运行窗体 ...要么用代码调用窗体的 show 方法 3、关闭窗体 代码关闭是 unload testform方法 ...背景图片:picture,代码里面可以...属性窗口里面可以查看 5、位置大小 to...
  • VBA中启动其它程序

    2021-10-03 13:40:56
    VBA中启动其它程序前言VBA自带的Shell方法语法示例参数返回值WshShell对象WshShell对象的Run()方法语法:示例:参数:返回值:WshShell对象的exec()方法语法:示例:参数返回值Run()方法与Exec()方法的差异 前言 在程序...
  • 由于业务需要,VBA又不适合于不熟悉代码的同事使用因此将原来的VBA代码改成Python代码并封装,后续有机会在进行改善完整代码 import xlrdimport xlwtfrom xlutils.copy import copyfrom tkinter import *def run1():...
  • (2019.08.02更新)本文内容在Windows10企业版64bit下测试通过本文主要内容:Oracle环境配置ODBC驱动设置、第三方驱动下载VBA连接Oracle连接方法Oracle10g官方免账号下载地址(2020年1月10日更新)关于连接数据库的问题...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,900
精华内容 1,160
关键字:

vba关闭提示窗口

友情链接: cfserl.rar