精华内容
下载资源
问答
  • 他山之石——VBA列表框和组合框

    千次阅读 2018-07-02 18:30:41
    继续学习VBA!不过,这部分都属于“控件”级编程,比较琐碎,偏“前端”一点,在目前的工作中用的不多。毕竟,在数据分析、自动化领域中,界面不是必须的,而数据处理逻辑及数据质量(准确性、完整性)则是重中之重...

    继续学习VBA!不过,这部分都属于“控件”级编程,比较琐碎,偏“前端”一点,在目前的工作中用的不多。

    毕竟,在数据分析、自动化领域中,界面不是必须的,而数据处理逻辑及数据质量(准确性、完整性)则是重中之重。界面可以说是更高层次的要求了,在时间、成本的约束下,界面这个“范围”自然要受到挤压了。


    展开全文
  • 给组合框或列表框添加元素一、RowSource属性添加元素二、为工作表中的ActiveX控件中的列表框添加元素三、使用list属性添加元素四、使用additem方法添加列表项五、列表框的其他属性 一、RowSource属性添加元素 ...

    一、RowSource属性添加元素

    Private Sub UserForm_Initialize()
        Dim i As Long
        i = Sheet5.Cells(Rows.Count, 1).End(3).Row
        ListBox1.RowSource = "产品表!a1:a" & i
    End Sub
    	ListBox1.ColumnHeads = True
    

    或者是

    Private Sub UserForm_Initialize()
        Dim i As Long
        i = Sheet5.Cells(Rows.Count, 1).End(3).Row
        ListBox1.RowSource = Sheet5.Range("a1:a" & i).Address(External:=True)
        ListBox1.ColumnHeads = True
    End Sub
    
    • 如果rowsource属性指定的工作表区域不是活动工作表,那么address属性的external参数是必须的,表示外部引用。
    • 只有rowsource才能显示标题,其他additem、list或column赋值的listbox无法显示标题

    二、为工作表中的ActiveX控件中的列表框添加元素

    Private Sub ListBox1_GotFocus()
        Dim i As Long
        i = Sheet5.Cells(Rows.Count, 1).End(3).Row
        Me.ListBox1.ListFillRange = "产品表!a1:a" & i
    End Sub
    

    三、使用list属性添加元素

    Private Sub UserForm_Initialize()
    	Dim i As Long, arr
        i = Sheet5.Cells(Rows.Count, 1).End(3).Row
        arr = Sheet5.Range("a1:b" & i)
        ListBox1.List = arr
    End Sub
    
    • list用法——list(row,column),row是从0开始到listbox1.listcount-1,column是从0开始到listbox1.columncount-1
    • ListBox1.List = arr也可以写成ListBox1.List = Range(“a1”).Value

    四、使用additem方法添加列表项

    Private Sub UserForm_Initialize()
    	Dim i As Long
    	For i = 1 To Sheet5.Cells(Rows.Count, 1).End(3).Row
            ListBox1.AddItem Sheet5.Cells(i, 1)
        Next
    End Sub
    

    五、列表框的其他属性

    Private Sub UserForm_Initialize()
        Dim i As Long
        i = Sheet5.Cells(Rows.Count, 1).End(3).Row - 1
        With ListBox1
            .BackColor = RGB(0, 255, 0)
            .BorderColor = 255
            .BorderStyle = fmBorderStyleNone
            .ColumnCount = 2
            .ColumnWidths = .Width / 2
            .ColumnHeads = True
            .RowSource = "产品表!a1:a" & i
            .ControlTipText = "欢迎录入"
            .Enabled = True
            With .Font
                .Size = 10
                .Bold = True
                .Italic = False
                .Underline = True
            End With
            .ForeColor = 38
            .Height = 500
            .Width = 500
            .Left = 0
            .Top = 0
            .ListStyle = fmListStyleOption
            .ListIndex = 0
            .MultiSelect = fmMultiSelectExtended
            .TextAlign = fmTextAlignCenter
        End With
    End Sub
    

    ListBox基本属性和方法详情

    展开全文
  • VBA复选下拉框,判断总共行数,循环判断复选内容进行对比操作,生成JSON串。如有疑问,欢迎交流!
  • vba属性和方法大全

    2009-08-18 11:57:27
    vba属性和方法大全,提供了VBA的属性与方法的应用。
  • 微信公众号原文 ...本篇介绍的控件为:列表框 列表框可以理解成一个简单的Excel表格,只不过不能直接编辑 可以将第一行设置为列标题 列表框支持多选(属性表-其他-多重选择-展开的),本文目标在于...

    微信公众号原文

    系统:Windows 7
    软件:Excel 2010 / Access 2010

    • 这个系列介绍常用的控件
    • 包括在界面端的设置及在代码端的实现

    Part 1:本篇目标

    1. 本篇介绍的控件为:列表框
      • 列表框可以理解成一个简单的Excel表格,只不过不能直接编辑
      • 可以将第一行设置为列标题
    2. 列表框支持多选(属性表-其他-多重选择-展开的),本文目标在于:每次选择后获取选择的行数
      • 关于多重选择,有两种:简单;展开的
      • 简单:左键直接多选
      • 展开的:windows多选方法(结合ctrlshift

    功能动图
    1.gif

    展示给客户的最终界面如下
    5.png

    列表框控件位置
    4.png

    列表框录入数据
    2.png

    打开多重选择功能
    1.png

    打开列标题功能
    3.png

    Part 2:代码

    窗体内代码

    Private Sub 选择数目_Click()
        Set ctrl = Me.Controls("List0")
        choose_num = ctrl.ItemsSelected.Count
        MsgBox "选中数目:" & choose_num
    End Sub
    

    代码截图
    6.png

    - 本文为原创作品,如需转载,可加小编微信号learningBin

    更多精彩,请关注微信公众号
    扫描二维码,关注本公众号

    公众号底部二维码.jpg

    展开全文
  • Access-控件解析-列表框-02-获取选项

    千次阅读 2018-08-25 19:50:05
    微信公众号原文 系统:Windows 7 ...本篇介绍的控件为:列表框。涉及功能为:后台获取用户的选择项 UI界面存在大量与用户互动的部分,根据客户不同的选择展现不同的信息 功能动图 静图 Part 2:...

    微信公众号原文

    系统:Windows 7
    软件:Excel 2010 / Access 2010

    • 这个系列介绍常用的控件
    • 包括在界面端的设置及在代码端的实现

    Part 1:本篇目标

    1. 本篇介绍的控件为:列表框。涉及功能为:后台获取用户的选择项
    2. UI界面存在大量与用户互动的部分,根据客户不同的选择展现不同的信息

    功能动图
    1.gif

    静图
    3.png

    Part 2:代码

    控件关联代码

    Private Sub 获取姓名信息_Click()
        frmName = Me.Name
        ctrlName = "List0"
        colNum = 1
    
        x = 获取列表框选项(frmName, ctrlName, colNum)
        MsgBox "选择姓名为:" & x
    
    End Sub

    核心函数:获取不同列,改变colNum值即可

    Function 获取列表框选项(frmName, ctrlName, colNum)
        Rem>>单选识别
        Rem>>
        Dim frm
        Dim ctrl
        Dim chooseRow
    
        Set frm = Forms(frmName)
        Set ctrl = frm.Controls(ctrlName)
        chooseRow = ctrl.ListIndex 'listIndex 计数不包括标题行
    
        'ListBox.Column(Index, Row),Index表示列信息,Row表示行信息,都是从0开始
        If chooseRow >= 0 Then
            获取列表框选项 = ctrl.Column(colNum - 1, chooseRow + 1)
        Else
            获取列表框选项 = "未选中"
        End If
    
    End Function
    

    代码截图
    2.png

    Part 3:部分代码解读

    1. chooseRow = ctrl.ListIndex,注意是否设置列标题选项,在计数时,是不包括列标题的
    2. ListBox.Column(Index, Row),列表框可以看成一个Excel表格,不同的是
      • 行和列都是从0开始计数
      • 与Excel中不同的是,先是列再是行,格式:(列,行)

    * ListBox.Column官方解读*
    1.png

    - 本文为原创作品,如需转载,可加小编微信号learningBin

    更多精彩,请关注微信公众号
    扫描二维码,关注本公众号

    公众号底部二维码.jpg

    展开全文
  • [VBA] excel vba控件常规使用

    万次阅读 2008-07-30 20:10:00
    [VBA] vba控件常规使用UserForm 基础如何显示 UserForm以下是用于显示 UserForm 编程语法是: UserFormName .Show要显示名为 UserForm1, UserForm 使用以下代码: UserForm1.Show不显示它实际上还能加载 UserForm ...
  • 一、允许多项选择 代码如下 Private Sub UserForm_Initialize() arr = Sheets("产品表").Range("a1").CurrentRegion ... '设置列表框属性 .List = arr .MultiSelect = fmMultiSelectExtended ...
  • 微信公众号原文 系统:Windows 7 软件:Excel 2010 / Access...本篇介绍的控件为:列表框。涉及功能为:双击列表框显示所选行第1列信息 功能动图 Part 2:代码 Private Sub List0_DblClick(Cancel As Integer) ct...
  • EXCEL,这个VBA的application的包含内容 第1层 :workbook 第2层:worksheet ,window, chart ,form(用户窗体)--userform 表单控件: 表单就是worksheet,也就是可用在worksheet上的控件 并且不能用在form上 ...
  • 本章主要内容:窗体,控件,小结。
  • VBA编写的程序中,如果可以在运行时动态创建控件无疑是非常有用的,因为有些控件是无法预先得知的,这样就更必须在运行时动态创建然后设置相应控件...Forms.Listbox.1(列表框) Forms.Commandbutton.1(命令按钮)
  • 本实例是在Form窗体上建立一个列表框控件,窗体初始化的时候加载信息到列表框之中,当用户用鼠标点击某一行列表框内的信息时候,弹出对话框显示改行具体的文本信息内容。 从工具箱之中拖拽列表框ListBox控件到Form...
  • 目录 题 ...提取其中的部分列组成新表,并能够通过列表框从已有列中选择所需的列。 员工编号 姓名 部门 应发合计 基本工资 加班工资 补贴 奖金 病事假扣款 养老保..
  • 由于我们需要在2个列表框任意一个选中后对数据进行查询,所以我们需要在两个列表框的更新事件中对这个子过程进行调用: Private Sub lstProvider_AfterUpdate() Call ApplyFilter End Sub Private Sub ...
  • ┻━┻ 按钮控件状态改变: '总窗口名称为该用户窗体最外层的背景窗口 总窗口名称.Controls("按钮控件名称").Value = False'False为关 总窗口名称.Controls("按钮控件名称").Value = True'True为开 判断复选是否被...
  • Access VBA动态修改组合数据源

    千次阅读 2018-04-11 15:41:05
    iamlaosong文根据输入的工厂简称动态修改发货客户和收货客户两个组合的数据源:'输入工厂后根据工厂修改收发客户的数据源供录入选择,同时生成LoadTo Private Sub FAbbr_AfterUpdate() Me!LoadTo = Me!Load &...
  • 目录 ActiveX控件 Excel中常用的ActiveX控件 编辑ActiveX控件 通过代码访问ActiveX控件 工作表中窗体(表单)控件和...使用方法为:在“开发工具”选项卡中“控件”组的“插入”按钮中单击需要插入的控件,然后...
  • 精彩编程与编程技巧-VB中防止将重复项目添加到列表框控件中 ...
  • access vba动态创建控件

    千次阅读 2014-03-21 11:58:25
    VBA编写的程序中,如果可以在运行时动态创建控件无疑是非常有用的,因为有些控件是无法预先得知的,这样就更必须在运行时动态创建然后设置相应控件属性。在vb,excel当中,使用Control的add方法可以实现,然而,在...
  • Sheet1.ListBoxes("列表框 1").Value = 1  Sheet1.DropDowns("下拉框 1").Value = 2  '方法2 Sheet1.DrawingObjects("标签 1").Caption = "标签内容"  Sheet1.DrawingObjects("按钮 1").Caption = ...
  • VBA之窗体与控件

    千次阅读 2020-04-03 01:41:34
    1.窗体Userform 2.窗体常用事件 3.文本框控件 4.复选框控件 5.复合框控件 6.列表框控件
  • 1.active控件与表单控件的区别 2.label标签控件的常用属性 3.单元按钮控件 4.微调按钮控件
  • Excel VBA(08)窗体和控件

    千次阅读 2020-04-29 16:36:58
    不多说 其他的使用基本上也是琢磨属性窗口的内容 列表和组合 这两个的用法基本是一致的,就是下拉框比一般的列表更加节省空间而已 选项的填充可以使用 additem 方法,可以用数组赋值给 list 属性,可以直接引用...
  • VBA列表框(ComboBox或ListBox)中填加数据向列表框中填加数据的方法很多,下面根据实例介绍3种最常用到的方法:图1图2如图1所示的下拉列表框(组合框),图2为其数据源,图2所有在工作表表名为:设置表无论哪种...
  • vb列表框ListBox的详细使用方法

    万次阅读 2018-06-12 15:19:45
    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。 列表框的特点是:列表框中的项目是通过程序插入到其中的,用户无法向清单中输入数据,当选择其中的项
  • 窗体主要功能是提供交互式的窗口,通过该...窗体是一个集合对象,可以在窗体中增加或减少控件,选择窗体或控件后,按F4快捷键,可以修改窗体或控件的属性。例如,标题Caption、名称Name、背景色BackColor等。添加窗...
  • 从我们见过的软件分析,要写一个查询条件的输入,必须有输入框吧,有可能有选择吧,有可能有多选、单选吧,你得有确定按钮吧,本章主要描述这些东西及其初始化 一、综述 控件其实也是窗体,是上篇中的窗体的...
  • 我学到现在才发现控件分类不是我开始以为的 表单控件 传统表单控件 ActiveX控件(activeX并不能直接用到窗体,和窗体的事件也略有不同,比如getfoucs,窗体里是enter等) 窗体 窗体控件 代码设置优先级更高,...
  • <br />ListBox列表框,是OFFICE软件之VBA用户窗体的一种控件。 如果我们能够将Excel中的某区域的单元格数据,绑定到此控件,对于处理电子表格数据来说,是相当的方便,下面,给您说说,绑定数据的办法。当然了...

空空如也

空空如也

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

vba列表框控件