在线观看日本无码成人版,久久午夜夜伦鲁鲁片免费无码 http://www.qjsdgw.cn Fri, 17 Mar 2023 23:24:58 +0000 zh-Hans hourly 1 https://wordpress.org/?v=6.8.3 http://www.qjsdgw.cn/wp-content/uploads/2022/03/ico.png 用不了 – V商人 http://www.qjsdgw.cn 32 32 統(tǒng)計(jì)助手小程序怎么用不了，統(tǒng)計(jì)助手小程序怎么用不了了？ http://www.qjsdgw.cn/146093.html Fri, 17 Mar 2023 23:24:55 +0000 http://www.qjsdgw.cn/?p=146093 在工作中，總是會(huì)有很多表格需要處理查詢。特別是一些定期的統(tǒng)計(jì)十分繁瑣，每次都要從不同的表格里去查找數(shù)據(jù)。最近我也被這種任務(wù)纏身，無(wú)意之下我接觸了VBA，利用它的能力編寫了一個(gè)查找功能，在這里給大家分享一下，代碼放在文末了。

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

一班

二班

三班

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

功能表

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

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

新建模塊

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

執(zhí)行宏

結(jié)果如下：

搜索結(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

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

]]> 云閃付淘寶優(yōu)惠券怎么用啊（云閃付淘寶優(yōu)惠券怎么用不了） http://www.qjsdgw.cn/73363.html Mon, 08 Aug 2022 06:48:24 +0000 http://www.qjsdgw.cn/?p=73363 使用鏈接（

https://base.95516.com/s/wl/webV3/activity/xsgwctoc/html/snsIndex.html?r=5a27021335be16f211482889fbbc507c&code=ctoc00000000806&channel=7）開(kāi)通云閃付，可以領(lǐng)128元紅包和購(gòu)物券，里面有很多券可以直接在淘寶，拼多多，京東購(gòu)物抵現(xiàn)用，還有很多可以充話費(fèi)、電費(fèi)使用，重要的是里面有張62會(huì)員的券，一元開(kāi)通會(huì)員，這個(gè)一定要使用，很多羊毛可以薅，每月可以領(lǐng)六元話費(fèi)券或者信用卡還款券，消費(fèi)有十倍積分，可以用積分兌換各種優(yōu)惠券，什么淘寶，天貓，拼多多等等線上的消費(fèi)券，線下超市購(gòu)物券以及各種通用線上線下抵現(xiàn)券。

這個(gè)是我這兩天用積分兌換的優(yōu)惠券，雙十一省老鼻子錢了，

可能有人不了解這個(gè)軟件，這個(gè)可以放心使用，銀聯(lián)力推的軟件，現(xiàn)在我支付寶都很少用了，一般付款都是云閃付，而且管理銀行卡很方便，轉(zhuǎn)賬什么的也沒(méi)手續(xù)費(fèi)，實(shí)在太香了。

]]>