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、单击第一行下拉框数核--选自定义--选包含(界面左边)、输入要筛选的衫逗条件(界面右边)--确定
操作完成