查看: 2548|回复: 19
急求vba列表框的代码？
阅读权限20
在线时间 小时
各位老师，我正在做一个台账，遇到很大问题？帮忙做个数据有效性的代码？
帮忙研究一下啊
11:27 上传
点击文件名下载附件
23.55 KB, 下载次数: 34
阅读权限100
在线时间 小时
see if help you
some comments were added to column B
15:47 上传
点击文件名下载附件
33.74 KB, 下载次数: 62
阅读权限20
在线时间 小时
老师帮忙问一下，你这个是怎么使用的啊，怎么输入数据时没有下拉列表啊
阅读权限95
在线时间 小时
本帖最后由 yaozong 于
23:22 编辑
LHX19 发表于
老师帮忙问一下，你这个是怎么使用的啊，怎么输入数据时没有下拉列表啊
附件供参考。。
23:22 上传
点击文件名下载附件
0 Bytes, 下载次数: 70
阅读权限95
在线时间 小时
4楼附件已更新（加一除错语句了）
阅读权限100
在线时间 小时
see if fit your request
10:27 上传
点击文件名下载附件
33.92 KB, 下载次数: 48
阅读权限20
在线时间 小时
各位老师 我想在麻烦各位一下，
我这个借款表输入完毕后怎么统计查询员工借款和还款信息啊？
1、比如 我想知道： 以员工借款事由为条件的借款和还款信息？格式如下：
姓名& & & & 事由& & & & 借款& & & & 还款& & & & 余额& & & & 时间
王继华& & & & 业务1& & & & 190000& & & & & & & & 190000& & & &
王继华& & & & 业务1& & & & & & & & 30000& & & & 160000& & & &
王继华& & & & 业务1& & & & & & & & 20000& & & & 140000& & & &
王继华& & & & 业务1& & & & & & & & 13512& & & & 126488& & & &
2、我想查询部门员工借款事由还款汇总信息？
姓名& & & & 事由& & & & 借款& & & & 还款& & & & 余额
王继华& & & & 业务1& & & & 190000& & & & 63512& & & & 126488
王继华& & & & 业务2& & & & 50000& & & & 30000& & & & 20000
王继华& & & & 业务3& & & & 60000& & & & 20000& & & & 40000
王继华& & & & 业务4& & & & 70000& & & & 13512& & & & 56488
3、我想查询部门员工借款事由还款汇总信息？
部门& & & & 姓名& & & & 借款& & & & 还款& & & & 余额
生产部& & & & 五万& & & & 190000& & & & 63512& & & & 126488
财务部& & & & 樊英& & & & 50000& & & & 30000& & & & 20000
集团内部& & & & 王继华& & & & 60000& & & & 20000& & & & 40000
4、我想查询部门员工借款事由还款明细信息？
部门& & & & 姓名& & & & 借款& & & & 还款& & & & 余额
生产部& & & & 五万& & & & 190000& & & & 63512& & & & 126488
生产部& & & & 樊英& & & & 50000& & & & 30000& & & & 20000
生产部& & & & 王继华& & & & 60000& & & & 20000& & & & 40000
麻烦各位老师在帮我研究一下，最好用代码，将通过条件提取的数据放到另外的工资表啊？
阅读权限20
在线时间 小时
老师你好请教一个问题，帮忙看一下这段代码，为什么总是显示“运行时错误424，要求对象”，数据源还是111009借款还款记录的数据。ComboBox2复合框中是输入姓名的？
Private Sub ComboBox2_Change()
Dim dic, arr, arrOut(), arrou, i&
With Sheets(&借款记录&)
& & Set dic = CreateObject(&scripting.dictionary&)
& &arr = .Range(&A1&).CurrentRegion
& &ReDim arrou(UBound(arr), 6)
& &For i = 2 To UBound(arr)
& &If arr(i, 2) = ComboBox2.Value Then
& &&&s = arr(i, 4)
& && &&&If Not d.Exists(s) Then
& && && &&&m = m + 1
& && && &&&d(s) = m
& && && & arrou(m, 0) = arr(i, 1)
& && && & arrou(m, 1) = arr(i, 2)
& && && & arrou(m, 2) = arr(i, 4)
& && && &&&If arr(i, 3) = &借款& Then
& && && && & arrou(m, 3) = arr(i, 5) '借款
& && && &&&Else
& && && && & arrou(m, 4) = arr(i, 5) '还款
& && && &&&End If
& && && &&&arrou(m, 6) = arr(i, 6)
& && &&&Else
& && && &&&If arr(i, 3) = &借款& Then
& && && && & arrou(d(s), 3) = arrou(d(s), 3) + arr(i, 5) '借款
& && && &&&Else
& && && && & arrou(d(s), 4) = arrou(d(s), 4) + arr(i, 5) '还款
& && && &&&End If
& && &&&End If
& && &&&arrou(d(s), 5) = arrou(d(s), 3) - arrou(d(s), 4)
&&End With
& &For i = 0 To UBound(arrou)
& && &&&Set lvw = ListView1.ListItems.Add()
& && &&&lvw.Text = arrou(i, 0)
& && &&&lvw.SubItems(1) = arrou(i, 1)
& && &&&lvw.SubItems(2) = arrou(i, 2)
& && &&&lvw.SubItems(3) = arrou(i, 3)
& && &&&lvw.SubItems(4) = arrou(i, 4)
& && &&&lvw.SubItems(5) = arrou(i, 5)
& && &&&lvw.SubItems(6) = arrou(i, 6)
With lvw.ListSubItems.Item(5)
.Bold = True '字体为粗体
.ForeColor = RGB(0, 0, 255) '字体颜色为蓝色
阅读权限95
在线时间 小时
& & & & & & & &
LHX19 发表于
各位老师 我想在麻烦各位一下，
我这个借款表输入完毕后怎么统计查询员工借款和还款信息啊？
1、比如 我想 ...
参考附件。。。
09:58 上传
点击文件名下载附件
16.35 KB, 下载次数: 42
阅读权限20
在线时间 小时
& & & & & & & &
老师 ，老师 谢谢的无私奉献：
我就是还有点问题请指点一下？
1、可以在查询的数据最下添加1行汇总的行嘛？比如
姓名& & & & 借款& & & & 还款& & & & 余额& & & & 时间
王继华& & & & 190000& & & & & & & & 190000& & & &
王继华& & & & & & & & 30000& & & & 160000& & & &
王继华& & & & & & & & 20000& & & & 140000& & & &
王继华& & & & & & & & 13512& & & & 126488& & & &
汇总& & & & 190000& & & & 63512& & & & 616488& & & &
&&2、还有几个关于部门汇总的数据
部门& & & & 借款& & & & 还款& & & & 余额
财务部& & & & 190000& & & & 63512& & & & 126488
集团内部& & & & 200000& & & & 100000& & & & 100000
生产部& & & & 20000& & & & 3400& & & & 16600
汇总& & & & 410000& & & & 166912& & & & 243088
3、员工汇总的数据
员工& & & & 借款& & & & 还款& & & & 余额
王建红& & & & 190000& & & & 63512& & & & 126488
五万& & & & 200000& & & & 100000& & & & 100000
李四& & & & 20000& & & & 3400& & & & 16600
汇总& & & & 410000& & & & 166912& & & & 243088
4、员工事由的汇总数据
员工& & & & 事由& & & & 借款& & & & 还款& & & & 余额
王建红& & & & 业务1& & & & 190000& & & & 63512& & & & 126488
王建红& & & & 业务2& & & & 200000& & & & 100000& & & & 100000
王建红& & & & 业务3& & & & 20000& & & & 3400& & & & 16600
汇总& & & & & & & & 410000& & & & 166912& & & & 243088
5、还有就是把借款还清的，余额为0的数据清除掉，不显示在列表中？
员工& & & & 事由& & & & 借款& & & & 还款& & & & 余额
王建红& & & & 业务1& & & & 190000& & & & 190000& & & & 0
王建红& & & & 业务2& & & & 200000& & & & 100000& & & & 100000
王建红& & & & 业务3& & & & 20000& & & & 20000& & & & 0
汇总& & & & & & & & 410000& & & & 310000& & & & 100000
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by查看: 649|回复: 9
请帮助修改ComboBox1从Access中提取内容的代码。（已解决）感谢赵刚老师！！！
阅读权限30
在线时间 小时
本帖最后由 永远不是明天 于
21:00 编辑
各位老师好!
& & 请帮助将代码修改一下,我想达到:
& & 1、无需点击刷新按钮,就可以直接点击ComboBox1中的小三角就可以选择“业主姓名”而无需每次打开excel时都需要点击“刷新”按钮；
& & 2、通过点击ComboBox1中的小三角选择好“业主姓名”后，在黄色位置分别写入“业主姓名”和“工程地址”(不能有重复)。
& & 本人对VBA不懂，这里面的代码均是从本站搬来的，以前在其它程序里面用是可以的，但不符合现在的要求，自己又不会修改，所以就有请各位老师出手帮助。
（详见附件）
谢谢~~~~~~~~~~~~！！！
(90.31 KB, 下载次数: 13)
09:18 上传
点击文件名下载附件
阅读权限30
在线时间 小时
不能掉下去，先做饭，等一会来看。请老师帮助~~~~~~~~！谢谢~~~~~~！！！
阅读权限30
在线时间 小时
各位老师请帮助~~~~！谢谢~~~~~~~~~！！！
阅读权限30
在线时间 小时
自己顶一下。
阅读权限30
在线时间 小时
是否很难？
阅读权限95
在线时间 小时
请测试:Private Sub ComboBox1_DropButtonClick()
& & Dim cnn As New ADODB.Connection
& & cnn.Open &provider=Microsoft.jet.OLEDB.4.0;data source=& & ThisWorkbook.Path & Application.PathSeparator & &工程资料.mdB&
& & ComboBox1.Column = cnn.Execute(&select distinct 业主姓名 from YZZL&).GetRows
& & cnn.Close
& & Set cnn = Nothing
End Sub
复制代码
阅读权限95
在线时间 小时
(79.1 KB, 下载次数: 31)
16:09 上传
点击文件名下载附件
阅读权限30
在线时间 小时
zhaogang1960 发表于
& && &赵老师您好！您的帮助已经基本能解决我的问题，非常感谢您~~~！！！，还有一个问题，希望在您得便的时候再次给予帮助，就是我想在点击下拉框后，能将选择好的“业主姓名”填写进工作表的C4单元格、工程地址填写进E5单元格。再次表示感谢~~~~~~~~~！！！
阅读权限95
在线时间 小时
永远不是明天 发表于
赵老师您好！您的帮助已经基本能解决我的问题，非常感谢您~~~！！！，还有一个问题，希望在您得便的 ...
请测试：
Private Sub ComboBox1_Change()
& & Dim cnn As New ADODB.Connection
& & Dim SQL$
& & cnn.Open &provider=Microsoft.jet.OLEDB.4.0;data source=& & ThisWorkbook.Path & Application.PathSeparator & &工程资料.mdB&
& & SQL = &select 工程地址 from YZZL where 业主姓名='& & ComboBox1.Value & &'&
& & [C4] = ComboBox1.Value
& & [E4] = cnn.Execute(SQL)(0)
& & cnn.Close
& & Set cnn = Nothing
End Sub复制代码
阅读权限95
在线时间 小时
请注意，你这种显示方式只能显示一个结果
(77.32 KB, 下载次数: 23)
21:18 上传
点击文件名下载附件
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by查看: 1215|回复: 3
求助：如何判断当前窗体中的多个Combobox控件是否有输入文本资料？
阅读权限70
在线时间 小时
& &&&如题，如果当前窗体中有10个combobox控件，如果其中的任何一个combobox控件中存在.text值（即存在输入的文本信息），则点击确定按钮时仅 UserForm1.Hide（隐藏窗口），如果全部combobox的文本都为空 ，则 Unload Me（关闭窗体），
& & 或者是：当前窗体中的10个combobox控件对应10个checkbox控件，当有一个checkbox控件的.value=true,则点击确定按钮时仅 UserForm1.Hide（隐藏窗口），如果全部r checkbox控件.value=false ，则 Unload Me（关闭窗体），
求各位高手老师帮写个代码！
阅读权限95
在线时间 小时
请测试:Private Sub CommandButton1_Click()
& & For i = 1 To 10
& && &&&If Len(Me.Controls(&ComboBox& & i).Value) Then
& && && && &Me.Hide
& && && && &Exit Sub
& && &&&End If
& & Next
& & Unload Me
End Sub复制代码
阅读权限95
在线时间 小时
或:Private Sub CommandButton1_Click()
& & For i = 1 To 10
& && &&&If Me.Controls(&CheckBox& & i).Value Then
& && && && &Me.Hide
& && && && &Exit Sub
& && &&&End If
& & Next
& & Unload Me
End Sub复制代码
阅读权限70
在线时间 小时
& & & & & & & &
zhaogang1960 发表于
灰常感谢赵版！我正在弄的表格困扰了我两个来月了，而最近几天因得到了赵版的指导，问题基本解决了，再一次的感谢！
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered byEXCEL VBA combobox 模糊查询触发后 退格键功能改变_百度知道
EXCEL VBA combobox 模糊查询触发后 退格键功能改变
ARR1(K) = arr(X;*&quot。代码如下，就是触发模糊查询后（也就是存货档案里已有历史品种）;*&quot借鉴了一个模糊查询的代码;):B65536&quot，请高手指点如何改进.Text
ReDim ARR1(1 To UBound(arr))
For X = 1 To UBound(arr)
If Asc(sss) &gt, K As D & sss & &quot：Private Sub ComboBox1_Change()
If M = 1 Then Exit Sub
On Error Resume Next
Dim arr，但是具体执行的时候遇到一点点不足;存货档案&quot, 2)
If arr(X;)
sss = Me，而是变成往回选定文字的功能; Then
ARR1(K) = arr(X.Range(&quot, 1) Like &quot, ARR1();*&quot，这样降低了程序的实用性，就会发生combobox1里面的输入退格键不能删除; & sss & &quot, sss As String
arr = Sheets(&quot.List = ARR1 ComboBox1, 2) Like &quot，要按空格键才能删除;*& 0 Then
If boBox1;A3, 2)
Next XK = 0Me.ComboBox1
)，所以ELS后的这段代码作用没看明白，可再查查其他代码; Then
ARR1(K) = arr(X, 2) Like &quot.Range(&quot，如果没有.Row)3，建议将“arr = Sheets(& & Sheets(&quot：arr = Sheets(&存货档案&A3;).End(xlUp):B65536&quot：
If arr(X;B65536&存货档案&quot:B&*&quot.Range(&)。2;)”改为;存货档案&quot、只要ComboBox1控件中输入字符、“存货档案”表有65536行数据吗，退格键是有效，Asc(sss)都会大于0.Range(& & sss & &)、仅就这段代码测试（excel2010）;*&A31
其他类似问题
为您推荐：
其他1条回答
jpg" esrc="http，我也复制了别人这样的代码。很巧.baidu，然后鼓捣明白的
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 2942|回复: 5
如何给ComboBox框内赋值
阅读权限20
在线时间 小时
不通过工作表，只在窗体中，如何给ComboBox框内赋值？
阅读权限20
在线时间 小时
顶起来高手帮解答下
阅读权限70
在线时间 小时
Private Sub CommandButton1_Click()
& & ComboBox1.AddItem &字符串&
阅读权限20
在线时间 小时
想再问问，如何让赋值在combox中的值变大，也就是在工作时往下拉看的每一&字符串&变得比较大,因为太多项好小看起来吃力
阅读权限70
在线时间 小时
& & & & & & & &
手动修改Combobox的Font属性
阅读权限20
在线时间 小时
wxhnr 发表于
手动修改Combobox的Font属性
非常感谢！！！
玩命加载中，请稍候
玩命加载中，请稍候
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
本站特聘法律顾问：徐怀玉律师 李志群律师
Powered by