亚洲 欧洲 日韩 综合色天使,久久国产Av无码一区二区老太,人妻醉酒被下药迷昏带到诊所 ,亚州老熟女A片AV色欲小说

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

投稿用戶 ? ? 創(chuàng)業(yè)雜談 ? 閱讀 1127

在工作中，總是會(huì)有很多表格需要處理查詢。特別是一些定期的統(tǒng)計(jì)十分繁瑣，每次都要從不同的表格里去查找數(shù)據(jù)。最近我也被這種任務(wù)纏身，無(wú)意之下我接觸了VBA，利用它的能力編寫了一個(gè)查找功能，在這里給大家分享一下，代碼放在文末了。

首先打開EXCEL表格，里面有你要查找的數(shù)據(jù)，本文中給大家的示例是一班、二班、三班的學(xué)生姓名、科目和成績(jī)。

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

一班

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

二班

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

三班

有了要搜索的數(shù)據(jù)庫(kù)之后，我們建一個(gè)名為功能表的sheet，按照下圖設(shè)置好我們要搜索的元素，并將搜索數(shù)量填上。

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

功能表

完成之后，右擊功能表，并點(diǎn)擊查看代碼，如下圖

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

會(huì)出現(xiàn)代碼工程界面，一定要在自己的那個(gè)excel表中右擊，將鼠標(biāo)放在插入上，出現(xiàn)選項(xiàng)欄后點(diǎn)擊模塊。

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

新建模塊

選擇剛插入的模塊，將代碼復(fù)制到右邊程序編輯處，退出程序編輯界面?；氐絜xcel后點(diǎn)擊視圖，點(diǎn)擊宏的下拉箭頭，選擇查看宏，出現(xiàn)對(duì)話框之后，選擇名為gongcheng的宏，點(diǎn)擊執(zhí)行宏，就可以檢索出自己想要的內(nèi)容了。

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

執(zhí)行宏

結(jié)果如下：

統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？

搜索結(jié)果

代碼：

Sub gongnneng()

For n = 2 To (Sheets("功能表").Cells(2, 4) + 1)

Call fenzhi(n)

Next

End Sub

Sub fenzhi(n)

Dim WSArray()

m = ThisWorkbook.Worksheets.Count

ReDim WSArray(1 To m)

For c = 1 To m

WSArray(c) = ThisWorkbook.Worksheets.Item(c).Name

Next

For j = 2 To m

For h = 1 To 100

v = 1

Do

If WSArray(j) <> "功能表" Then

If Sheets(WSArray(j)).Cells(v, h) = Sheets("功能表").Cells(n, 1) Then

Call fuzhi(n, j, v)

Exit Sub

Else

If Sheets(WSArray(j)).Cells(v, h) = "" And v >= 10 Then

v = 1

Exit Do

End If

End If

v = v + 1

Else

Exit For

End If

Loop

Next

Next

End Sub

Sub fuzhi(n, j, v)

Dim SArray()

p = ThisWorkbook.Worksheets.Count

ReDim SArray(1 To p)

For k = 1 To p

SArray(k) = ThisWorkbook.Worksheets.Item(k).Name

Next

For x = 1 To 100

y = 1

Do

If Sheets(SArray(j)).Cells(y, x) = Sheets("功能表").Cells(n, 2) Then

Sheets("功能表").Cells(n, 3) = Sheets(SArray(j)).Cells(v, x)

Exit Sub

Else

If Sheets(SArray(j)).Cells(y, x) = "" And y >= 20 Then

y = 1

Exit Do

End If

End If

y = y + 1

Loop

Next

End Sub

以上就是我自己編寫的程序，由于我是新手一枚，可能有很多不足之處，歡迎大家指正，大家還有什么想法或者需求歡迎大家討論。

本文內(nèi)容由互聯(lián)網(wǎng)用戶自發(fā)貢獻(xiàn)，該文觀點(diǎn)僅代表作者本人。本站僅提供信息存儲(chǔ)空間服務(wù)，不擁有所有權(quán)，不承擔(dān)相關(guān)法律責(zé)任。如發(fā)現(xiàn)本站有涉嫌抄襲侵權(quán)/違法違規(guī)的內(nèi)容， 請(qǐng)發(fā)送郵件至 sumchina520@foxmail.com 舉報(bào)，一經(jīng)查實(shí)，本站將立刻刪除。
如若轉(zhuǎn)載，請(qǐng)注明出處：http://www.qjsdgw.cn/146093.html
贊 (0)
上一篇 2023年3月18日 am6:36
下一篇 2023年3月18日 am8:12

相關(guān)推薦