vba多条件多结果
答：用find是可以的,查询条件再说的具体点.在表单上拖2个文本框控件,文本框里输入关键字,比如(张，财)代码里面取关键字,用like和表里的内容比较,多个查询的话,可以用and连接.代码框架如下:strKey1=textbox1.text strKey2=textbox2.text for iRow=1 to 100 if (strKey1 like Activesheet.Range(iRow...
答：程序如下图：代码文本：Option Explicit Sub 宏1()Dim arr, db, i, k Set db = CreateObject("Scripting.Dictionary")arr = Range("a1").CurrentRegion For i = 2 To UBound(arr)k = Trim(arr(i, 3))If k <> "" Then If Not db.Exists(k) Then db.Add k, CreateObject("Scripting...
答：两种方法，一是使用worksheetfunction调用sumifs等工作表函数实现。如果想提高效率，就使用字典对象来实现CreateObject("Scripting.Dictionary")字典对象只支持单条件，也就是一个索引下标，如果实现多条件呢？把多个条件组合为一个字段，使用&
答：用ADODB方式查寻了；表结果如下：代码如下：Dim cnn Dim rs Set cnn = CreateObject("adodb.connection") '创建ado对象 Set rs = CreateObject("ADODB.recordset") '创建记录集 Dim sql As String cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;extended properties=excel 8.0...
答：并不是所有的问题都要通过 VBA 来解决的，Excel 本身为我们提供了强大的数据分析功能，我们应该充分利用这些功能。这里建议使用数据透视表 PivotTable，因为要汇总规格的台数，那么在使用前可以增加一列辅助台数列（数值全部是1），如图所示：接着先选择除序号列以外的其他数据列（需要透视的区域，序号列不...
答：该结构用于多条件判断语句执行，具体见下面实例分析 实例：对三名同学的成绩作出判断，大于等于80分的为优秀；60到80之间的为及格；0到60分之间的为不及格；0分为考试无效。程序：Sub 判断语句()Dim i As Integer For i = 2 To 7 If Cells(i, 2) >= 80 Then Cells(i, 3) = "优秀"Else...
答：表发来 看看 你怎么写的，给你改好 [email protected] === Sub chaxun()Dim Arr, i&, d, Brr, aa Set d = CreateObject("Scripting.Dictionary")Arr = Sheet2.UsedRange For i = 2 To UBound(Arr)d(Arr(i, 1) & Arr(i, 6)) = Arr(i, 8)Next For j = 2 To Sheet1.Range(...
答：用if then和and函数与判断
答：Sub demo()Dim SData As Range Dim DData As Range Dim RowSta As Long, RowLas As Long Dim ColSta As Long, ColLas As Long With Range("A1").CurrentRegion RowSta = .Find("姓名", , , xlPart).Row + 1 ColSta = .Find("姓名", , , xlPart).Column + 2 RowLas = .Columns...
答：代码效果如图：代码：Sub asdf()'第一名：数组公式，即EXCEL的数组公司，多条件VLOOKUP公式，只是VBA中要用RC的方式表示；J2单元格的数组公式等于后面一串；'第二名：J2：J4都填充公式，就相当于EXCEL中的下拉；Range("J2").FormulaArray = "=VLOOKUP(RC[-2]&""|""&RC[-1],IF({1,0},R2C1:...
网友评论：
廉泳13366865503：
如何用VBA实现多条件数据汇总 -
59878喻垂
： 如何用VBA实现多条件数据汇总 第一步、随意点击一个单元格,然后点击菜单栏里面的“数据选项”,“数据选项”这里有一个“数据工具”,里面有一个“合并求和”,可以使用这个工具进行操作; 第二步、在新弹出的对话框里面选择“求和”,然后点击“浏览”工具,在“选择数据”里面选择需要的进行求和的数据,然后回车后点击“添加”; 第三步、需要把“sheet”中的需要求和的数据都选定了,然后点击“确定”,就可以直接把需要的求和的数据表求和成功.
廉泳13366865503：
Excel 关于VBA中IF多条件语句的用法,虚心求教 -
59878喻垂
： 1、if语句的含义:if语句字面意思就是如果的意思,如果条件为真,那么就执行if语句里面的程序,这个程序,一般指then后面的,一个if语句可以没有end if,但绝对不能没有then,这一点是要注意的. 2、if……then……结构 该结构一般用于...
廉泳13366865503：
在Aceess VBA里面写条件语句 两个条件的判断用IIF,多个条件的判断用什么?例如 A = IIF(条件,结果1,结果2)如果有多个条件怎么办? -
59878喻垂
：[答案] 还是用iif 比如A=IIF(条件1,结果1,IIF(条件2,结果2,结果3))如此类推
廉泳13366865503：
求助,如何用VBA实现多条件查询 -
59878喻垂
： 算法与数据量、数据类型和特殊要求有关,一般可以考虑使用字典对象,字典查询算法最简单、速度很快.字典实现多条件查询有两个套路,一是建立联合索引,KEY1|KEY2|KEY3->VALUE的数据结构;二是使用多层字典KEY1->KEY2->KEY3->VALUE
廉泳13366865503：
用VBA数组或字典 进行多条件多列汇总 -
59878喻垂
： Sub s()arr = [a1].CurrentRegionSet d1 = CreateObject(＂scripting.dictionary＂)Set d2 = CreateObject(＂scripting.dictionary＂)For i = 1 To UBound(arr)d1(arr(i, 1) & ＂ ＂ & arr(i, 2)) = d1(arr(i, 1) & ＂ ＂ & arr(i, 2)) + arr(i, 3)d2(arr(i, 1) & ＂ ＂...
廉泳13366865503：
Excel VBA怎样实现多条件求和统计 -
59878喻垂
： 1,用if 和 and 相连实现多条件,语句下面求和就行 2,VBA可调用工作表函数,直接用Application.SUM()也行啊
廉泳13366865503：
vba 实现多条件分类汇总 -
59878喻垂
： 并不是所有的问题都要通过 VBA 来解决的,Excel 本身为我们提供了强大的数据分析功能,我们应该充分利用这些功能.这里建议使用数据透视表 PivotTable,因为要汇总规格的台数,那么在使用前可以增加一列辅助台数列(数值全部是1),如图所示:接着先选择除序号列以外的其他数据列(需要透视的区域,序号列不需要透视吧?),然后插入数据透视表,在弹出的对话框中选择要插入的位置,然后单击确定按钮.在数据透视表字段列表中选中 “机型”、“品种”、“定额产量”、“产量合计”、“台数”:勾选之后,你就会看到下图的效果:最后你所要做的就是在后面的单元格中填上相应的公式就差不多了!
廉泳13366865503：
EXCEL VBA按4个条件组合出结果 -
59878喻垂
： Sub s() Dim arr, b(10, 1 To 4), rg As Range Set rg = [a39:j1308] rg.ClearContents arr = [f10:f17] For i = 1 To 4 b(0, i) = Len(arr(i * 2 - 1, 1)) For j = 1 To b(0, i) b(j, i) = Mid(arr(i * 2 - 1, 1), j, 1) Next Next For i = 1 To b(0, 1): For j = 1 To b(0, 2): For k = 1 ...
廉泳13366865503：
excel VBA函数如何返回多个结果到多个单元格中? -
59878喻垂
： 你这个Function 可以返回一个数组.如果你要把数据放到两个单元格中,可以有两个办法解决.1,你再写一个计算函数放到另一个单元格中,或者再次调用这个函数,做两次计算,每次返回一个结果.2,你可以把两个单元格的形参传到函数体内,跟据你的需要,填中不同的值即可. Function mydd(aData As Range,aDataW As Range)……mydd=array(……)aDataW... = ... End Function
廉泳13366865503：
VBA 使用 countifs 怎么简洁的表示同一个区域符合多个条件的情况 -
59878喻垂
： COUNTIFS(E:E, {5,6,7})一般是分别统计再求和: COUNTIFS(E:E, 5) + COUNTIFS(E:E, 6) + COUNTIFS(E:E, 7)
