精华内容
下载资源
问答
  • VBA组合框

    千次阅读 2016-01-15 21:40:31
    如果组合框内容既定,则在编程时写入即可: Private Sub ComboBox1_Enter() ComboBox1.DropDown End Sub Private Sub xx_Initialize() ComboBox1.AddItem "小明" ComboBox1.AddItem "小红" ComboBox1.AddItem "小刚...

    如果组合框内容既定,则在编程时写入即可:

    Private Sub ComboBox1_Enter()
    ComboBox1.DropDown
    End Sub
    Private Sub xx_Initialize()
    ComboBox1.AddItem "小明"
    ComboBox1.AddItem "小红"
    ComboBox1.AddItem "小刚"
    End Sub

    如果需要在代码外随时修改组合框内容,方法如下:

    如在sheet1中写入n个组合框的内容,然后可在一个模块中单独写组合框代码:

    Sub 添加组合框资料(组合框名称 As Object, 数据标题 As String)
      Dim Mrg As Range
        Dim K As Integer
          Set Mrg = Sheets("Sheet1").Rows(1).Find(<span style="font-family: Arial, Helvetica, sans-serif;">数据标题</span><span style="font-family: Arial, Helvetica, sans-serif;">)</span>
            K = 0
            Do While Len(Mrg.Offset(K, 0)) <> 0
              K = K + 1
             组合框名称.AddItem Mrg.Offset(K, 0)
        Loop
    End Sub

    最后,在需要使用哪个组合框就在该组合框使用前初始化即可:

    添加组合框资料 组合框名称, "数据标题"


    展开全文
  • 组合框中输入内容,自动定位到相近位置。
  • 他山之石——VBA列表框和组合框

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

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

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


    展开全文
  • 组合框下拉列表中的数据进行模糊查询,操作简单,非常实用
  • VBA--用类实现组合框联动

    千次阅读 2018-07-12 11:36:47
     .ListIndex = 0 '使复合中默认显示第一个数据 End With End Sub Private Sub UserForm_Initialize()  Dim i As Integer, dic As Object  Set dic = CreateObject("scripting.dictionary") '创建一个字典来存储...

    1.首先,我们要创建一个类,即添加类模板,记得更改名字,并且在里面添加相应的字段,并且对其字段和对象进行属性约束,其具体代码如下:

    Option Explicit
    Private sprovince As String
    Private scity As Object
    '属性:省
    Property Let province(pro As String)
        sprovince = pro
    End Property
    Property Get province() As String
        province = sprovince
    End Property
    '属性:市
    Property Set city(ci As Object)
        Set scity = ci
    End Property
    Property Get city() As Object
        Set city = scity
    End Property

    Private Sub Class_Initialize()
         Set city = CreateObject("scripting.dictionary") '市为一个字典,存储数据
        
    End Sub

    Private Sub Class_Terminate()
        Set city = Nothing '释放空间
       
    End Sub

    2.在Excel表内导入数据,具体数据如下图所示

    3.创建一个窗体,布局和样式如下图所示

    4.编写窗体的触发时间,及运行事件

    Option Explicit
    Dim arrdata() As clsdata '创建一个对象(clsdata)
    Dim d As Object '定义一个字典


    Private Sub probox_Change()
    With citbox
        .Clear '清理文本
        .List = arrdata(d(probox.Text)).city.Keys '根据对应的省份获取市的信息
        .ListIndex = 0 '使复合框中默认显示第一个数据
    End With
    End Sub


    Private Sub UserForm_Initialize()
        Dim i As Integer, dic As Object
        Set dic = CreateObject("scripting.dictionary") '创建一个字典来存储省的数据
        For i = 2 To 309
            dic(Cells(i, 1).Value) = ""  '将省份信息存入dic
        Next i
        ReDim arrdata(dic.Count - 1) As clsdata '确定数组的长度(有多少个省,长度就为多少)
        Set d = CreateObject("scripting.dictionary") 'city 字典
        For i = 0 To dic.Count - 1
            Set arrdata(i) = New clsdata '每增加一个省份,自动添加一个字典
            arrdata(i).province = dic.Keys()(i) '数组的省份信息等于dic字典的值
            d(arrdata(i).province) = i '每个省份对应一个编号
        Next i
        For i = 2 To 309
            arrdata(d(Cells(i, 1).Value)).city(Cells(i, 2).Value) = "" '根据省份来获取对应的市
           
        Next i
        probox.List = dic.Keys '所有的省份
       
    End Sub

    展开全文
  • Access VBA动态修改组合框数据源

    千次阅读 2018-04-11 15:41:05
    iamlaosong文根据输入的工厂简称动态修改发货客户和收货客户两个组合框的数据源:'输入工厂后根据工厂修改收发客户的数据源供录入选择,同时生成LoadTo Private Sub FAbbr_AfterUpdate() Me!LoadTo = Me!Load &...

    iamlaosong文

    根据输入的工厂简称动态修改发货客户和收货客户两个组合框的数据源:

    '输入工厂后根据工厂修改收发客户的数据源供录入选择,同时生成LoadTo
    Private Sub FAbbr_AfterUpdate()
        Me!LoadTo = Me!Load & "-" & Me!ToCode
        Me!SAbbr.RowSource = "SELECT SAbbr FROM tblSndClient WHERE FAbbr='" & Me!Fabbr & "'"
        Me!RAbbr.RowSource = "SELECT RAbbr FROM tblRcvClient WHERE FAbbr='" & Me!Fabbr & "'"
    End Sub
    
    注意:RecordSource是窗体或报表的数据源,RowSource则是列表框或组合框的数据源。例如:
    Private Sub Form_Load()
        Me.RecordSource = "select * from tblPart"
    End Sub



    展开全文
  • QQ账号组合框.rar

    2020-04-05 11:21:33
    QQ账号组合框.rar
  • 组合框或列表框添加元素一、RowSource属性添加元素二、为工作表中的ActiveX控件中的列表框添加元素三、使用list属性添加元素四、使用additem方法添加列表项五、列表框的其他属性 一、RowSource属性添加元素 ...
  • 首先呢,我们画一个类似图中的两个复合 在UserForm_Initialize事件中键入如下代码 Private Sub UserForm_Initialize() Dim i As Long, j As Long Dim col As New Collection Dim rng As Range ...
  • excel 中vb组合框 多列Excel组合框 (Multi-Column Excel Combo Box) With Excel VBA programming, you can add a Combo Box to the worksheet, to show a data validation list. Usually a single column combo box ...
  • 易语言组合框读取access数据库的数据
  • 纯粹使用Excel的内部函数和窗体控件,实现省、市、县三级数据的联合检索,大大提高数据查询速度,避免使用VBA宏。
  • 但是拖放组合框后,如何在其中增加内容呢? 笔者给出操作步骤: (1)将组合框拖放到文档中,如图1所示。 <br />(2)单击右键,在右键快捷菜单中选择【查看代码】命令,如图2所示。    ...
  • 一、允许多项选择 代码如下 Private Sub UserForm_Initialize() arr = Sheets("产品表").Range("a1").CurrentRegion ... '设置列表属性 .List = arr .MultiSelect = fmMultiSelectExtended ...
  • 使用Excel VBA 编程,轻松实现省份、城市、区县三级联动
  • access vba组合框控件

    2012-04-16 11:47:08
    2个组合框链接不同的数据,然后,一个组合框更改,导致另一个组合框内容更改,通常另一个组合框与更改的组合框是父子关系 Private Sub 街道_AfterUpdate() If Trim(街道) &lt;&gt; "" Then ...
  • 在建立窗体,能建立下拉菜单。VBA窗体中自建立菜单,使用及原代码。
  • 组合框使用小例子

    2013-06-30 11:50:23
    关于VC组合框的一个小例子,用过选择组合框中的内容,点击按钮,弹出刚才选择的内容的对话框
  • 强大的组合框和标签ActiveX控件的VB完全源代码
  • excel 组合框控件使用方法

    万次阅读 2012-05-04 09:44:29
    本文一起学习excel组合框控件的使用方法。excel组合框使用,一般用在市场调查问卷或者制作动态图表等等场景。 第一,excel组合框是什么,用来做什么的  excel组合框控件:就是将文本框与列表框组合起来以创建下拉...
  • VBA向列表框(ComboBox或ListBox)中填加数据向列表框中填加数据的方法很多,下面根据实例介绍3种最常用到的方法:图1图2如图1所示的下拉列表框(组合框),图2为其数据源,图2所有在工作表表名为:设置表无论哪种...
  • 我对这些组合框的要求是: -将用户限制为仅选择列表中的项目 -如果用户选择了一个项目,然后改变了主意,则他们应该能够删除所选的项目,以便组合框为空白,并且未选择任何项目 -如果用户按下某些键,则应...
  • 我们知道,用XML文件传输文件有很多好处,现在我们来做一个简单的小程序--一个省对应它的市在列表中显示出来首先我们得制作一个窗体,具体布局如下图首先我们得有一些基本信息,省市的基本信息然后我们制作一个窗体...
  • 1.1 添加 combobox (组合框),实现下拉显示效果   1.2 ComboBox1_GotFocus() 事件中编辑代码 修改了b=0 ,放在循环外 修改ReDim Preserve arr1(1 To b) 其实 调用countif统计大于0的数量,就...
  • vba 小数没有0开头

    2016-07-26 17:24:03
    制面板中设置,区域和语言设置中,区域页中,自定义按钮。然后在其中勾选设置:小数点前的【0】是否显示。
  • Excel VBA ListBox列表添加和删除问题

    万次阅读 2008-04-04 23:30:00
    Excel VBA 窗体中有两个ListBox,需要做的操作:从一个列表中选择列表值向另一个列表添加值,以及从已选择的值中删除选择的列表值。 例:ListBox列表 被选框lbData, 选择lbSelectedData,列表中显示三列。-...
  • ACCESS组合框使用详解

    2013-05-26 18:37:59
    其中包括了ACCESS的组合框使用详解和一此实例,希望对大家一些作用
  • VBA写一个下拉复选,以及循环判断,附代码 图1: 图2 图2中的复选下拉框框显示图1中的配置。 VBA代码 Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i&, s$ With...
  • 在使用EXCEL作数据模板的时候,经常会碰到有些字段要求必须输入,但EXCEL没有控制必输的有效机制,使用数据有效性只能在编辑状态下检查数据的有效性,效果往往不理想所以,我使用VBA在数据保存和表格关闭时检查必输...

空空如也

空空如也

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

vba组合框