精华内容
下载资源
问答
  • 大家好,我们今日继续讲解VBA代码解决方案的第98讲内容:高亮显示按钮。在之前的讲解中,我讲过点击某单元格,相应的行、列会高亮显示。那么这种效果在我自定义的窗体客户能实现呢?或者说当我的鼠标略过控件时,...

    9b1b8945b23b137d243cad15897c6f03.png

    大家好,我们今日继续讲解VBA代码解决方案的第98讲内容:高亮显示按钮。在之前的讲解中,我讲过点击某单元格,相应的行、列会高亮显示。那么这种效果在我自定义的窗体客户能实现呢?或者说当我的鼠标略过控件时,控件会高亮显示呢?当然,VBA真的是无所不能。

    为了达到当鼠标掠过按钮控件时以高亮和凸起显示按钮的效果,可以在窗体和按钮的MouseMove事件中进行模拟。什么是MouseMove事件呢?

    MouseMove,在移动鼠标时发生,语法是一个对象表达式,与对象库相关。MouseMove事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标,否则,当鼠标位置在对象的边界范围内时该对象就能接收 MouseMove事件。

    注意:MouseMove事件的 button 参数与 MouseDown 和 MouseUp 事件的 button 参数是不同的。对于 MouseMove事件来说,button 参数指示的是所有按钮当前的状态;一个 MouseMove事件可指示某些、全部或没有一个按钮被按下。对于 MouseDown 和 MouseUp 事件来说,button 参数在每个事件精确地指示一个按钮。在 MouseMove事件中任何时候移动窗口,都能引起层叠事件。当该窗口移动到指针下面时 MouseMove事件将产生。即使是鼠标完全不动 MouseMove事件也能产生。

    下面我们模拟一下高亮的效果:如下面的代码所示。

    Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    With Me.CommandButton1

    .BackColor = &HFFFF00

    End With

    End Sub

    Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    With Me.CommandButton1

    .BackColor = Me.BackColor

    End With

    End Sub

    代码解析:

    窗体和按钮的MouseMove事件过程,以高亮和凸起显示按钮。

    当用户在窗体中移动鼠标时,分别在窗体和按钮的MouseMove事件设置按钮的BackColor属性值,指定按钮的背景色,当鼠标移动到按钮时以高亮显示,当鼠标移动到窗体时恢复原来的设置。这样就模拟按钮鼠标略过形成的效果。这些其实都是在多年来在VBA中摸爬滚打摸索出的经验。分享给大家。

    代码截图:

    d0e61b97322a85799b37b281ed35d9c9.png

    运行窗体:如下

    5718862051fa01f13b6f3f409629be6e.png

    当鼠标掠过按钮时效果如图:

    a8a13c9680a4777b97ac40826308d4fa.png

    对于上面的代码是否能理解呢?

    今日内容回向:

    1 如何完成模拟按钮控件的高亮显示呢?

    2 你是否清楚鼠标的动作呢?

    我的成果展示:

    02af22473c7a837a48bcdbe787d176b6.png

    《VBA代码解决方案第一册》终于可以和大家见面了,这48讲的内容均在这个平台上发表过,现结集成册,PDF文件,其中内容(含代码)可以复制,有需要的朋友微信联络给我,前百名的朋友按最优惠推送。详细信息参考“前言”内容。

    371940793b97950bf681786fe6aaf503.png
    展开全文
  • 经常有网友问,用Access把软件开发好了,怎么样设置VBA代码的密码?以保护自己的代码不被同事修改。这里简单整理了一下。设置VBA代码的密码及取消VBA代码的密码步骤如下:1.打开任意一个窗体,进入设计视图,按工具栏...

          经常有网友问,用Access把软件开发好了,怎么样设置VBA代码的密码?以保护自己的代码不被同事修改。
    这里简单整理了一下。
    设置VBA代码的密码及取消VBA代码的密码步骤如下:
    1.打开任意一个窗体,进入设计视图,按工具栏“查看代码”按钮,如下图:


    2.进入代码区再点工具栏“工具”按钮→“属性”,如下图:


    3.点“保护”选项,将“查看时锁定工程”按钮打钩→在“查看工程属性的密码”设置你需要的密码,或者是不需要密码就把原有的密码删除即可,如下图:

     

     

     

     

    设置代码如下:

    Dim a As String
    a = InputBox("请输入密码", "提示信息")
            If a = "设置的密码" Then
            Else
                MsgBox "密码不正确,请重试!", vbInformation, "提示"
                Call btnClose_Click
                Cancel = True
                Exit Sub
            End If


    将以上代码放置在主窗体的打开事件中即可.

     

     

     

    进入【用户登录】窗体,输入用户名和密码,点“登录”按钮。核对【用户信息】表里用户名和密码,若都正确则打开下一个【用户界面】窗口。

    Private Sub 登录按钮_Enter()
    '验证用户和密码,登录系统
    If DCount("[用户名]", "用户信息", "[用户名]='" & Text0 & "'") = 0 Then
    MsgBox "请输入正确的用户名!"
    ElseIf DCount("[用户密码]", "用户信息", "[用户密码]='" & Text2 & "'") = 0 Then
    'Text1为用户名输入框
    MsgBox "请输入正确的用户密码!"
    ElseIf Nz([Text2]) = Nz(DLookup("[用户密码]", "用户信息", "[用户密码]='" & Text2 & "'")) Then
    'Text2为密码输入框
    Me.Visible = False
    '隐藏窗体
    DoCmd.OpenForm "用户界面"
    '打开用户界面窗体
    Else
    '密码错误后的处理
    MsgBox "密码错误,请重输!"
    End If
    End Sub

    转载于:https://www.cnblogs.com/ince/p/10777599.html

    展开全文
  • 本节讲一下使用vba代码如何合并单元格。合并单元格其针对项目为单元格以及单元格内容来进行。基于Range对象的Merge方法来完成,其语法只有一个参数Across。语法Range.Merge(Across)Range是一个单元格区域对象变量。...

    NO.1

    Excel合并单元格操作,相对简单,快捷工具栏里有按钮可以方便执行。

    本节讲一下使用vba代码如何合并单元格。

    e405186750c6a8dac2630f3c1de50593.png

    合并单元格其针对项目为单元格以及单元格内容来进行。

    基于Range对象的Merge方法来完成,其语法只有一个参数Across。

    语法

    Range.Merge(Across)

    Range是一个单元格区域对象变量。

    也可以这样来表示:

    Range("A1:F10").Merge

    此例表示将A1到F1单元格进行合并,合并后单元格的值为A1单元格值。

    NO.2

    下图为合并单元格列子。

    cf77f9e6e2cf8bd65832a7b940e72cea.png

    方法介绍

    Range.Merge(Across) 方法:

    功能:从指定的Range对象创建合并单元格。

    值:合并区域的值在该区域左上角的单元格中指定。

    参数Across:

    如果设置为 True,则将指定区域中每一行的单元格合并为一个单独的合并单元格。 默认值为 False。

    a5607b4503abdac789a55ee8a1e485f7.png

    NO.3

    既然有合并单元格,就会有一个逆向操作,取消合并。

    UnMerge方法,也是基于Range对象的一个方法。

    此方法功能是,将合并区域分解为独立的单元格。

    语法:Range.UnMerge

    这里的Range是一个单元格对象变量。

    9d30bd42dc5f8bd98b0fecb820cd25ac.png

    例如:Range("C5").UnMerge

    将包含单元格 C5 的合并区域进行分解。

    如果在代码中使用UnMerge方法之前,要首先对MergeCells属性进行判断。

    MergeCells为True说明该区域包含合并单元格,False说明不包含合并区域,也就不需要进行分解单元格操作。

    如下代码:

    With Range("A5")  if .MergeCells then'包含合并单元格    .MergeArea.UnMerge'分解单元格  Else    MsgBox "没有合并单元"  End IfEnd With

    NO.4

    总得来说,合并和拆分单元格操作,相对简单,但是在应用过程中可能有点不方便.

    因为,对于一些表格位置要有一个清晰的定位,不然,拆分和合并就会显得有些乱.会出很多错误,其单元格内的值也会变得不正确.

    ---End---

    欢迎关注、收藏

    展开全文
  • vba中可以设置图形对象,菜单命令按钮的OnAction属性为指定的过程名,当单击图形对象或者菜单命令按钮时运行具体的代码。如下所示的代码将在单元格鼠标右键快捷菜单中新建一个名为“计算两数之和”的命令按钮,...

    在vba中可以设置图形对象,菜单命令按钮的OnAction属性为指定的过程名,当单击图形对象或者菜单命令按钮时运行具体的代码。

    如下所示的代码将在单元格鼠标右键快捷菜单中新建一个名为“计算两数之和”的命令按钮,通过设置它的onAction属性,单击后可以运行名为“test”的sub过程。

    Visual Basic

    Sub QQ1722187970()

    '在单元格鼠标右键快捷菜单中新建一个名为“计算两数之和”的命令按钮

    With Application.CommandBars("Cell").Controls.Add(before:=1)

    .Caption = "计算两数之和"

    .OnAction = "test"

    End With

    End Sub

    Sub test()

    MsgBox 1 + 2

    End Sub

    1

    2

    3

    4

    5

    6

    7

    8

    9

    10

    SubQQ1722187970()

    '在单元格鼠标右键快捷菜单中新建一个名为“计算两数之和”的命令按钮

    WithApplication.CommandBars("Cell").Controls.Add(before:=1)

    .Caption="计算两数之和"

    .OnAction="test"

    EndWith

    EndSub

    Subtest()

    MsgBox1+2

    EndSub

    (1)所调用的过程只接受一个参数时

    如果是在正常代码过程中传递参数给sub过程,可以使用” test (42),其中“42”为传递给test程序的参数。但如果这样的传递参数方法用在onAction方法中,该程序将不会运行。

    正确的语法是外层为双引号,内层再加上一组单引号,里面是程序名和程序所接受的参数。如下所示:

    .OnAction = “’ test 42’”

    (2)所调用的sub过程接受多个参数时

    如果所调用的sub过程接受多个参数,那么在这些参数之间应该用逗号分隔。如下所示:

    .OnAction = “’test 42, 13’”

    (3)    所调用的sub过程接受字符串参数时

    如果所调用的sub过程所接受的参数是字符串,因为字符串已经带有一对双引号,因此应该将字符串包含在双层双引号中,即字符串参数周围有两对双引号。如下所示:

    .OnAction = “’test “”abc””’”

    展开全文
  • vba宏是什么,如何操作

    千次阅读 2019-12-17 12:16:59
    vba,宏:意思就是一堆操作指令 那是什么意思呢 比如单元格文字 获得以上文字,你需要分三步走 1、在单元格输入 “文字” 2、将字体大小设为22 3、将字体颜色设置为红色 那如果用宏来操作,只需要按钮点一下即可...
  • 1、在Excel 2019中启用开发人员选项卡要使用VBA,您需要启用“开发人员”标签。“开发人员”选项卡具有几个按钮和功能,可增强您创建电子表格的方式。如果您尚未启用“开发人员”标签,请按照以下后续步骤启用它。...
  • No.1字体设置是Excel或Word办公软件最简单的操作,下面把所有字体对象的属性罗列一遍,介绍一下,如何使用vba代码进行相应的字体设置。下图为字体对象Font的所有属性。一共18个。其中进了相对简单,不需要之么高深的...
  • 很高兴,又和大家在这里相会了。不知道大家尝试过在word中从VBA的后台环境中往word前端插入过...一、在空白的word文档中插入一个ActiveX命令按钮,并在【开发工具】功能选项卡里的属性里将该命令按钮名称设置为“...
  • 1、在Excel 2019中启用开发人员选项卡要使用VBA,您需要启用“开发人员”标签。“开发人员”选项卡具有几个按钮和功能,可增强您创建电子表格的方式。如果您尚未启用“开发人员”标签,请按照以下后续步骤启用它。...
  • Excel_VBA教程

    2014-09-22 11:36:34
    第五课 利用VBA设置工作表使用权限 15 1.使用WITH语句。 17 2.使用对象变量。 17 方法3:减少对象的激活和选择 17 方法4:关闭屏幕更新 18 第六课 提高EXCEL中VBA的效率 19 方法1:尽量使用VBA原有的属性、方法和...
  • VBA常用技巧

    2014-12-21 16:39:28
    11-4 灵活设置单元格的行高列宽 12 技巧12 单元格中的数据有效性 12 12-1 在单元格中建立数据有效性 12 12-2 判断单元格是否存在数据有效性 12 12-3 动态的数据有效性 12 12-4 自动展开数据有效性下拉列表 12 技巧13...
  • 坐标计算VBA4.9

    2013-07-30 21:41:52
    程序利用Office Excel VBA程序模块编写,适用于公路、铁路等线形计算,程序主要包括(交点法、线元法坐标正反算,竖曲线计算,平面控制网“导线、高程”平差,曲线超高加宽、计算工具箱等,还可以生成5800、9750...
  • 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 使用...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    第五课 利用VBA设置工作表使用权限 15 1.使用WITH语句。 17 2.使用对象变量。 17 方法3:减少对象的激活和选择 17 方法4:关闭屏幕更新 18 第六课 提高EXCEL中VBA的效率 19 方法1:尽量使用VBA原有的属性、方法和...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符....................................................
  • 新增sheet2、对新sheet内容进行处理3、判断是否存在同名sheet4、将当前sheet页作为超链接插入其它某个sheet三、窗体与sheet页交互1、sheet页设置按钮,点击按钮弹出窗体2、窗体传输参数并调用sheet页主程序3、s
  • Excel VBA程序设计.doc

    2009-07-06 22:16:12
    第五课 利用VBA设置工作表使用权限 23 1.使用With语句。 25 2.使用对象变量。 25 方法3:减少对象的激活和选择 26 方法4:关闭屏幕更新 26 第六课 提高Excel中VBA的效率 27 方法1:尽量使用VBA原有的属性、方法和...
  • EXCEL VBA 之录制宏

    2018-02-28 09:46:58
    2如何开始录制?单击工具---宏---录制宏,弹出小窗口。3宏的名字命名为“不及格红色显示”,保存在当前工作簿确定。这样就进入录制状态。你还可以为这个宏制定快捷键,注意不要和其他快捷键冲突,也可以不设置。4...
  • Excel_VBA程序设计.pdf

    热门讨论 2009-08-31 23:05:20
    第五课 利用VBA设置工作表使用权限 23 1.使用With语句。 25 2.使用对象变量。 25 方法3:减少对象的激活和选择 26 方法4:关闭屏幕更新 26 第六课 提高Excel中VBA的效率 27 方法1:尽量使用VBA原有的属性、方法和...
  • Excel 2007与VBA编程从入门到精通 10/10

    热门讨论 2012-04-01 15:47:40
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 6/10

    热门讨论 2012-04-01 14:47:49
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 1/10

    热门讨论 2012-04-01 13:34:05
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 9/10

    热门讨论 2012-04-01 15:43:41
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 3/10

    热门讨论 2012-04-01 14:09:14
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 5/10

    热门讨论 2012-04-01 14:34:23
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 2/10

    热门讨论 2012-04-01 13:54:03
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 4/10

    热门讨论 2012-04-01 14:21:28
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 8/10

    热门讨论 2012-04-01 15:29:41
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...
  • Excel 2007与VBA编程从入门到精通 7/10

    热门讨论 2012-04-01 15:01:23
     1.6 Excel 2007功能区简介及其设置  1.6.1 Excel 2007的功能区  1.6.2 动态选项卡  1.6.3 快速访问工具栏  1.6.4 添加Excel 2007命令按钮  1.7 小结  1.8 练习与习题  第2章 宏  2.1 认识宏  ...

空空如也

空空如也

1 2 3 4 5 6
收藏数 117
精华内容 46
关键字:

vba如何设置按钮