精华内容
下载资源
问答
  • vba 设置边框样式vba 设置边框样式vba 设置边框样式
  • 添加VBA控件按钮及操作提示框

    万次阅读 2018-09-18 14:47:58
    在Excel文件中,为了实现更加自动化或者称为人机交互式的操作,很多人是不喜欢直接在visualbasic编辑器里点击运行按钮来执行程序,在编辑器里操作更像是...这里就将要说的就是,怎样添加按钮和编辑其属性。操作如下...

    在Excel文件中,为了实现更加自动化或者称为人机交互式的操作,很多人是不喜欢直接在visualbasic编辑器里点击运行按钮来执行程序,在编辑器里操作更像是专业开发技术人员开发测试使用的操作,对于用户来讲,他们根本不需要关系程序是怎么执行,更谈不上去怎么调试程序,最好就是在xlsm文件某一sheet上直接点击按钮就可以完成我们想要的结果。

    这里就将要说的就是,怎样添加按钮和编辑其属性。操作如下所示:

    1、在xlsm文件中点击常用菜单栏“开发工具”按钮,选择“设计模式”,然后在其左边点击“插入”选项按钮。

    2、在跳出的子菜单显示界面,点击选择ActiveX控件栏目下的第一个图标,选择命令按钮。 

    3、然后点击鼠标左键,画一个方框,按钮即被添加。

     4、右键单击“CommandButton1”按钮,选择属性选项,跳出右边属性编辑界面。在“(名称)”和“Caption”对应的右边编辑框修改自己想替换的名称。其中“(名称)”对应的是VB编辑器中函数的名称,“Caption”对应的是按钮名称。

    5、如我们改“(名称)”为VBAtest,“Caption”为“点击me”。修改完成后,关闭属性界面即可。双击按钮可以跳到VB编辑器界面,然后可以进行vba程序开发编辑。

     6、最后需要将设计模式取消选择,否则点击按钮只会选中它。当取消选择后,点击按钮就会有点击按钮的反馈,如果在VB编辑器中编好了程序,VBA程序应该就可以运行起来了。

    上面只是增加了点击按钮操作,但如果是用户不小心点到了按钮,本来是不想运行程序的,但此时程序已经开始运行不会停下来,这样给人的感觉不是很人性化。所以我们在程序中给用户一个提示和判断,当点击按钮后不立即执行主程序,而是首先提示用户是否要继续下面的操作,用户根据需要选择确定或者取消。具体实现代码如下:

    Private Sub VBAtest_Click()  
      'MsgBox "欢迎开始载入……"
      If vbOK = MsgBox("欢迎开始载入…", vbOKCancel, "提示") Then
        Application.ScreenUpdating = False
        '''''''
        '执行的代码……
        '''''''
        Application.ScreenUpdating = True
        MsgBox "载入完成结束!"
      Else
        MsgBox "您放弃了此次载入,下次再见!"
      End If
    End Sub
    

    效果如下所示:

    会提示用户下面会进行什么操作,用户可以选择确定或者取消。点击确定后便会运行主程序,选择取消则会直接跳到程序结束,提示用户“您取消了这次操作”,如下图:

     

    几行代码,增加了人机的互动性,防止人为误操作,简单又实用。

    代码很简单,就一个MsgBox函数,关于它的使用自行搜索,再配合给的例子演示下就应该会基本使用了。

     

    展开全文
  • VBA 屏蔽窗口的“关闭”按钮

    千次阅读 2018-12-07 10:50:59
    插入窗体,输入代码如下: Option Explicit ...'---此模块演示了禁用窗体关闭按钮--- '**************************************** '以下声明API函数 #If Win64 Then '64位 '查找窗口 Private Declare PtrS...

    插入窗体,输入代码如下:

    Option Explicit
    '****************************************
    '---此模块演示了禁用窗体关闭按钮---
    '****************************************
    '以下声明API函数
    #If Win64 Then '64位
        '查找窗口
        Private Declare PtrSafe Function FindWindow _
            Lib "user32" _
            Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) _
        As LongPtr
        '取得窗体系统菜单
        Private Declare PtrSafe Function GetSystemMenu _
            Lib "user32" ( _
                ByVal hwnd As LongPtr, _
                ByVal bRevert As Long) _
        As LongPtr
        '删除菜单项
        Private Declare PtrSafe Function DeleteMenu _
            Lib "user32" ( _
                ByVal hMenu As LongPtr, _
                ByVal nPosition As Long, _
                ByVal wFlags As Long) _
        As Long
        '重绘窗体标题栏
        Private Declare PtrSafe Function DrawMenuBar _
            Lib "user32" ( _
                ByVal hwnd As LongPtr) _
        As Long
    #Else '32位
        '查找窗口
        Private Declare Function FindWindow _
            Lib "User32" _
            Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) _
        As Long
        '取得窗体系统菜单
        Private Declare Function GetSystemMenu _
            Lib "User32" ( _
                ByVal Hwnd As Long, _
                ByVal bRevert As Long) _
        As Long
        '删除菜单项
        Private Declare Function DeleteMenu _
            Lib "User32" ( _
                ByVal hMenu As Long, _
                ByVal nPosition As Long, _
                ByVal wFlags As Long) _
        As Long
        '重绘窗体标题栏
        Private Declare Function DrawMenuBar _
            Lib "User32" ( _
                ByVal Hwnd As Long) _
        As Long
    #End If
    
    '以下定义常数
    Private Const MF_BYCOMMAND = &H0&
    Private Const SC_CLOSE = &HF060
    '以下下定义变量
    #If Win64 Then '64位
        Private FHwnd As LongPtr
        Private hMenu As LongPtr
    #Else
        Private FHwnd As Long
        Private hMenu As Long
    #End If
    
    ''关闭按钮点击
    'Private Sub BtCancel_Click()
    '    Unload Me
    'End Sub
    ''恢复按钮点击
    'Private Sub BtResume_Click()
    '    '恢复原菜单
    '    hMenu = GetSystemMenu(FHwnd, 1)
    '    '重绘窗体标题栏
    '    DrawMenuBar FHwnd
    'End Sub
    '**************************************
    '---------------主程序-----------------
    '**************************************
    Private Sub UserForm_Initialize()
        '查找窗口句柄
        FHwnd = FindWindow("ThunderDFrame", Me.Caption)
        '取得窗体系统菜单
        hMenu = GetSystemMenu(FHwnd, 0)
        '删除系统菜单中关闭菜单
        DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND
        '重绘窗体标题栏
        DrawMenuBar FHwnd
    End Sub
    
    
    
    展开全文
  • VBA自定义方法 快捷键设置

    千次阅读 2020-03-19 22:55:17
    VBA自定义方法 快捷键设置 ■前言 这两天做截图操作,录了一段宏(调整大小,图片放到最后面显示), 保存到这段代码,到个人宏工作簿中,方便以后使用。 但是,在使用的时候,不想每次执行的时候去点击执行, ...

    VBA自定义方法 快捷键设置

    ■前言

    这两天做截图操作,录了一段宏(调整大小,图片放到最后面显示),

    保存到这段代码,到个人宏工作簿中,方便以后使用。

    但是,在使用的时候,不想每次执行的时候去点击执行,

    那么如果设置快捷键呢。

     

    ■自定义方法快捷键设置方法如下 (代码与前言描述的宏操作无关)

    1.首先,你要有一个保存常用VBA方法的文件。

         ・代码存放的位置:放到【模块】中。

         ・方法声明为:public sub

    2.按照上面的操作,我们可以在宏中,看到这个方法。

          (即使时其他的excel文件,也可以看到。

              我抽出宏对应的代码有两个,

                  一个是为了公用

                   另外一个就是不想在作业对象文件中,加入宏代码)

     选择这个函数,然后点击【选项】

    3.点击【选项】后,弹出下面的窗口,这时,就可以指定自己想要的快捷键了

    ----

    展开全文
  • EXcelVBA另存之后删除按钮及宏代码
  • 多个按钮共用一个事件,用VBA开发的小例子。
  • Excel VBA 获取按钮对象

    2017-01-18 17:37:00
    今天给同事写了两个VBA宏,并分别把宏赋给了两个按钮。 因为两个宏都是实现在两种显示方式之间切换,于是我想除了功能的实现外,还希望在切换到其中一种方式时,按钮上面的文字也可以跟着改变,起到提示作用。 但是...

    今天给同事写了两个VBA宏,并分别把宏赋给了两个按钮。
    因为两个宏都是实现在两种显示方式之间切换,于是我想除了功能的实现外,还希望在切换到其中一种方式时,按钮上面的文字也可以跟着改变,起到提示作用。

    但是网上找了很多文章,都实现不了,而且很多都是针对Form表单控件的。所以自己尝试解决

    先说明,我的按钮是 开发者菜单-插入-表单控件 默认下面的第一个。如下图
    983631-20170118172943734-1978435272.png

    插入控件之后,可以直接在左上角显示单元格位置的地方修改它的名字,不修改将采用默认值。

    在VBA中,先定义一个Button变量,再通过sheet对象和控件名字引用即可:

    Sub getControls()
        Dim sht As worksheet
        Set sht = worksheets(sheetname)
    
        Dim bt As Button
        Set bt = sht.[buttonName]
    
        bt.Caption = "控件显示的文字"
    End Sub

    这里容易令人困惑的是,一般我们在定义变量的时候,写完As加空格会有提示列表出现的,但是我在提示列表里面没有发现有Button这种类型。

    此外,在引用控件的时候,方括号[]里面直接写控件名,不需要使用双引号

    在写bt再加一个点的时候,就会有它的属性或方法的提示列表出现了

    转载于:https://www.cnblogs.com/wuzhiblog/p/6297591.html

    展开全文
  • vba点击开始按钮 在控件中变化显示数字 点击停止不再变化 ,并显示获得的数字
  • 使用VBA宏命令实现PPT暂停功能,使用时参照使用VBA实现PPT暂停.docx文档
  • 使用下面vba代码时, spinbutton1.value = year(date) 出现如下错误提示内容: 经仔细查看,原因是由于窗体初始化时,未对微调控件的最大值、最小值进行必要设置。 二种方法: 第一种:通过VBE属性进行设置。...
  • VBA制作软件原型应该也不错,有机会可以尝试一下。'************单选和复选框************* Private Sub CommandButton1_Click() Dim sr As String If CheckBox1.Value = True Then sr = sr & " &...
  • 如何给option button分组,使得用户在选择是或者否的时候,可以二选一或者三...这里设置一下分组后,同个分组的option button就只能选择一个了,非常方便。 GroupName可以是数字也可以是英文,大家可以酌情取名。 ...
  • VBA去除边框

    2019-03-11 10:14:33
    此文件为VBA语言编写的去除边框代码,可以执行去除边框的操作
  • 一个VBA的小程序
  • 新建一个.xlsm文件(打开.xlsx源数据文件并另存为.xlsm也可以),输入数据源(源数据和VB代码可以从以下链接下载): 原始数据以及 VBA 代码 打开.xlsm文件后在当前Sheet的名字上右击,选“View Code”(或者直接...
  • 在上一讲轻松搞定数字、文本单元格格式错乱问题中,我们已经通过VBA代码快速的重新调整数字、文本格式,在文章结尾也提到了,可以通过在“快速访问工具栏”中添加按钮,一键完成转换为数字或转换为文本。首先,将...
  • 将"VBA加载工具.xlsm"置于D:\根目录中,在execl自定义工具栏导入"Excel 自定义.exportedUI"文件 选中要处理数据单元格后,点击宏按钮,会实现功能,同时会加载宏文件(也是个表格,不要关闭) 详见:宏按钮工具栏.jpg ...
  • 获取模块鼠标光标所在的行数,一般用于写VBE代码助手时使用,想智能把代码插入到当前鼠标所在行,达到快速书写代码的目的
  • VBA自动执行代码

    2014-01-15 23:34:56
    VBA自动定时执行代码执行,可以定期执行
  • vba_按钮

    2019-10-01 03:05:51
    2.2. 在红色位置双击,并选择自定义按钮,并拉至所需要的工具栏 2.3. 指定需要运行的宏并指定操作所对应的宏模块,宏名为你所编写并保存的宏工程,点击确定即可。 综上,你就可以完成一个自定义的宏命令。具体...
  •  Selection.ShapeRange.Height = 113.3858267717 '设置图片高度  Selection.ShapeRange.IncrementLeft 41.2162204724 '设置图片位置  Selection.ShapeRange.IncrementTop 9.4594488189 '设置图片位置
  • 经常有网友问,用Access把软件开发好了,怎么样设置VBA代码的密码?以保护自己的代码不被同事修改。这里简单整理了一下。设置VBA代码的密码及取消VBA代码的密码步骤如下:1.打开任意一个窗体,进入设计视图,按工具栏...
  • 步骤2在“信任中心”的“宏设置”选项中设置“宏安全性”,如图所示。 ​ 说明 知识扩展 当打开带有宏代码的工作簿时,Excel会出现安全提示,如图所示。 用户必须单击“启用内容”才能够正常运行该工作簿中...
  • excel按钮vba代码发送邮箱带附件 自动读取收件人,发件人,附件文件。邮箱标题,内容。有需求的朋友,可以联系我编写代码。
  • vba-msgbox用法详解.rar

    2020-06-04 18:51:09
    自己对MsgBox 函数的整理,可直接看实例更有用 在对话框中显示消息,等待用户单击按钮,并返回一个 Integer 告诉用户单击哪一个按钮。 博客中有该文章,附件中包含源码
  • 【excelVBA】加入按钮用于启动宏

    千次阅读 2018-03-19 15:16:28
    效果:方法:步骤:
  • code128auto VBA 源码! 1.安装Code128字体 2.设置B、E两列为条码字体 3.黄色区域填数据 4.点本按钮,生成条码
  • 用EXCEL的VBA做的小型抽奖程序,程序页面按钮为启动窗体,具体代码在窗体程序中。
  • VBA加密破解

    2017-11-11 01:11:10
    各个版本Excel中VBA密码都可以破解开,本人已经用它解开无数个...使用方法:①打开要解密Excel文件②再打开VBA_Crack_Recovery.xlsm ,点击【破解】按钮,运行一下代码。现在再打开要解密的Excel代码,就可以进去了。
  • VBA函数-大全

    2018-05-09 23:12:39
    vba 函数速查手册,做成vb窗口形式 点击按钮就可以查看

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,802
精华内容 3,520
关键字:

vba如何设置按钮