精华内容
下载资源
问答
  • VBA示例之 求人不如自已动手 取得当前激活窗口句柄及标题,供初学者参考,大牛勿进~~~~~~~
  • vba模拟键盘鼠标操作和窗口激活

    千次阅读 2020-05-01 17:51:09
    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _ ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Declare Function GetCursorPos Lib "u...

    键盘鼠标操作

    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
    ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
    Public Const MOUSEEVENTF_MOVE = &H1
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8
    Public Const MOUSEEVENTF_RIGHTUP = &H10
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Public Const MOUSEEVENTF_MIDDLEUP = &H40
    Public Const MOUSEEVENTF_ABSOLUTE = &H8000
    
    Type POINTAPI
        x As Long
        y As Long
    End Type
    
    Sub saveTextFile()
        Dim Cp As POINTAPI
        GetCursorPos Cp							'save now cursor's address to Cp
        SetCursorPos Cp.x, Cp.y                 'move cursor to Cp's address
        For i = 1 To 2                          'Click 2 times
            mouse_event &H2, 0, 0, 0, 0         'mouse_event &H2 + &H4,left click and up
            mouse_event &H4, 0, 0, 0, 0
        Next
        Application.SendKeys "abc"
        'Debug.Print 1
        Application.Wait (Now + TimeValue("0:00:01"))		'sleep 1s
        ' Debug.Print 2
        Application.SendKeys "xyz"
        Application.Wait (Now + TimeValue("0:00:01"))
        For i = 1 To 22
            Application.SendKeys "^v"			'ctrl+v , paste 20 times
        Next
      
        Application.SendKeys "^s"				'ctrl+s, save file
        Application.SendKeys "^p"               'ctrl+p-->print
        'mouse_event &H8 + &H10, 0, 0, 0, 0     'MOUSEEVENTF_RIGHTDOWN and MOUSEEVENTF_RIGHTUP
    End Sub
    

    打开窗口

    SHELL的第二个参数

    常数描述
    vbHide0窗口是隐藏的,并且焦点被传递给隐藏窗口。
    vbNormalFocus1窗口拥有焦点,并且恢复到原来的大小与位置。
    vbMinimizedFocus2窗口缩小为图符并拥有焦点。
    vbMaximizedFocus3窗口最大化并拥有焦点。
    vbNormalNoFocus4窗口被恢复到最近一次的大小与位置。当前活动窗口仍为活动窗口。
    vbMinimizedNoFocus6窗口缩小为图符。当前活动窗口仍为活动窗口。
    '''打开3个记事本,写点内容,再按打开的顺序关闭,不保存。
    Sub testAppActivate()
        Dim windowCodeList As New Collection
        For i = 1 To 3
            a = Shell("notepad", 1)
            Application.SendKeys a
            windowCodeList.Add (a)
            Debug.Print a
        Next i
        For Each i In windowCodeList
            Debug.Print i
            'Application.Wait (Now + TimeValue("00:00:01"))
            AppActivate i, False
            Application.Wait (Now + TimeValue("00:00:01"))
            Application.SendKeys "%{f4}"
            Application.SendKeys "n"
        Next i
    End Sub
    

    激活窗口

    参数是窗口的标题(可以是本来就打开的窗口)或者shell的返回值(只能是vba用shell打开并拿到返回值)

    • AppActivate “1.txt - 记事本”
    • AppActivate shell的返回值
    展开全文
  • https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/appactivate-statement AppActivate 语句语法具有下列命名参数: title 必需。 时间 可选。 毫秒? 特点: 这个是激活已经...

    1 如何打开其他非VBA程序,shell()

    如何打开其他程序,多种方法

    • 点 "运行"时,输入程序的名字,打开
    • Windows菜单的图形化图标打开程序
    • VBA里可以用 shell 打开其他程序
    • 如果是系统自带的程序,可以直接用程序名如 notepad.exe,否则就用 完整路径更保险。

    Shell(pathname[,windowstyle])
    Shell 函数的语法含有下面这些命名参数:

    • pathname 必要参数。Variant (String),要执行的程序名,以及任何必需的参数或命令行变量 Windowstyle
    • 可选参数。Variant (Integer),表示在程序运行时窗口的样式。
    • 如果 windowstyle省略,则程序是以具有焦点的最小化窗口来执行的。
    • 所以一般要带参数 ,1 或者 vbNormalFocus
    • 下面是常用参数
      在这里插入图片描述
    • 经过测试: 非系统性文件需要有完整的路径
    • 系统程序可以用关键词打开,或完整路径都可以 '但是要注意,要带激活的参数,否则可能在后台最小化。
    • 因为QQ等不是windows系统文件,所以需要写完整路径到.exe,不能简写程序名 '后面这种写法是错误的,shell “QQ.EXE”,vbNormalFocus
    Sub test11()
     '经过测试,系统程序可以用关键词打开,或完整路径都可以
     '但是要注意,要带激活的参数,否则可能在后台最小化。
     
      Shell "notepad", 1
     'Shell "notepad.exe", vbNormalFocus
     'Shell "C:\Windows\winsxs\wow64_microsoft-windows-notepad_31bf3856ad364e35_6.1.7600.16385_none_d5642974be118415\notepad.exe", vbNormalFocus
     
     'Shell "calc"
     'Shell "calc.exe"
     'Shell "C:\Windows\winsxs\x86_microsoft-windows-calc_31bf3856ad364e35_6.1.7601.17514_none_abc56b2678fe1108\calc.exe"
    
     'Shell "control"
     'Shell "control.exe"
     
      Shell "C:\Program Files (x86)\Tencent\QQ\Bin\QQ", 1
      '因为QQ等不是windows系统文件,所以需要写完整路径,不能简写程序名
      '后面这种写法是错误的,shell "QQ.EXE", vbNormalFocus
      
    
    End Sub
    

    shell打开的程序,可以作为函数返回值,被调用
    Dim RetVal
    RetVal = Shell(“C:\WINDOWS\CALC.EXE”, 1) ’

    2 激活和其他其他程序 (中文操作系统,注意程序名) AppActivate()

    VBA.AppActivate title [, wait ]

    https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/appactivate-statement
    AppActivate 语句语法具有下列命名参数:
    title 必需。

    • titile 是必须的,是文本 “” ,而且支持模糊查询。
    • 比如 “WORD” 或 “Microsoft word”
    • 也支持用目标程序的线程ID,Shell函数有一个Double型的返回值。这个返回值里存的是目标程序的线程ID,可以 配合Appactive。

    时间 可选。 毫秒?
    特点:

    • 这个是激活已经启动的程序,而不会自动开启程序
    • 这里的title需要以 字符串的形式 “” 出现,并且支持模糊查找,多个只会任意激活1个。
    • 被激活的程序,之前是最大化还是最小化,还会保持原状,不会直接放大,会选中在任务栏里的小APP图标
    • 而在桌面的程序,会被激活后选中在前台。

    实测发现的问题

    • 实测发现,AppActivate “calc” AppActivate “calc.exe” 都不行
    • 但是AppActivate “计算器” 可行
    • 估计原因是,因为电脑是中文WIN7,所以系统的执行程序还是 calc.exe,系统的进程名也是calc.exe,但是电脑里的程序命名为中文的 计算器。
    Sub test12()
      AppActivate "计算器"   'AppActivate "calc"  AppActivate "calc.exe" 都不行
      AppActivate "记事本"   'AppActivate "notepad" AppActivate "notepad.exe"  都不行
      AppActivate "QQ"       '或"QQ",可模糊,不想模糊就提供精确名字, 不能是QQ.EXE
      
      '这也不行 C:\Windows\winsxs\wow64_microsoft-windows-notepad_31bf3856ad364e35_6.1.7600.16385_none_d5642974be118415\notepad.exe
      '这也不行 AppActivate "C:\Windows\winsxs\wow64_microsoft-windows-notepad_31bf3856ad364e35_6.1.7600.16385_none_d5642974be118415\notepad.exe"
    
    End Sub
    
    

    3 发送按键操作其他程序 sendkeys()

    sendkeys string [,wait]
    实测发现的问题

    • 首先需要打开程序,shell “calc.exe”

    • 打开程序后不能马上调用AppActivate “计算器”,否则会报错

    • 我现在是加了个延迟 Application.Wait (Now + TimeValue(“00:00:02”))

    • 或者先用其他过程打开 "calc.exe"也行

    • 一个是AppActivate “计算器”, 需要用中文,而不能用 AppActivate “calc”

    • 参数[,wait] 可以是true,也可以是毫秒数?

    • 如果 AppActivate “计算器”,5000 并不是只等5秒。。。好像需要点击VBE才激活?

    • 而写 AppActivate “计算器” 就会马上执行

    '这个是MSDN官方例子,实际不好用,估计是因为作者是用的英文windows,所以可以
    Dim ReturnValue, I 
    ReturnValue = Shell("CALC.EXE", 1)    ' Run Calculator. 
    AppActivate ReturnValue     ' Activate the Calculator. 
    For I = 1 To 100    ' Set up counting loop. 
        SendKeys I & "{+}", True    ' Send keystrokes to Calculator 
    Next I    ' to add each value of I. 
    SendKeys "=", True    ' Get grand total. 
    SendKeys "%{F4}", True    ' Send ALT+F4 to close Calculator.
    
    
    Sub test1301()
    
    Shell "calc.exe", 1
    Application.Wait (Now + TimeValue("00:00:02"))
    
    Dim i
    AppActivate "计算器"
    
    SendKeys "C", True
    
    For i = 1 To 10
        SendKeys i & "{+}", True
        Debug.Print i
    Next
    
    End Sub
    

    或者这样也可以

    Sub test1300()
    
       Shell "calc.exe", 1
       Application.Wait Now() + VBA.TimeValue("00:00:03")
       Call test1301
    End Sub
    
    Sub test1301()
    Dim i
    AppActivate "计算器"
    
    SendKeys "C", True
    
    For i = 1 To 10
        SendKeys i & "{+}", True
        Debug.Print i
    Next
    
    End Sub
    

    实测按键
    计算器的按键 C 不是 “c” ,但是试了 "clear"也不行,没做到计算前清除计算器的内容。
    SendKeys “clear”, True
    SendKeys “{clear}”, True

    sendkeys的按键
    https://docs.microsoft.com/zh-cn/office/vba/api/excel.application.sendkeys

    Keys 参数可指定任何单个键或与 Alt、Ctrl 或 Shift 的组合键(或者这些键的组合)。 每个键均可用一个或多个字符表示,例如,“a” 表示字符 a,"{ENTER}" 表示 Enter 键。

    单键输入
    字母键等,一般用 “a” “k” “5”
    功能键,一般用 “{enter}” “{clear}” “{esc}” “{F1}”

    组合输入:般是指顺次输入
    Application.SendKeys (“1234{Enter}”) '表示顺次输入 1 2 3 4 enter

    组合键:表示同时按下
    shift+c, 使用 “+c” '表示同时输入 按下 shift+c+e
    ctrl+c, 使用 “^c”
    alt+c, 使用 “%c”

    复合组合键:优先识别组合键,包括()内的,然后顺次执行
    shift+C+E, 使用 “+(ce)” '表示同时输入 按下 shift+c+e
    shift+C+E, 使用 “+ce” '表示同时输入 按下 shift+c,然后执行e

    重复按键:使用 {key number} 的形式,中间加空格,{D 9} 表示重复按9次D
    {D 9} 表示重复按9次D
    {down 9} 表示重复按9次down箭头

    Sub 退出()
      Application.Quit
      Application.SendKeys "Y"
    End Sub
    
    展开全文
  • vb6重复打开时激活显示原程序窗口 使用函数FindWindow,SetForegroundWindow
  • 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

    展开全文
  • 一 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文件

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

     

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

     

     

     

    展开全文
  • QQ vba 登 录

    2013-03-15 12:24:39
    Sub QQ() On Error Resume Next With CreateObject("InternetExplorer.application") .Visible = True ... Do Until .readystate = 4 ... .document.getelementbyid("u").Value = "123456789" ... .document....
  • 激活窗口(Inactive Window)
  • 【VBS教程3】 VBS如何激活指定窗口

    千次阅读 2019-04-21 09:49:15
    【VBS教程3】 VBS如何激活指定窗口
  • 仿QQ窗体,VBA代码

    2013-01-04 15:25:55
    仿QQ窗体,VBA代码,非常好的例子,希望大家学习一下
  • VBA自学应用(2)——制作简单的数据录入窗口

    万次阅读 多人点赞 2019-12-29 19:24:50
    制作简单的数据录入窗口 一、画一个你的窗体 二、编写窗体代码 三、使用工作表事件激活窗体 四、补充:关于鼠标在listbox中的滚轮实现 现如今有两张表,一张产品表,一张录入表,如图所示。 我们要做出如下效果: ...
  • access-vba之用户登录窗口

    千次阅读 2012-04-06 16:27:38
    界面截图如下: ... 最后,我们通过VBA实现用户的行来源,这样可以保证在科室变化的情况下,用户实时显示每个科室的人员 Private Sub keshi_AfterUpdate() zgy.RowSource = "SELECT 用户查询.ID, 用...
  • VBA调用doc命令,doc窗口关闭之后,继续执行代码 Option Explicit 'Docワィンドワ閉じるした後、後続けの処理実施 Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandel As Long, ByVal...
  • Sub printshapesname() Z = ActiveSheet.Shapes.Count For s = 1 To ActiveSheet.Shapes.Count Debug.Print ActiveSheet.Shapes(s).Name Next End Sub
  • 上一篇:【VBA(十二):使用ActiveX控件】【按钮控件+标签控件+单选按钮控件+微调按钮控件+设计测试系统+小结】 文章目录 窗体 弹窗 控件 复选框控件 文本框控件 组合控件 小结 概念 属性和方法 窗体 了解属性 ...
  • 一个窗口激活或失去激活状态; WM_SETFOCUS = $0007; 获得焦点后 WM_KILLFOCUS = $0008; 失去焦点 WM_ENABLE = $000A; 改变enable状态 WM_SETREDRAW = $000B; 设置窗口是否能重画 WM_SETTEXT = $000C; ...
  • VBA常用技巧

    2014-12-21 16:39:28
    190-5 少用激活或选择语句 12 技巧191 取得文件的基本名称 12 技巧192 防止用户中断代码运行 12 技巧193 加班费计算表 12 技巧194 制作发放条 12 技巧195 费用统计表 12 技巧196 职工花名册 12 技巧197 收据系统 12 ...
  • VBA调用Shell

    千次阅读 2021-08-28 15:32:59
    VBA中执行Shell介绍,打开应用,执行python、bat、mysql;
  • Vba菜鸟教程

    万次阅读 多人点赞 2020-05-02 18:21:15
    文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作...
  • vba操作IE浏览器

    千次阅读 2013-05-22 13:04:04
     vba访问web页面List项目  For i = 0 To count  dataID = "sendForm:recordList:" & i "recordData"  objie.Document.GetElementById(dataID).Value = “strContent”  next  如果strContent又是...
  • 利用VBA开发数据汇总工具通常在日常工作中总会用到Excel并且经常会遇到Excel将多个表格进行汇总。经过工作中的实践,发现用VBA开发具有一定重复性的功能,能够极大提高工作效率。最近,将本人曾开发的的Excel数据...
  • 以Excel 2016为例简单介绍VBA编辑器。
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    一、VBA语言基础...................................................................................................................1 第一节标识符...........................................................
  • 以下都可以判断,2只能有焦点再判断,失去焦点后无效;3可以判断程序本身 1 self.Active 2 self.Showing 3 if GetActiveWindow = handle then
  • 获取当前文件夹的名称(CurDir 函数)当你使用文件时,经常会需要知道当前文件夹的名称,你使用CurDir函数轻易地获取该信息:CurDir([drive])Drive是一可选参数,如果你忽略它,VBA将使用当前驱动(drive)。CurDir函数...
  • 控件数组的概念实际上是VB中的一个概念,在Excel VBA中并不具备此功能。此处所描述的控件数组实际是将数组中各个控件对象组成一个数组。当需要赋值给工作表时,则可以使用该数组进行直接赋值。但该数组的作用域必须...
  • VBA dialogs 调用对话框

    2021-11-03 12:05:43
    Application.Dialogs(1).Show是调用打开对话框 Application.Dialogs(5或145).Show是调用另存为对话框, Application.Dialogs(6).Show是删除文档 ...Application.Dialogs(12).Show是重排窗口设置...
  • Excel VBA技巧实例手册

    2016-07-28 22:29:39
    第1篇 ExcelVBA基础 第1章 了解Excel宏 1.1 创建宏 技巧001显示“开发工具”选项卡 技巧002录制第一个宏 技巧003在VBE中创建宏 1.2 管理宏 技巧004运行宏 技巧005编辑宏 技巧006保存宏 技巧007设置宏的安全性 第2...

空空如也

空空如也

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

vba激活窗口