vb.net筛选出新表的简单介绍

如何用VBA 筛选数据并生成新的excel表

筛选后求和的公式是

=subtotal(9,b2:b99)

对ab列进行筛选，筛选a列的“a”，并求和的代码如下：

sub

xxx()

activesheet.range("$a$1:$b$999").autofilter

field:=1,

criteria1:="a"

dim

xrng

as

range

set

xrng

=

range("b2:b999")

msgbox

worksheetfunction.subtotal(9,

xrng)

end

sub

相关问答

Q1: vb。net 2008 在一个textbox1里面输入关键字，下面的DataGridView1就筛选出相应的表？

当点击button1的时候就显示吧~~才5分，真是可怜的分数。

button1里面的事件

Dim conn As SqlConnection = New SqlConnection(数据库连接)

Dim dr As SqlDataReader = Nothing

Dim cmd As SqlCommand

conn.Open()

cmd = New SqlCommand("select * from gussmann where name='" TextBox1.Text "'", conn)

dr = cmd.ExecuteReader()

GridView1.DataSource = dr

GridView1.DataBind()

conn.Close()

Q2: vb.net根据条件筛选表格数据

    Sub Find(ByRef Obj As DataGridView, Optional ByVal value As String = Nothing, Optional ByVal cellIndex As Integer = 1)

        For Each i As DataGridViewRow In DataGridView1.Rows

            If value Is Nothing OrElse value = "" Then

                i.Visible = True

            Else

                Try

                    If i.Cells(cellIndex).Value IsNot Nothing Then i.Visible = i.Cells(cellIndex).Value = value

                Catch ex As Exception

                End Try

            End If

        Next

    End Sub

Find(DataGridView1, "张三",1)