如何用VBA 篩選數(shù)據(jù)并生成新的excel表

篩選后求和的公式是

成都創(chuàng)新互聯(lián)成立以來不斷整合自身及行業(yè)資源、不斷突破觀念以使企業(yè)策略得到完善和成熟，建立了一套“以技術(shù)為基點(diǎn)，以客戶需求中心、市場為導(dǎo)向”的快速反應(yīng)體系。對公司的主營項(xiàng)目，如中高端企業(yè)網(wǎng)站企劃 / 設(shè)計(jì)、行業(yè) / 企業(yè)門戶設(shè)計(jì)推廣、行業(yè)門戶平臺(tái)運(yùn)營、成都App定制開發(fā)、手機(jī)網(wǎng)站制作、微信網(wǎng)站制作、軟件開發(fā)、成都多線機(jī)房等實(shí)行標(biāo)準(zhǔn)化操作，讓客戶可以直觀的預(yù)知到從成都創(chuàng)新互聯(lián)可以獲得的服務(wù)效果。

=subtotal(9,b2:b99)

對ab列進(jìn)行篩選，篩選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

vb。net 2008 在一個(gè)textbox1里面輸入關(guān)鍵字，下面的DataGridView1就篩選出相應(yīng)的表？

當(dāng)點(diǎn)擊button1的時(shí)候就顯示吧~~才5分，真是可憐的分?jǐn)?shù)。

button1里面的事件

Dim conn As SqlConnection = New SqlConnection(數(shù)據(jù)庫連接)

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()

vb.net根據(jù)條件篩選表格數(shù)據(jù)

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)

網(wǎng)站名稱：vb.net篩選出新表的簡單介紹
分享地址：http://jinyejixie.com/article4/hopdoe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動(dòng)態(tài)網(wǎng)站、手機(jī)網(wǎng)站建設(shè)、標(biāo)簽優(yōu)化、網(wǎng)頁設(shè)計(jì)公司、定制開發(fā)、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)