今日知识分享vb调用excel筛选（筛选vba语句）

今日知识分享vb调用excel筛选（筛选vba语句）

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查询EXCEL中单元格的内容？

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

我已通过VB打开了一个excel表格，我想查找表格中单元格内的一些内容，然后还想得到有该内容的地址（行，列），请帮忙解答，不胜感激！

解析:

Option Explicit

Dim xlApp As Excel.Application '定义EXCEL类

Dim xlBook As Excel.Workbook '定义工件簿类

Dim xlsheet As Excel.Worksheet '定义工作表类

Dim Tex As String

Dim ln As String

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

Dim x As Integer

CD.ShowOpen

List2.MousePointer = 11

Open CD.Filename For Input As 1

Do Until EOF(1)

Line Input #1, ln

Tex = Tex ln vbCrLf

Loop

'判断EXCEL是否打开

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类

xlApp.Visible = False '设置EXCEL可见

Set xlBook = xlApp.Workbooks.Open(CD.Filename) '打开EXCEL工作簿

Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表

xlsheet.Activate '激活工作表

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏

For x = 1 To 4

List2.AddItem xlsheet.Cells(1, x) '给单元格1行驶列赋值

Next x

Close 1

List2.MousePointer = 0

Tex = ""

End Sub

代码是实现对excel操作的excel.application

还有如

Excel.Application

Set xlapp = CreateObject("Excel.Application") '激活EXCEL

xlapp.Visible = True '让EXCEL可见

Set xlbook = xlapp.Workbooks.Open(App.Path + "个人简历.xlt")

'打开工作簿，strDestination为一个EXCEL报表文件

Set xlsheet = xlbook.Worksheets(1) '设定工作表

这个有点像是vb6的、vb也有相应的方法的.总之是

excel.application 用到这个就可以了.必要的话导入excel的dll文件.

这样你就发现、可以用vb来对excel来操作.你可以查下微软的msdn、有具体的属性方法.

如:

Dim ef As New Excel.Application

Dim es As New Excel.Worksheet

Dim er As Excel.Range

ef.Workbooks.Add()

es = ef.Worksheets("sheet1")

es.Activate()

er = es.Range("a1:C1")

er.Select()

er.Merge()

er.Value = "gordon1117" ef.Visible = True 目前应用了三个对象:application,worksheet和range,三者的关系应该清晰,做到这点就能从基本开始做了:)格式设置都在range对象,只不过在设置对齐属性上是verticalalignment和horizon

range 用来定位、

然后你可以循环把数据输出到指定了格式的excel文件里了吧、其实连格式都是可以程序控制的好好学下吧.

可以参考一下这篇文章

blog.csdn/hawordcheng/archive/2006/10/26/1351931x

请问怎么样在VB6.0里筛选出已有的EXCEL表格里的数据？ 表格以及所需要的筛选条件如下图

具体操作步骤如下：

1.选中表格的第一行，在工具栏中选择“筛选”

2.在需要筛选的那一列单元格中点击符号

3.在弹出来的窗口中的“内容筛选”中填入筛选的条件。

如在下列数字中想筛选出含有5的数字

则在“内容筛选”空白处填写数字“5”

4.最后点击“确定”即可

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

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

1、选中区域，单击菜单

数据--筛选

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

操作完成

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

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

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

列出筛选条件，选择：数据--排序和筛选--高级；

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

VB调用EXCEL筛选

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

Worksheets("Sheet1").Range("A1").AutoFilter_

Field:=7, _

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

本文地址： ：，，。以上内容关于vb调用excel筛选（筛选vba语句）