精华内容
下载资源
问答
  • 如果只要 获取一个确定名字的窗口标题 ,在VBA中使用,比如切换窗口。打开任务管理器,看看就对了。懒人做法。有示例源码

    如果只要 获取一个确定名字的窗口标题 ,在VBA中使用,比如切换窗口。打开任务管理器,看看就对了。懒人做法。

    如下: 


    以下仅供参考,为了找放映窗口标题,实现在PPT放映窗口与其他窗口间切换,百度N久,基本是垃圾信息,一怒之下自己贴了一个,希望对后来人有用。

    注:没做优化,有没用的代码。


    Sub Main() '启动定时切换
        lngTimerID = SetTimer(0, 0, 1000, AddressOf Update)
        IngTimer1 = SetTimer(0, 1, 10000, AddressOf SwitchWindow)
    End Sub


    Sub stopA()  '关闭定时切换,需要手工按ALT+F8 运行,不会自己运行的
        lngTimerID = KillTimer(0, lngTimerID)
        lngTimerID = KillTimer(1, lngTimerID)
    End Sub

    Sub SwitchWindow()
        Dim app1, app2 As Object
        Dim str1, str2 As String
        Dim sBuffer As String
        Dim lHwnd_1 As Long
        Dim caption1 As String
        Dim cnt As Integer
        
        cnt = 0
        str1 = "无标题 - 记事本" '此处放普通窗口标题名
        str2 = "PowerPoint 幻灯片放映 - [时间更新及窗口切换V100]" '此处放放映窗口标题名
        On Error GoTo EE
        If (bSwitch) Then
            bSwitch = False
            AppActivate str1
        Else
            bSwitch = True
            AppActivate str2
        End If
    EE:    cnt = 1
        
    End Sub

    展开全文
  • 1、修改并获取当前窗口标题 Private Sub test()  Windows(1).Caption = "My Excel"  MsgBox ("当前窗口标题:" & ActiveWindow.Caption) End Sub 注:活动窗口总是Windows(1),...

    1、修改并获取当前窗口标题

    Private Sub test()

       Windows(1).Caption = "My Excel"

       MsgBox ("当前窗口标题:" & ActiveWindow.Caption)

    End Sub

    注:活动窗口总是Windows(1),当前(活动)窗口也可以用ActiveWindow表示。

    2、显示单元格中的公式

    Private Sub test()

       ActiveWindow.DisplayFormulas = True

    End Sub

    注:该属性适用于当前指定的工作表或宏工作表。

    3、隐藏网格线及工作标签

    Private Sub test()

        Worksheets("sheet1").Activate   '设置活动窗口

        ActiveWindow.DisplayGridlines = False   '隐藏网格线

        ActiveWindow.DisplayWorkbookTabs = False    '隐藏工作标签

    End Sub

    注:网格线的设置仅适用于当前或指定的工作表和宏工作表。

    4、调整窗口显示比例

    Private Sub test()

       Windows(1).Zoom = 50 '设置为50%

    End Sub

    5、显示窗口标尺

    Private Sub test()

       Windows(1).DisplayRuler = False

    End Sub

    6、隐藏窗口中的零值

    Private Sub test()

       Windows(1).DisplayZeros = False

    End Sub

    7、选择合适的视图方式

    Private Sub test()

       Windows(1).View = xlPageLayoutView

    End Sub

    Window.View属性取值如下

    说明

    xlNormal

    普通视图

    xlPageBreakPreview

    分页预览视图

    xlPageLayoutVIew

    页面布局视图

    8、保存并关闭工作薄窗口

    Private Sub test()

       Windows(1).Close (True)      ‘设置为false则不保存更改

    End Sub

    展开全文
  • VBA研究】如何防止用户关闭窗体

    万次阅读 2016-01-18 16:45:19
    VBA开发中经常用到窗体,这样界面可以做的漂亮一点,我们甚至可以关闭Excel应用窗口,只保留我们自己的窗口,只需要启动时增加关闭应用显示语句。虽然Excel应用窗口不显示,但不影响工作表的使用,依然可以在工作表...

    iamlaosong文

    VBA开发中经常用到窗体,这样界面可以做的漂亮一点,我们甚至可以关闭Excel应用窗口,只保留我们自己的窗口,只需要启动时增加关闭应用显示语句。虽然Excel应用窗口不显示,但不影响工作表的使用,依然可以在工作表中读写数据。启动窗体语句如下:

    Private Sub Workbook_Open()
        Application.Visible = False
        UserForm1.Show
    End Sub
    

    显示自己的窗口后,一般不希望用户点击“X”直接关闭窗体,而是希望用户点击指定的按钮关闭,因为常常需要在关闭系统请做一些数据处理。

    当用户点击“X”直接关闭窗体时,会激发UserForm_QueryClose事件,可以在这个事件中阻止窗体关闭,代码如下:

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
             If CloseMode = 0 Then Cancel = 1
    End Sub
    

    Closemode的值为0(vbFormControlMenu)表示用户在 UserForm上选择“控制”菜单中的“关闭”命令。----就是点击右上角的叉的情况。

    Closemode的值为1(VbFormCode)表示由代码调用 Unload 语句关闭窗体。----知道 userform.show么?有show方法也有卸载窗口的unload语句,在用unload userform1来卸载窗口的时候 closemode的值为1。

    此外,Closemode的值还有2(vbAppWindows)当前窗口操作环境对话正在结束;3(vbAppTaskManager)“任务管理器”窗口正在关闭应用程序;4(vbFormMDIForm)一个MDI子窗体因为MDI窗体正在关闭而关闭。

    Cancel 参数是个Integer值(整数值),在VBA里面0值表示False 非零值表示True,当Cancel值为True的时候表示当前关闭操作被终止,也就是说窗口是不被允许关闭的。

    注意:Cancel=True表示不允许用户关闭。


    展开全文
  • 一 VBE编辑器 1.0VBE也有好多菜单 值得去仔细研究一遍:开始我是这么想的,看了...VBA的对象层级和引用 语法: 工程.模块.过程(或函数).属性/方法 如果是工程,还需要先设置引用关系? VBE (编辑器-对应EXCE...

    一 VBE编辑器

    1.0VBE也有好多菜单

    • 值得去仔细研究一遍:开始我是这么想的,看了看,实际上,初期重视下 “视图” 这个菜单下的内容就行了
    • 其他的好像都是ms的通用的菜单模板的感觉。

     

    1.2 excel里 VBE相关的各种层级

    VBA的对象层级和引用

    • 语法: 工程.模块.过程(或函数).属性/方法
    • 如果是工程,还需要先设置引用关系?
    1. VBE     (编辑器-对应EXCEL程序 ) :包含多个工程
    2. 类模块,可以跨工程用?
    3. 工程名  (一个完整的项目:1个EXCEL表): 包含多个sheet,1个workbook, 多个模块,多个窗体
    4. 模块      (workbook下的模块,独立于worksheet):包含很多过程,函数
    5. 过程 / 函数

     

     

    二 视图可以打开的各种窗口

    • 视图 菜单下 可以打开各种窗口,工具箱等

     

     

    2.1  VBE的6个视窗---都可以从视图菜单打开

    VBE的窗口界面大约有六个窗口,他们调出和关闭都可以通过视图找到

     

     

     

    • 工程资源管理器:

    • 显示当前VBA工程中包含的所有部件(对象工作簿,工作表,窗体,模块,类模块等)及所有引用的工程;
    • 工程里的对象:工作簿,工作表*N,工作簿*1,模块*N,类模块*?
    • 工程里的各种材料
    • 一个EXCEL工作簿文件就是一个工程的主要部分
    • 实际上一个工程大于一个工作簿

     

    • 代码窗口:

    • 显示和编辑VBA程序代码,这个是最常用的代码窗口;
    • 可以认为是施工的图纸

     

    • 属性窗口:

    • 当前激活的工程部件的主要属性;
    • 详细属性,说明书

    比如,worksheet的visible属性,这样设置为2--xlsheetVeryHidden的无法被取消隐藏

     

    • 监视窗口:

    • 显示被监视的指定表达式的值。
    • 可以右键选择 要监视的变量

     

    • 立即窗口:

    • 执行单行的语句或者显示debug.print所打印的表达式的值。
    • 测试,试验,反馈

     

    • 本地窗口:

    • 显示当前运行过程中所包含变量的值
    • 但代码执行结束会自动清除显示
    • 所以本地窗口像查看的话,需要加断点

     

    2.2 其他几个窗口

    • 对象窗口

    • 还有些 对象浏览器,可以查看所有对象,还有用户窗体菜单等等?!

     

    • (用户窗体的)工具箱

    • 打开用户窗体的工具栏

     

    2.2 VBE的模块可以导入和导出为VBS脚本文件

    VBS文件模块导入导出

     

    2.3 VBE窗口的对象选择框和过程事件选择框

    • 左边是 :对象选择框
    • 右边是: 过程事件选择框
    • 过程分隔线---不同的过程/函数之间会进行分割
    • 边界标识

     

     

    三 VBE里的工程,EXCEL文件等基本概念

    3.1 VBE相关的各种层级

    1. VBE            : VB编辑器(包含多个工程)
    2. Application  :EXCEL,我认为VBE还可以编辑其他软件,如word?
    3. 工程名          :一个工程就是一个EXCEL表
    4. 工程内容:对象,模块 ,用户窗体等  

     

    3.2 VBA的对象层级和引用

    • 语法也是: 工程.模块.过程(或函数)
    • 如果是工程,还需要先设置引用关系?
    •  excel的跨表 和 跨 sheet引用格式,
    • 跨表引用       [] 
    • 跨sheet引用   !
    • =[121.xlsx]Sheet1!$A$1

     

    四 工程窗口

    • 显示工程内的各种资源:工作簿,工作表,模块,类模块,用户窗体等
    • 工作簿
    • 工作表
    • 模块:   模块可以在同一个表内的,多个sheet之间共用
    • 类模块:类模块可以在多个 EXCEL表内共用的
    • 用户窗体

     

    • 4.1  工程窗口内容

    • 但是对象只能到sheet层? Range  cells呢?
    • 模块和类模型,就是模板?类?
    • 用户窗体

     

    4.1 模块是通用的脚本,对象脚本是特殊的

    • 模块,我认为其实也就相当于一个脚本文件
    • 模块,就是存好的代码脚本,文件等,并且是通用的,可以重复调用
    • 而对象默认附带的脚本,则是和对象绑定的

     

    五 属性窗口

    • 显示对象的详细属性,并且支持UI可视化修改
    • 如果是文件夹层次,一般没有属性
    • 如果是文件层次,一般会有属性

    有不少很好玩的属性,比如针对 sheet的

    • visible
    • -1 显示
    • 0 隐藏
    • 2 隐藏且不能取消

     

    六 代码窗口

    6.1 代码窗口构成

    • 对象列表框:没有选中显示通用,有对象的脚本,可以选不同的对象
    • 脚本列表框:这个对象可选的事件!!
    • 切换 过程视图 完整全模块视图

     

    • 边界标识条—用于调试的,加断点

     

    • 左边是 :对象选择框
    • 右边是: 过程事件选择框

     

    6.2 为什么除了模块,还需要对象脚本?

    • 可以在每个对象下,直接加脚本
    • 每个对象下,默认关联着一个脚本,这些脚本是专用的,不是模块化通用的
    • VBE编辑器,每个对象都有一个自己的独特脚本,还可以加无限的模块通用脚本。
    • VBE的窗体对象,还支持绑定在窗体层次的,更细的对象绑定脚本,比如一个小控件,小button


     

    7 用户窗体—加内容

    • 工具箱---也可以点 视图调出来

     

     

     

    8  怎么把代码保存在 personal.xlsb 里?

    参考文档 http://www.360doc.com/content/16/0901/23/27686207_587650572.shtml

    8.1 怎么弄出来?

    • 录制宏的菜单
    • 保存时可以选择 个人宏工作簿
    • 然后,实际随便录个宏
    • 然后就能再工程窗口看到这个 personal.xls了

     

     

    8.2 作用??

    • 这个文件,是在excel内的,跨越多个工程。
    • 让所有电脑里都可以用这些 vba 已经写好的脚本?
    • VBA可以放在通用地方,所有EXCEL都可以用

     

     

    九 其他

    变量声明:模块级的变量声明等

    删除前导出模块为单独的bas文件

    宏的使用相对引用问题,录制时,可以使得是相对的,这样更有适用性?

     

    这里面还有不少有用的东西

     

     

     

    展开全文
  • 删除当前行 Sub deleteCurrentLine() Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.delete Unit:=wdCharacter, Count:=1 End Sub 选中当前行 Sub ...
  • function closeit() //等待10秒自动关闭窗口{ setTimeout("window.opener=null;window.open('','_self');self.close();return false;",10000) //毫秒 return false;} 转载于:...
  • Word VBA教程:Close方法

    千次阅读 2015-05-08 14:03:04
    关闭指定的一个或多个文档。 expression.Close(SaveChanges, OriginalFormat, RouteDocument) expression 必需。该表达式返回以上的一个对象。 SaveChanges Variant 类型,可选。指定保存文档的操作。可以是...
  • 一、浏览器窗口控制 将浏览器最大化显示 browser.maximize_window() 将浏览器最小化 browser.minimize_window() 设置浏览器窗口大小1080,800 ...三、浏览器窗口关闭、浏览器关闭 关闭单个窗口 driver
  • True '显示Excel窗口 xlApp.DisplayAlerts = False Set XlBook = xlApp.Workbooks.Open(p, True, True) '打开EXCEL文件,只读 arr = XlBook.Sheets(1).UsedRange.Value XlBook.Save '保存文件 XlBook.Close '关闭...
  • VBA调用Shell

    2021-08-28 15:32:59
    VBA中执行Shell介绍,打开应用,执行python、bat、mysql;
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    关闭........................................................................7 其他文件函数................................................................7 二、VISUALBASIC程序设计网络教学...............
  • Debug.Print "只有切换wb窗口时才触发,当前wb一直active是不触发的" End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) Debug.Print "window is active now" Debug.Print "只有切换wb窗口时...
  • 如何用VB编程实现 关闭当前窗口的功能啊? 那位高手知道的帮帮忙啊? :我说的是 关闭当前的WINDOWS窗口 比如说我刚刚打开了一个名为ABC 的 文件夹 窗口 我现在想通过 用VB编程来实现关闭该窗口的功能? 请问该如何...
  • 1 问题陈述 在发展中,遇到这样的问题: ...且在窗口关闭后。仍有线程在工作。 本文将针对此类问题,进行重现并提出解决方式。   2 场景再现 @场景1 新建Windows应用程序CloseWindow...
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
  • 创建文字样式能够获得当前计算机中可用的字体列表;文字按插入点自动对齐提供了对自定义数据类型的数组进行排序的一个思路;提取多行文字中的文字内容对AutoCAD中多行文字的格式代码进行了分析。使用ObjectDBX实现的...
  • VBA 隐藏指定workbook

    2019-11-02 20:46:47
    打开一个excel文件前需要验证时可用先隐藏该文件,然后通过验证后再设置为可见 代码: ... Windows("****.xlsm").Visible = False '将当前workbook 设置为不可见 Login.Show '验证窗口 End Sub ...
  • 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 保存指定工作表为工作簿...
  • vb之窗体关闭事件

    万次阅读 2014-11-29 19:12:10
    当一个 MDIForm 对象关闭时,QueryUnload 事件先在MDI 窗体发生,然后在所有 MDI 子窗体中发生。如果没有窗体取消 QueryUnload 事件,该 Unload 事件首先发生在所有其它窗体中,然后再发生在 MDI 窗体中。当一...
  • 获取当前文件夹的名称(CurDir 函数)当你使用文件时,经常会需要知道当前文件夹的名称,你使用CurDir函数轻易地获取该信息:CurDir([drive])Drive是一可选参数,如果你忽略它,VBA将使用当前驱动(drive)。CurDir函数...
  • 这篇文章主要介绍Selenium爬虫获取当前窗口句柄、切换窗口句柄以及调用Chrome浏览器几个知识点,其中获取当前句柄的方法是非常重要的一个知识点,只有真正遇到的时候才能体会到它的强大。我爬虫主要使用Selenium、...
  • Excel_VBA教程

    2014-09-22 11:36:34
    1.获取当前文件夹的名称(CURDIR函数) 144 2.更改文件或文件夹名称(NAME函数) 145 3.检查文件或文件夹是否存在(DIR函数) 145 4.获得文件修改的日期和时间(FILEDATETIME函数) 147 5.获得文件大小(FILELEN函数...
  • VBA常用代码合集

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

    2013-08-05 09:03:19
    VBA常用技巧 目录 VBA常用技巧 1 第1章 Range(单元格)对象 10 技巧1 单元格的引用方法 10 1-1 使用Range属性 10 1-2 使用Cells属性 11 1-3 使用快捷记号 11 1-4 使用Offset属性 12 1-5 使用Resize属性 13 1-6 使用...
  • 文件打开、保存、备份、关闭等;工作表选取、删除、移动等;单元格定位、格式、合并等
  • 很多人忙于工作,疲于工作,烦于工作,不知道VBA是一道独特的风景,需要你的欣赏,需要你用心去开发。在我20多年的VBA实践中,越来越感到...271 ActiveSheet.Protect userinterfaceonly:=True 保护当前工作表272 Ac...
  • 如何调试Excel VBA代码

    千次阅读 2019-06-03 03:08:50
    Excel VBA出错时给出的错误信息极少,需要充分利用各种工具来进行调试。 1.编译错误 常见的编译错误有: 错误的源代码格式,比如if后面缺少then:在编辑器中该行会变成红色。 错误的语法结构,比如if和end if没有...
  • VBA入门

    千次阅读 2018-08-13 23:37:49
    1.VBA代码:VBA的代码组成了VBA程序。 2.过程:用VBA代码把完成一个任务的所有操作保存起来就是一个VBA过程。 3.模块:是保存过程的地方,一个模块可以有多个过程。 4.对象:就是代码操作和控制的东西。 ...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    7 关闭........................................................................ 7 其他文件函数................................................................ 7 二、VISUAL BASIC程序设计网络教学..........

空空如也

空空如也

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

vba关闭当前窗口