精华内容
下载资源
问答
  • 组合框中输入内容,自动定位到相近位置。
  • 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!不过,这部分都属于“控件”级编程,比较琐碎,偏“前端”一点,在目前的工作中用的不多。

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


    展开全文
  • 组合框下拉列表中的数据进行模糊查询,操作简单,非常实用
  • 组合框或列表框添加元素一、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基本属性和方法详情

    展开全文
  • 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
  • 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") '创建一个字典来存储...
  • 首先呢,我们画一个类似图中的两个复合 在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数据库的数据
  • 但是拖放组合框后,如何在其中增加内容呢? 笔者给出操作步骤: (1)将组合框拖放到文档中,如图1所示。 <br />(2)单击右键,在右键快捷菜单中选择【查看代码】命令,如图2所示。    ...
  • 组合框使用小例子

    2013-06-30 11:50:23
    关于VC组合框的一个小例子,用过选择组合框中的内容,点击按钮,弹出刚才选择的内容的对话框
  • 纯粹使用Excel的内部函数和窗体控件,实现省、市、县三级数据的联合检索,大大提高数据查询速度,避免使用VBA宏。
  • 强大的组合框和标签ActiveX控件的VB完全源代码
  • access vba组合框控件

    2012-04-16 11:47:08
    2个组合框链接不同的数据,然后,一个组合框更改,导致另一个组合框内容更改,通常另一个组合框与更改的组合框是父子关系 Private Sub 街道_AfterUpdate() If Trim(街道) &lt;&gt; "" Then ...
  • 我们知道,用XML文件传输...布局如运行效果图所示,其次我们得写两个函数,一个是读取XML文件的函数,将XML文件中(市)读取出来,一个是生成XML文件,将Excel表中的内容保存为XML文件(一个省对应一个XML文件),对...
  • 1 combobox控件,显示A列处理后的数据,求助问题内容 QQ群玩家求助的内容, 说是这样报错 看了下,代码有问题 b=0 一般不应该在循环内,并且redim 不preserve 数组估计被不断重置了 另外combobox1.list 报错不...
  • 一、允许多项选择 代码如下 Private Sub UserForm_Initialize() arr = Sheets("产品表").Range("a1").CurrentRegion ... '设置列表属性 .List = arr .MultiSelect = fmMultiSelectExtended ...
  • 我对这些组合框的要求是: -将用户限制为仅选择列表中的项目 -如果用户选择了一个项目,然后改变了主意,则他们应该能够删除所选的项目,以便组合框为空白,并且未选择任何项目 -如果用户按下某些键,则应...
  • VBA写一个下拉复选,以及循环判断,附代码 图1: 图2 图2中的复选下拉框框显示图1中的配置。 VBA代码 Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim i&, s$ With...
  • ACCESS组合框使用详解

    2013-05-26 18:37:59
    其中包括了ACCESS的组合框使用详解和一此实例,希望对大家一些作用
  • MFC中组合框获取当前选中文本

    千次阅读 2016-11-20 17:34:50
    组合框获取当前选择的文本    int index = m_repeatCount.GetCurSel(); CString str; m_repeatCount.GetLBText(index,str); MessageBox(str);
  • 使用Excel VBA 编程,轻松实现省份、城市、区县三级联动
  • 在建立窗体,能建立下拉菜单。VBA窗体中自建立菜单,使用及原代码。
  • 大家好,我们今日继续讲解VBA代码解决方案的第119讲内容:如何遍历工作表中的图形。其实这节的内容在我前面的章节中已经讲过,今日但拿出来,作为一节的专门的内容。 工作表中的多个图形,有时我们需要根据实际的...
  • Zebra VBA Framework(斑马框架) 是由 VBA探秘 发布的一款适用于 CorelDRAW X4(及以上版本) 软件,基于 VBA 语言来实现的一个快速开发框架。使用者只需要通过框架提供的类,使用很少的代码,就可以实现常见的功能,...

空空如也

空空如也

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

vba组合框的内容