精华内容
下载资源
问答
  • 上次在PPT中用VBA编制了一个计时器,实现了倒计时功能,但是我觉得这个计时器不够酷炫,如果采用7段数码管显示数字,那就够COOL了。为了实现这个功能,我把任务进行了分解,今天先完成第一步,如何用VBA实现7段...

    上次在PPT中用VBA编制了一个计时器,实现了倒计时功能,但是我觉得这个计时器不够酷炫,如果采用7段数码管显示数字,那就够COOL了。为了实现这个功能,我把任务进行了分解,今天先完成第一步,如何用VBA实现7段数码管的数字显示。

    最开始,我想采用画线的方法,但是VBA不支持Picture控件,所以得另外想招。我想到一个办法,添加7个小长条的Image控件,通过控制背景颜色的方式来实现数码管的功能。

    下面是源代码,加入了Timer用以控制循环,实现了从0-9的数字显示。

    程序资源我已经上传到我的博客中,欢迎下载。

    展开全文
  • 文/江觅滚动条控件可以直观地显示数据变化情况,也可以对文本进行上下翻滚,具体使用过程相对简单,其属性也不多。这里介绍一下如何用代码添加滚动条到窗体里面。效果演示滚动条控制文本框内数字从0到100的变化情况...

    文/江觅

    滚动条控件可以直观地显示数据变化情况,也可以对文本进行上下翻滚,具体使用过程相对简单,其属性也不多。这里介绍一下如何用代码添加滚动条到窗体里面。

    效果演示

    073b7179e68213d68c153c47594c61a4.gif

    滚动条控制文本框内数字从0到100的变化情况。

    48b9b7ba9635c9c1af1a32820cd54995.png

    在一些特定情况用滚动条来实现数据输入,或者进行数值选择也可以,不过此类方法用得还是比较少,也可以关联字符或图片来进行选择显示。

    e366c464e6b935976078603bdc1a795d.png

    窗体代码

    Private Sub UserForm_Initialize()Dim srObj As Object, NewS As ObjectSet srObj = Me.Controls.Add("Forms.ScrollBar.1", "sr1") '''添加滚动条With srObj.Width = 300.Height = 25.Top = 150.Left = 20.Max = 100.Min = 0.LargeChange =50.SmallChange = 1.BackColor = RGB(210, 121, 122)End WithSet NewS = New NewScr ''' 添加滚动条事件NewS.init srObjnewSc.Add NewSEnd Sub
    084a6a64bfbc5c5447d432a1f70732b2.png

    添加代码

    object.Controls.Add("Forms.ScrollBar.1", "ControlName")

    解释一下就是在object对象里添加一个名字为ControlName的ScroolBar对象

    可以用set Sobj= objec.Controls.Add("Forms.ScrollBar.1", "ControlName") 语句对象赋值到Sobj,进行属性设置

    with Sobj.top=20.left=20.width=150.height=25.max=100'最大值.min=0'最小值.LargeChange = 50'滚动条宽度.SmallChange = 10'滚动步长end with
    展开全文
  • 文/江觅滚动条控件可以直观地显示数据变化情况,也可以对文本进行上下翻滚,具体使用过程相对简单,其属性也不多。这里介绍一下如何用代码添加滚动条到窗体里面。效果演示滚动条控制文本框内数字从0到100的变化情况...

    文/江觅

    滚动条控件可以直观地显示数据变化情况,也可以对文本进行上下翻滚,具体使用过程相对简单,其属性也不多。这里介绍一下如何用代码添加滚动条到窗体里面。

    效果演示

    9f7d2ba7c797b10d7a00412b460cbb52.gif

    滚动条控制文本框内数字从0到100的变化情况。

    321dd2b74cde2015b09e444cafb80433.png

    在一些特定情况用滚动条来实现数据输入,或者进行数值选择也可以,不过此类方法用得还是比较少,也可以关联字符或图片来进行选择显示。

    6596ff3411b165a7dec983e495cf06f2.png

    窗体代码

    Private Sub UserForm_Initialize()Dim srObj As Object, NewS As ObjectSet srObj = Me.Controls.Add("Forms.ScrollBar.1", "sr1") '''添加滚动条With srObj.Width = 300.Height = 25.Top = 150.Left = 20.Max = 100.Min = 0.LargeChange =50.SmallChange = 1.BackColor = RGB(210, 121, 122)End WithSet NewS = New NewScr ''' 添加滚动条事件NewS.init srObjnewSc.Add NewSEnd Sub
    8d026d3d2fcdd70e9f3bb19f3fe46273.png

    添加代码

    object.Controls.Add("Forms.ScrollBar.1", "ControlName")

    解释一下就是在object对象里添加一个名字为ControlName的ScroolBar对象

    可以用set Sobj= objec.Controls.Add("Forms.ScrollBar.1", "ControlName") 语句对象赋值到Sobj,进行属性设置

    with Sobj.top=20.left=20.width=150.height=25.max=100'最大值.min=0'最小值.LargeChange = 50'滚动条宽度.SmallChange = 10'滚动步长end with
    展开全文
  • vba点击开始按钮 在控件中变化显示数字 点击停止不再变化 ,并显示获得的数字
  • VBA研究】显示GIF动态图片

    千次阅读 2016-12-26 11:41:00
    一个小需求,要求输入某个数字显示一个鼓掌的动态图片。Excel是无法显示动态图片的,不过可以用浏览器控件显示动态图片。有两种方式,一是插入窗体,在窗体中插入浏览器控件;二是直接插入控件到工作表,然后控制...

    iamlaosong文

    一个小需求,要求输入某个数字后显示一个鼓掌的动态图片。Excel是无法显示动态图片的,不过可以用浏览器控件显示动态图片。有两种方式,一是插入窗体,在窗体中插入浏览器控件;二是直接插入控件到工作表,然后控制其显示。

    下面以直接插入到工作表为例,看看如何完成。

    1、点击“开发工具”选项卡下面的“插入”,弹出菜单中点击“其它”图标,在弹出窗口中选择“Microsoft Web Browser”控件,点击“确定”按钮,如下图:


    2、光标变成“十”字,在工作表上画一个矩形框,这就是用来显示GIF图片的方框,调整好位置后点击“开发工具”选项卡下面的“设计模式”,退出设计模式才会显示图片

    3、进入VBA编辑器,插入模块,输入下面代码:

    Sub disp()
        ActiveSheet.WebBrowser1.Visible = True
        ActiveSheet.WebBrowser1.Navigate ThisWorkbook.Path & "\掌声.gif"
    End Sub
    
    Sub undisp()
        ActiveSheet.WebBrowser1.Visible = False
    End Sub
    

    4、双击“ThisWorkbook”,输入一下代码:

    '检测工作表变化
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        If Target.Column = 10 And Target.Row >= 4 And Target.Row <= 8 Then
            If Target.Value = 0.27 Then
                disp
            Else
                undisp
            End If
        Else
            undisp
        End If
    End Sub
    

    5、为了保证效果,按回车后单元格位置不变化,需要去掉移动勾选:



    6、至此,工作完成,当指定单元格输入27%按回车后就会显示动态图片,点击其它单元格,图片关闭。点击指定区域的单元格,如果值为27%,也会显示图片,效果如下:



    7、如要调整显示位置,需要点击“开发工具”选项卡下面的“设计模式”,进入设计模式就可以调整位置。

    8、如果将图片换成带图片和声音的网页,估计效果会更好。


    展开全文
  • VBA常用技巧

    2014-12-21 16:39:28
    131-1 使用Listview控件显示数据列表 12 131-2 在Listview控件中使用复选框 12 131-3 调整Listview控件的行距 12 131-4 在Listview控件中排序 12 131-5 Listview控件的图标设置 12 技巧132 调用非模式窗体 12 技巧...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    131-1 使用Listview控件显示数据列表 314 131-2 在Listview控件中使用复选框 317 131-3 调整Listview控件的行距 319 131-4 在Listview控件中排序 322 131-5 Listview控件的图标设置 323 技巧132 调用非模式窗体 326 ...
  • 01021改变Excel的显示位置 01022将Excel移动到屏幕以外 01023隐藏Excel 01024改变Excel的标题文字 01025删除Excel的标题文字 01026将Excel设置为全屏显示 01027在状态栏中显示信息 01028显示、隐藏状态栏 01029显示...
  • Treeview1.Nodes.Add(上一级节点的索引值,是否为子节点,节点的索引值,节点上显示的文字,图标的索引号,选取节点时的图标) 一级节点的索引值和创建节点的位置为空。则表示创建是的顶级节点。 索引值不能为数字,为st.....
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     6.3.5 在工作表上使用ActiveX控件  6.3.6 执行开发的成果  6.4 使自己关心终端用户  6.4.1 测试应用程序  6.4.2 尽量完善应用程序的安全性  6.4.3 让应用程序变得美观和直观  6.4.4 创建用户帮助系统  ...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
     6.3.5 在工作表上使用ActiveX控件  6.3.6 执行开发的成果  6.4 使自己关心终端用户  6.4.1 测试应用程序  6.4.2 尽量完善应用程序的安全性  6.4.3 让应用程序变得美观和直观  6.4.4 创建用户帮助系统  ...
  • SOAOffice 文档控件同时支持强制痕迹保留,手写签名,电子印章、数字签名、全文手写批注等高端电子政务、电子商务、办公自动化系统所必备的功能。 SOAOFFICE 文档控件采用标准HTTP传输协议,支持任意Web服务器,...
  • (2KB) 68,dclock.zip 如何编写数字时钟控件? (32KB) 69,dragtree.zip 如何拖动TreeView中的节点及其子节点?(7KB) 70,nopop.zip 如何禁止文本框内的右键菜单? (2KB) 71,lcd.zip 如何...
  • 7段数码管.xlsm

    2020-05-11 12:08:59
    VBA模拟7段数码管显示数字,因VBA不支持Picture控件,所以采用IMAGE控件实现,程序中展示一个循环,用Timer控制循环时间,从数字0显示到数字9。
  • Access2000中文版高级编程 目录 第一部分 编程基础 1 第1章 宏与代码 3 1.1 何时使用代码代替宏 4 1.1.1 何时用宏 4 ...第2章 使用VBA编写代码 13 ...14.3.4 使用VBA创建和填充ListView控件 ...
  • 14.4 应用ProgressBar控件显示任务的进程 448 14.4.1 使用SysCmd()显示Access进度条 448 14.4.2 使用ActiveX ProgressBar控件 450 14.5 使用Slider控件在运行阶段设置文本框尺寸 452 14.6 应用Microsoft Rich ...
  • 第1篇 Excel基本功能 • 冻结窗格 ...• 使用文本框控件快速录入三位数字 • Excel工作簿中插入用户窗体 • 在用户窗体中插入控件 • 为窗体控件添加事件代码 • 用户窗体的QueryClose事件和Terminate事件
  • Visual Basic 2008/2010从入门到精通

    热门讨论 2012-02-28 19:05:54
    7.3.1 使用Timer控件创建数字时钟 7.3.2 用Timer对象设置时间限制 7.4 补充知识:插入代码段 7.5 本章小结 第8章 调试Visual Basic程序 8.1 查找和更正错误 8.1.1 三种类型的错误 8.1.2 识别逻辑错误 8.2 ...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    VBA窗体帮助信息查询】:窗体相关的VBA帮助查询,包括事件、方法、属性、对象、集合与控件 【函数运算符符语法查询】:VBA函数以及运算符相关的帮助查询 【反向选择】:选择当前区域中未选择的区域 【千年日历】:工...
  • EXCEL 2007 宝典 附光盘文件

    热门讨论 2010-04-02 14:43:05
    vba functions.xlsm:一个包含用于工作表公式的VBA函数的工作簿。 Chapter 41 change case.xlsm:使用UserForm以让用户进行选择的VBA宏。 show message.xlsm:一个包含显示信息的UserForm的工作簿。 Chapter 42 ...
  • Excel百宝箱

    2012-10-27 17:09:21
    VBA窗体帮助信息查询】:窗体相关的VBA帮助查询,包括事件、方法、属性、对象、集合与控件 【函数运算符符语法查询】:VBA函数以及运算符相关的帮助查询 【反向选择】:选择当前区域中未选择的区域 【千年日历】:工...
  • 10.1.4 ActiveX控件数字签名 10.1.5 Active控件的使用许可 10.1.6 包装AcitveX控件 10.2 改造Ticker控件——例程IETickerCtrl 10.2.1 ATL轻型控件 10.2.2 标记控件为初始化/脚本安全 10.2.3 持续属性 10.3 在...
  • Excel终极伴侣

    2008-03-13 17:03:14
    普通TreeView控件只能显示一列数据(仅一个字段),而OBS表格却可以显示更多的列(N个字段),而且每个字段都可以汇总(这一点又要比Excel自身的分类汇总更直观、简单),再配合VBA,可以让您轻松驾驭超灵无比的Excel!...
  • 9.6.2 xmldatasource控件的名称空间问题 374 9.6.3 xml服务器控件 375 9.7 linq to xml 376 9.8 linq to xml帮助对象 376 9.8.1 xdocument对象 377 9.8.2 xelement对象 377 9.8.3 xnamespace对象 378 9.8.4 ...
  • 9.6.2 xmldatasource控件的名称空间问题 374 9.6.3 xml服务器控件 375 9.7 linq to xml 376 9.8 linq to xml帮助对象 376 9.8.1 xdocument对象 377 9.8.2 xelement对象 377 9.8.3 xnamespace对象 ...
  • 14.2.2 通过sub main显示窗体 545 14.2.3 application类的更多内容 545 14.2.4 窗体的启动位置 545 14.2.5 窗体边框 545 14.2.6 始终置顶——topmost属性 546 14.2.7 附属窗体 546 14.2.8 改变窗体的...
  • 使用数据透视图汇总数百万行数据,在不使用图表的情况下以图形方式显示数据,使用SmartArt图形绘制流程图和关系图,使用VBA创建图表,将数据绘制到地图中,将图表导出到网页或PowerPoint中,找出图表背后的谎言等。...
  • 9.6.2 xmldatasource控件的名称空间问题 374 9.6.3 xml服务器控件 375 9.7 linq to xml 376 9.8 linq to xml帮助对象 376 9.8.1 xdocument对象 377 9.8.2 xelement对象 377 9.8.3 xnamespace对象 378 9.8.4 ...
  • 9.6.2 xmldatasource控件的名称空间问题 374 9.6.3 xml服务器控件 375 9.7 linq to xml 376 9.8 linq to xml帮助对象 376 9.8.1 xdocument对象 377 9.8.2 xelement对象 377 9.8.3 xnamespace对象 378 9.8.4 ...

空空如也

空空如也

1 2 3 4 5
收藏数 100
精华内容 40
关键字:

vba显示数字控件