首页 办公 正文

excel通过vb筛选的简单介绍

=xlAnd数据透视表的操作ActiveSheet.PivotTables([你的表名]).PivotFields([你卖孝肆的字段名]).PivotFilters.AddType:...

EXCEL 用VB 筛选条件除某个值以外所有项都选中,要怎么写

你中轿这是数据透视表的操作吧?

ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=1, Criteria1:="反选的内容", Operator:=xlAnd

数据透视表的操作

ActiveSheet.PivotTables([你的表名]).PivotFields([你卖孝肆的字段名]).PivotFilters.Add Type:= _

xlCaptionDoesNotEqual, Value1:="你的反选内容"

ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=1, Criteria1:="反选的内容", Operator:=xlAnd

'或者

ActiveSheet.PivotTables([你的表名]).PivotFields([你的字段名]).PivotFilters.Add Type:= _

        xlCaptionDoesNotEqual, Value1:="你慎猜的反选内容"

VB调用excle时按要求筛选

On Error GoTo errline

CommonDialog1.Flags = cdlCFBoth

CommonDialog1.Filter = "excel文件(*.xls) | *.xls|excel文件(*.xlsx) | *.xlsx"

CommonDialog1.CancelError = True '保证在取消对话框不报错

CommonDialog1.ShowOpen

Dim xlApp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet

Dim I As Long, J As Long,BomData() as string,Num as integer

Set xlApp = New Excel.Application

   汪尺哪 xlApp.Visible = False

Set xlBook = xlApp.Workbooks.Open(Text1.Text)

Set xlSheet = xlBook.Sheets(1)

With xlSheet

   RowBom = .Cells(.Rows.Count, 1).End(xlUp).Row - 1

   ColBom = .Cells(1, .Columns.Count).End(xlToLeft).Column

   ReDim BomData(RowBom, ColBom)

   For I = 1 To RowBom

         if BomData(I, 1) ="444"  and bomdata(i,4)="困码123" then

             num = num+1

         endif

   Next 困激I

End With

xlBook.Close

xlApp.Quit

Set xlSheet = Nothing

Set xlBook = Nothing

Set xlApp = Nothing

text1.text = num

errline:

If Err.Number  0 Then

MsgBox CStr(Err.Number) + "" + Err.Description, vbOKOnly + vbInformation

End If

Err.Clear

如何用VB控制excel的筛选并删除筛选结果

EXCEL中使用高级筛选可以将筛选结果直接复制到其它区域,无须另外手动复制粘贴;

高级筛选可以使用通配符“*”筛笑敏选出含某些字符的记录;

列出筛选条件,选则告择:数据--排序和筛选--高级;

打开高级孙升明筛选对话框,选择区域和选项,这里选择“将筛选结果复制到其他位置”,即可将筛选结果复制出来,并且可以指定复制到的位置(如果是所有字段都复制出来,可以只选择左上角一个单元格,比如下图的复制到可以为$A$11)。

VB调用EXCEL筛选

自动缓卜筛选只能有两个条件,不过可以允许多个值筛选,采用下面的方法就可以了。

Worksheets("卜哪运Sheet1").Range("A1").AutoFilter_

Field:=7, _

Criteria1:=Array( "型梁a","b","c"), Operator:=xlFilterValues

VB筛选excle中的数据

写一段excel导入到datagrid控件里的代码,然后在窗体里新建一个TEXT得控件

用SQL的SELECT AVG(年龄) AS xxxx FROM XXXX表 把SELECT求出的平均值赋给TEXT,然后就可以显示给你看了

大神求救,怎样用vb或者excel在数据中筛选出两两之间有3个字相同的数据?

可以使用筛选工具,按下面步骤操作

1、选中区薯塌掘域,单击菜单

数据--筛选

2、单击第一行下拉框数核--选自定义--选包含(界面左边)、输入要筛选的衫逗条件(界面右边)--确定

操作完成

本文转载自互联网,如有侵权,联系删除