EXCEL VBA combobox 模糊查询触发后 退格键功能改变
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了EXCEL VBA combobox 模糊查询触发后 退格键功能改变相关的知识,希望对你有一定的参考价值。
借鉴了模糊查询代码具体执行时候遇点点足触发模糊查询(也存货档案里已有历史品种)会发生combobox1里面输入退格键能删除而变成往回选定文字功能要按空格键才能删除样降低了程序实用性请高手指点何改进代码下: Private Sub ComboBox1_Change() If M = 1 Then Exit Sub On Error Resume Next Dim arr, ARR1(), K As Double, sss As String arr = Sheets("存货档案").Range("A3:B65536") sss = Me.ComboBox1.Text ReDim ARR1(1 To UBound(arr)) For X = 1 To UBound(arr) If Asc(sss) > 0 Then If arr(X, 1) Like "*" & sss & "*" Then K = K + 1 ARR1(K) = arr(X, 2) End If Else If arr(X, 2) Like "*" & sss & "*" Then K = K + 1 ARR1(K) = arr(X, 2) End If End If Next X K = 0 Me.ComboBox1.List = ARR1 ComboBox1.DropDown End Sub
参考技术A 1、仅段代码测试(excel2010)退格键有效再查查其代码2、存货档案表有65536行数据没有建议arr
=
Sheets("存货档案").Range("A3:B65536")改:
arr
=
Sheets("存货档案").Range("A3:B"
&
Sheets("存货档案").Range("B65536").End(xlUp).Row)
3、只要ComboBox1控件输入字符Asc(sss)都会大于0所ELS段代码作用没看明白:
Else
If
arr(X,
2)
Like
"*"
&
sss
&
"*"
Then
K
=
K
+
1
ARR1(K)
=
arr(X,
2)
End
If
请教excel汇总问题。vba
请教下 我有一个表 A列 日期 B列 供应商 C列 产品 列数量 B列和C列是多对多关系 我想新建一个表统计 A 列供应商 B列产品 C列统计各日期的产品总和。第一图为实际图。第2图为要达到的效果图。求VBA的编写方式 谢谢。
我的2859782009
dim d,arr,r&
Set d= CreateObject("Scripting.Dictionary")
arr=sheets(1).usedrange.value
for r=2 to ubound(arr)
d(arr(r,2)&"+"&arr(r,3))= d(arr(r,2)&"+"&arr(r,3))+arr(r,4)
next
with sheets(2)
.[a2].resize(d.count,1)=application.transpose(d.keys)
.Range("a2:a"&d.count+1).TextToColumns Destination:=Range("a2"), Other:=True, OtherChar:="+"
.[c2].resize(d.count,1)=application.transpose(d.items)
end with
set d=nothing
end sub
怎么感觉和其他题有点像
没有excel,没调试
==================
修改下,试试看吧
追问麻烦在帮忙看看。谢谢
看
excel卸掉了还没装好。。下载速度太慢了
首先你要确定你第一张图的sheet名 。。还有第二张图的sheet名
sheets(1)=改成 sheets(" ") 双引号内填上你源数据的表名 。注意,双引号也是要的
sheets(2) 同上
如果还不知道怎么做,可以新建两个表, 一张表叫源数据,把你第一图上的所有数据复制去,第于个表叫汇总。a1:c1填上字段名就可以了
然后,sheets(1) 改成 sheets("源数据")
sheets(2) 改成 sheets("汇总")
sheets(1) 名字就是sheets(1)
sheets(2)表新建一个表生成数据 名字
你确定?
算了,也有人回复了,我相信你现在应该也成功了,
好吧,祝 好运。。
能不能说傻瓜一点呵呵。我不知道具体该怎么做。帮帮忙
追答以下是代码,请测试!
Sub FLHZ()Dim dc As Object, arr
Set dc = CreateObject("Scripting.Dictionary")
arr = Range("B2:D" & [b65536].End(3).Row)
Dim i As Long
For i = 1 To UBound(arr)
dc(arr(i, 1) & "-" & arr(i, 2)) = Val(dc(arr(i, 1) & "-" & arr(i, 2))) + arr(i, 3)
Next
Dim ar
ar = dc.keys
With Sheet2
.[a1] = "供应商"
.[b1] = "药品"
.[c1] = "数量汇总"
For i = 0 To UBound(ar)
.Cells(i + 2, "A") = Split(ar(i), "-")(0)
.Cells(i + 2, "B") = Split(ar(i), "-")(1)
.Cells(i + 2, "C") = dc(ar(i))
Next
.Range("A2:C" & .[c65536].End(3).Row).Sort key1:=.[a2], key2:=.[b2]
End With
MsgBox "汇总完毕!"
Sheet2.Activate
Sheet2.[a1].Select
End Sub
数据透视表 alt+d+p 多重合并计算区域 出来的效果。
不知道是操作没对还是啥情况
直接QQ说话?
追问2859782009 。谢谢
参考技术D 一定要用VBA吗?用数据透视表简单几步就可实现你的要求。追问帮忙讲讲 谢谢。我可能操作不对。
追答选择B、C、D列,点菜单-数据-数据透视表,建立透视表,在当前表点一个位置,下一步,布局,将供应商拖入列、药品拖入行,数量拖入数据,确定即可。
以上是关于EXCEL VBA combobox 模糊查询触发后 退格键功能改变的主要内容,如果未能解决你的问题,请参考以下文章