精华内容
下载资源
问答
  • 大家好,我们今日继续讲解VBA代码解决方案的第102讲内容:如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。那么...

    大家好,我们今日继续讲解VBA代码解决方案的第102讲内容:如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。

    15895010c028406fd9af1c3bc3d5d3e2.png

    那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要利用API函数了,利用API函数在窗体的标题栏上添加最大最小化按钮,是非常可行的。

    如下面的代码所示。

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Const WS_MAXIMIZEBOX = &H10000

    Private Const WS_MINIMIZEBOX = &H20000

    Private Const GWL_STYLE = (-16)

    Private Sub UserForm_Initialize() '注意是在此事件下的加载

    Dim hWndForm As Long

    Dim iStyle As Long

    hWndForm = FindWindow("ThunderDFrame

    展开全文
  • 学习资源:《Excel VBA从入门到进阶》第53集 by兰色幻想一、窗体的使用窗体的插入和启用 ①插入菜单--用户窗体 ②工程窗口中右键--插入--用户窗体2. 窗体的运行 ①手工点运行按钮或快捷键F5 ②用代码执行Sub 显示...

    7f48dae948a51d1738dcc3435aea52f2.png

    学习资源:《Excel VBA从入门到进阶》第53集 by兰色幻想


    一、窗体的使用

    1. 窗体的插入和启用

    ①插入菜单--用户窗体

    42cec4b802021ac8ca74f295e8dbb961.png

    ②工程窗口中右键--插入--用户窗体

    d45984a63c82af95728e51d79f402a76.png

    2. 窗体的运行

    ①手工点运行按钮或快捷键F5

    91182063e2973b2b261da555818958e6.png

    ②用代码执行

    Sub 显示窗体()
       入库单.Show   
    End Sub

    3. 窗体的关闭

    ①手工点关闭按钮

    ②用代码执行关闭

    例:单击窗体时关闭窗体。

    Private Sub UserForm_Click()'单击事件
     Unload Me'关闭窗体
    End Sub

    4. 窗体的显示设置

    ①窗体的标题

    这里需要注意,在属性的第一栏“名称”写窗体名称会现在在窗体列(见红框处),如果是需要修改显示出来的窗体标题,则需要设置Captain的值(见黄框处)。

    52d9c60b83fad010b9f1467d25cb1abb.png

    ②窗体的背景色

    有两种方法,一是设置属性中的BackColor颜色值,二是写代码。

    08c48f6c691aa80ef6ff1578dd7cef0f.png
    BackColor显示的是16位的颜色值

    代码示例:写一段点击窗体背景就换变色的代码 。

    提示:用RGB值颜色值(red, green, blue),rnd()函数产生随机值。

    Private Sub UserForm_Click()
     Dim 红 As Byte, 绿 As Byte, 蓝 As Byte
     红 = Rnd() * 255  1
     绿 = Rnd() * 255  1
     蓝 = Rnd() * 255  1
     Me.BackColor = RGB(红, 绿, 蓝)
    End Sub

    f63c8242a9ddaecbdf6f69a3bbfcc4b6.gif
    点击随机变换窗体背景颜色

    ③ 窗体的背景图片

    依旧有两种方法,一是直接在属性栏的Pictrue处点击右边的浏览文件按钮,选择背景图片;二是写代码。

    图片的大小位置有可能和窗体不匹配,如果需要调整图片的话,就通过以下三个属性调整:

    PictureAlignment——调整图片对齐的位置,比如左上角对齐 fmPictrueAlignmentTopLeft、右下角对齐 fmPictrueAlignmentBottomRight等。

    PictureSizeMode——显示背景图片的模式,有三个值:0裁剪图片以匹配窗体大小fmPictureSizeModeClip、1延伸图片以铺满窗体fmPictureSizeModeStretch、3放大图片去适应窗体大小fmPictureSizeModeZoom。

    PictureTilling——是否在窗体重复图片。

    aafb1be0ee9c6af255c6fc56f190e566.png
    UserForm1.Picture=loadpicture(图片路径)
    UserForm1.PictureAlignment
    UserForm1.PictureSizeMode
    UserForm1.PictureSizeMode

    5. 窗体的位置和大小

    61266c632857d9ed319cc2e20c847ca9.png

    height 窗体高

    left top 窗体与excel窗口左边或顶边之间的距离

    Width 窗体的宽度

    StartupPosition 设置窗体启动时的位置,

    6. 窗体显示的一些行为

    ShowModal 设置在窗体显示时,是否可以编辑单元格区域

    f8b07661832b9263fc669bb704ad308f.png

    7. 窗体的删除

    选中窗体,右键,移除即可。

    d8e1753669cfc237ec3df51cb71da5b8.png

    二、控件的使用

    1. 控件的插入

    控件的插入是通过控件工具箱来实现的,控件工具箱中显示的是常用控件,如果想加载其他控件,在控件工具箱点击鼠标右键——附加控件,选择想要加入的控件。

    ecc428483d31fba292ec378e7c212afe.png
    如果没找到工具箱,可以在这个位置找到。

    126e573d1c5c10fbe688f704a1344604.png
    控件工具箱

    1fd5b8f76e86b5370ecbeb14ebe29221.png
    在控件工具箱点击鼠标右键——附加控件,选择想要加入的控件,不知道控件名就百度。

    2. 控件的删除

    右键选取后直接删除即可。

    eb740d11a2bd32b9fb615135f3be2fe9.png

    3. 控件的格式对齐与分布

    可以通过格式菜单来完成。

    例:调整四个文本框的位置与大小。

    cb47441bbf9b1d584e5e476da070e8cc.gif

    4. 控件的tab顺序

    按tab键后的控件选取顺序,右击窗体,选择设置Tab键顺序。

    3d4fb84d3a6108f0a47028fb49be277e.png

    例:从第一个文本框按Tab键跳转到第四个文本框。(键盘按键显示在左上角)

    a2bda231c2a968f8afc6ea26c6b5861d.gif

    不想让Tab跳转到的控件,可以点击控件,在属性栏找到TabStop,选择True则表示tab键会在这里停留;选择False则不会停留,tab键会跳过这个控件,另,设置后,按Enter键也会跳过,只能用鼠标选择。

    d08394473d5453f36bbf8d95ea1d19d1.png

    5. 控件代码的写法

    在窗体内表示所有控件的集合是controls。

          Controls(序号)
          Controls("控件名称")

    6. 判断控件的类型

    用typename函数来判断一个控件的类型。

    三、窗体的导出和导入

    有时候我们需要把一个EXCEL工程的窗体及其控件导入到别一个窗体中,或者把窗体内容保么可以在窗体上右键--导出文件,就可以另存为窗体格式的文件,导入是利用右键的"导入文件功能,选取窗体格式的文件导入即可。

    ef2cf1f0c2c53f1f9ddf86a3f86910c6.png

    一点碎碎念:最近两个月在忙考试和一些家事,电脑都故障了很久才有空拿去修理,就鸽了挺久的,而且挺多内容都忘记了emmm,学习得勤学多用啊……

    展开全文
  • 学习资源:《Excel VBA从入门到进阶》第53集 by兰色幻想一、窗体的使用窗体的插入和启用 ①插入菜单--用户窗体 ②工程窗口中右键--插入--用户窗体2. 窗体的运行 ①手工点运行按钮或快捷键F5 ②用代码执行Sub 显示...

    6a83210b89f16ccad609c7c861acdbc0.png

    学习资源:《Excel VBA从入门到进阶》第53集 by兰色幻想


    一、窗体的使用

    1. 窗体的插入和启用

    ①插入菜单--用户窗体

    ab9641619ea75699732de1492bacff34.png

    ②工程窗口中右键--插入--用户窗体

    316338e8c9430a7ced489433ac7e4115.png

    2. 窗体的运行

    ①手工点运行按钮或快捷键F5

    5318c8dac7ce52a5bf43bdc1051a888d.png

    ②用代码执行

    Sub 显示窗体()
       入库单.Show   
    End Sub

    3. 窗体的关闭

    ①手工点关闭按钮

    ②用代码执行关闭

    例:单击窗体时关闭窗体。

    Private Sub UserForm_Click()'单击事件
     Unload Me'关闭窗体
    End Sub

    4. 窗体的显示设置

    ①窗体的标题

    这里需要注意,在属性的第一栏“名称”写窗体名称会现在在窗体列(见红框处),如果是需要修改显示出来的窗体标题,则需要设置Captain的值(见黄框处)。

    a6c600e78a7072de5e251a066634e95f.png

    ②窗体的背景色

    有两种方法,一是设置属性中的BackColor颜色值,二是写代码。

    ebd4b30ed47c35a5075824fbbfbedfee.png
    BackColor显示的是16位的颜色值

    代码示例:写一段点击窗体背景就换变色的代码 。

    提示:用RGB值颜色值(red, green, blue),rnd()函数产生随机值。

    Private Sub UserForm_Click()
     Dim 红 As Byte, 绿 As Byte, 蓝 As Byte
     红 = Rnd() * 255  1
     绿 = Rnd() * 255  1
     蓝 = Rnd() * 255  1
     Me.BackColor = RGB(红, 绿, 蓝)
    End Sub

    dd7d6b1a49eec1413acc1bc3533fadda.gif
    点击随机变换窗体背景颜色

    ③ 窗体的背景图片

    依旧有两种方法,一是直接在属性栏的Pictrue处点击右边的浏览文件按钮,选择背景图片;二是写代码。

    图片的大小位置有可能和窗体不匹配,如果需要调整图片的话,就通过以下三个属性调整:

    PictureAlignment——调整图片对齐的位置,比如左上角对齐 fmPictrueAlignmentTopLeft、右下角对齐 fmPictrueAlignmentBottomRight等。

    PictureSizeMode——显示背景图片的模式,有三个值:0裁剪图片以匹配窗体大小fmPictureSizeModeClip、1延伸图片以铺满窗体fmPictureSizeModeStretch、3放大图片去适应窗体大小fmPictureSizeModeZoom。

    PictureTilling——是否在窗体重复图片。

    a561d33e33f3f08f3b78ec424ab0e5a5.png
    UserForm1.Picture=loadpicture(图片路径)
    UserForm1.PictureAlignment
    UserForm1.PictureSizeMode
    UserForm1.PictureSizeMode

    5. 窗体的位置和大小

    3c4df3541679cd3794e087cf2113fb04.png

    height 窗体高

    left top 窗体与excel窗口左边或顶边之间的距离

    Width 窗体的宽度

    StartupPosition 设置窗体启动时的位置,

    6. 窗体显示的一些行为

    ShowModal 设置在窗体显示时,是否可以编辑单元格区域

    bd463abb37b9b5d66c2669320f5fb2a7.png

    7. 窗体的删除

    选中窗体,右键,移除即可。

    18cba1045880b1a685ae33639dee6258.png

    二、控件的使用

    1. 控件的插入

    控件的插入是通过控件工具箱来实现的,控件工具箱中显示的是常用控件,如果想加载其他控件,在控件工具箱点击鼠标右键——附加控件,选择想要加入的控件。

    9bd294eba6aeeb9ca0de474c9db01e04.png
    如果没找到工具箱,可以在这个位置找到。

    f3991fc7802ff2a8aaded65440ad8a2e.png
    控件工具箱

    34319cb8f6b425f73e8e300dc301681b.png
    在控件工具箱点击鼠标右键——附加控件,选择想要加入的控件,不知道控件名就百度。

    2. 控件的删除

    右键选取后直接删除即可。

    ce2f54d2c807aa4375a748da4e6ae294.png

    3. 控件的格式对齐与分布

    可以通过格式菜单来完成。

    例:调整四个文本框的位置与大小。

    ec118c79665fa7566a4979fe90590710.gif

    4. 控件的tab顺序

    按tab键后的控件选取顺序,右击窗体,选择设置Tab键顺序。

    34bcdde378d662b5e0c379f4a2e292ce.png

    例:从第一个文本框按Tab键跳转到第四个文本框。(键盘按键显示在左上角)

    d9b98f13b15524259e0a73a24a4bc93e.gif

    不想让Tab跳转到的控件,可以点击控件,在属性栏找到TabStop,选择True则表示tab键会在这里停留;选择False则不会停留,tab键会跳过这个控件,另,设置后,按Enter键也会跳过,只能用鼠标选择。

    1bdee6d3cb9830607ce47e478861bf98.png

    5. 控件代码的写法

    在窗体内表示所有控件的集合是controls。

          Controls(序号)
          Controls("控件名称")

    6. 判断控件的类型

    用typename函数来判断一个控件的类型。

    三、窗体的导出和导入

    有时候我们需要把一个EXCEL工程的窗体及其控件导入到别一个窗体中,或者把窗体内容保么可以在窗体上右键--导出文件,就可以另存为窗体格式的文件,导入是利用右键的"导入文件功能,选取窗体格式的文件导入即可。

    5ef4164ea7d37edcbf01d6f3b01f0ff3.png

    一点碎碎念:最近两个月在忙考试和一些家事,电脑都故障了很久才有空拿去修理,就鸽了挺久的,而且挺多内容都忘记了emmm,学习得勤学多用啊……

    展开全文
  • 大家好,我们今日继续讲解VBA代码解决方案的第102讲内容:如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。那么...

    大家好,我们今日继续讲解VBA代码解决方案的第102讲内容:如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时,不知你是否注意到:VBA中的窗体标题栏上只有关闭按纽,没有最大最小化按钮的。如下图。

    cf378438514e57d0e0906039ba01d420.png

    那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢?这时就要利用API函数了,利用API函数在窗体的标题栏上添加最大最小化按钮,是非常可行的。

    如下面的代码所示。

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Const WS_MAXIMIZEBOX = &H10000

    Private Const WS_MINIMIZEBOX = &H20000

    Private Const GWL_STYLE = (-16)

    Private Sub UserForm_Initialize() '注意是在此事件下的加载

    Dim hWndForm As Long

    Dim iStyle As Long

    hWndForm = FindWindow("ThunderDFrame

    展开全文
  • 学习Excel技术,关注微信公众号:excelperfect本文将给出一段VBA代码,实现在加载用户窗体时逐步显现以及在关闭用户窗体时逐渐淡出的效果,如下图1所示。图1第1步:创建示例用户窗体如下图2所示,我们简单地创建了一...
  • 插入菜单 --用户窗体 工程窗口中右键 --插入 - -用户窗体 2、窗体的运行 手工点运行按钮 (快捷键F5) 用代码执行 Sub 显示窗体() 入库单.Show End Sub 3、窗体的关闭 手工点关闭按钮 用代码执行关闭 详见窗体 4、窗体...
  • 4、选择菜单栏:插入-模块,将以下代码复制到右边的代码框中,点击菜单:运行-运行子过程/用户窗体,直到弹出处理完毕对话框; 5、在文件夹中将生成拆分好的文件,可关闭这个EXCEL文件,选择不保存。
  •  大家都知道,VBA中自带的MsgBox不能自动关闭,某些特殊情况下需要在指定时间内用户没有点击消息框按钮后能继续运行代码,需要用到定时关闭的消息框,我一般都是自己做一个窗体显示,再用定时函数关闭对话框。...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧136 用户窗体添加最大最小化按纽 12 技巧137 禁用窗体标题栏的关闭按钮 12 技巧138 屏蔽窗体标题栏的关闭按钮 12 技巧139 无标题栏和边框的窗体 12 技巧140 制作年月选择窗体 12 技巧141 自定义窗体中的鼠标指针...
  • Excel_VBA教程

    2014-09-22 11:36:34
    33.编写过程关闭用户窗体 214 34.转移窗体数据到工作表 215 35.使用INFO SURVEY应用程序 216 36.应用程序示例2:学生和考试 216 37.使用多页和TABSTRIP控件 216 38.给窗体STUDENTS AND EXAMS自定义窗体编写VBA过程 ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧136 用户窗体添加最大最小化按纽 339 技巧137 禁用窗体标题栏的关闭按钮 340 技巧138 屏蔽窗体标题栏的关闭按钮 341 技巧139 无标题栏和边框的窗体 343 技巧140 制作年月选择窗体 344 技巧141 自定义窗体中的...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA 处理图表及数据透视表,以及创建事件处理应用程序。还将介绍如何使用VBA 子过程和函数过程、与其他应用程序轻松交互、构建用户友好的工具栏、菜单和帮助...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
    本书将介绍如何定制Excel 用户窗体、开发新实用程序、用VBA 处理图表及数据透视表,以及创建事件处理应用程序。还将介绍如何使用VBA 子过程和函数过程、与其他应用程序轻松交互、构建用户友好的工具栏、菜单和帮助...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    33.编写过程关闭用户窗体 214 34.转移窗体数据到工作表 215 35.使用INFO SURVEY应用程序 216 36.应用程序示例2:学生和考试 216 37.使用多页和TABSTRIP控件 216 38.给窗体STUDENTS AND EXAMS自定义窗体编写VBA过程 ...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    7 关闭........................................................................ 7 其他文件函数................................................................ 7 二、VISUAL BASIC程序设计网络教学..........
  • 第16章介绍了使用VB开发AutoCAD的一些知识(将VBA代码转换到VB中,VB窗体和AutoCAD的焦点切换,使用ActiveXDLL封装带有窗体的VB程序)、搜索某个文件夹中所有的文件和VBAIDE的编程,利用这些知识,完全有可能开发出...
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    3.6 使用用户窗体 16 3.7 疑难解答 17 第四课 理解变量和变量的作用 17 4.1 代码存在的位置:模块 17 4.2 对模块的概览 18 4.2.1 创建过程 18 4.2.2 运行宏 19 4.3 保存对模块所做的改变 19 4.4 变量 19 4.4.1 变量...
  • Excel_VBA程序设计.pdf

    热门讨论 2009-08-31 23:05:20
    3.6 使用用户窗体 16 3.7 疑难解答 17 第四课 理解变量和变量的作用 17 4.1 代码存在的位置:模块 17 4.2 对模块的概览 18 4.2.1 创建过程 18 4.2.2 运行宏 19 4.3 保存对模块所做的改变 19 4.4 变量 19 4.4.1 变量...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    关闭........................................................................7 其他文件函数................................................................7 二、VISUALBASIC程序设计网络教学...............
  • 01003获取当前用户名称 01004获取注册组织名称 01005获取当前操作系统的名称和版本号 01006获取启动Excel的路径 01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 01009获取库文件夹的路径 01010...
  • 3.6 使用用户窗体 8 3.7 疑难解答 9 第四课 理解变量和变量的作用 9 4.1 代码存在的位置:模块 9 4.2 对模块的概览 9 4.2.1 创建过程 10 4.2.2 运行宏 11 4.3 保存对模块所做的改变 11 4.4 变量 11 4.4.1 变量的数据...
  • 大家都知道,VBA中自带的MsgBox不能自动关闭,某些特殊情况下需要在指定时间内用户没有点击消息框按钮后能继续运行代码,需要用到定时关闭的消息框,之前的方法是使用Wscript.Shell的Popup方法,或者自定义窗体。...
  • 设置用户代码和安全访问 15-2 在用户开始之前,做出列表 15-4 确定用户的方案 15-4 在 FactoryTalk Security 中创建用户用户组帐户 15-4 在运行时安全编辑器中添加用户用户组 15-6 登录宏和退出宏 15-8 为命令...
  • 4.4.3 自动关闭Employees窗体 86 4.5 小 结 87 第5章 使用DAO 88 5.1 理解DAO 88 5.1.1 了解数据库的内部构造 89 5.1.2 DAO初步 90 5.1.3 进入数据库 90 5.1.4 检查数据库 92 5.1.5 检查表的属性 93...
  • 4.4.3 自动关闭Employees窗体 86 4.5 小 结 87 第5章 使用DAO 88 5.1 理解DAO 88 5.1.1 了解数据库的内部构造 89 5.1.2 DAO初步 90 5.1.3 进入数据库 90 5.1.4 检查数据库 92 5.1.5 检查表的属性 93 5.1.6 ...
  • 提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档 ...上面代码复制后,点击对话框菜单中的运行,点击运行子过程/用户窗体关闭弹框,回到数据表,数据表中内容已经自动适应行高,自动换.
  • 本书分为12章,涵盖了使用Access 2003来设计数据库系统的相关概念与技巧,通过实例让读者轻松学会表、查询、窗体、数据访问页的制作,更有宏、控件、VBA等高级应用知识等待你去探索。 本书理论与实践相结合,解说...
  • 本书分为12章,涵盖了使用Access 2003来设计数据库系统的相关概念与技巧,通过实例让读者轻松学会表、查询、窗体、数据访问页的制作,更有宏、控件、VBA等高级应用知识等待你去探索。 本书理论与实践相结合,解说...
  • 本书分为12章,涵盖了使用Access 2003来设计数据库系统的相关概念与技巧,通过实例让读者轻松学会表、查询、窗体、数据访问页的制作,更有宏、控件、VBA等高级应用知识等待你去探索。 本书理论与实践相结合,解说...

空空如也

空空如也

1 2 3
收藏数 58
精华内容 23
关键字:

vba关闭用户窗体代码