卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

在VBA中應(yīng)用LIKE語(yǔ)句進(jìn)行條件編碼數(shù)量統(tǒng)計(jì)

本篇經(jīng)驗(yàn)將和大家分享VBA中LIKE語(yǔ)句的應(yīng)用。通過(guò)實(shí)例展示如何使用LIKE語(yǔ)句來(lái)統(tǒng)計(jì)符合特定條件的編碼數(shù)量。進(jìn)入VBA界面首先,在工作表中,點(diǎn)擊菜單欄的【開發(fā)工具】,在其工具欄里找到【Visual

本篇經(jīng)驗(yàn)將和大家分享VBA中LIKE語(yǔ)句的應(yīng)用。通過(guò)實(shí)例展示如何使用LIKE語(yǔ)句來(lái)統(tǒng)計(jì)符合特定條件的編碼數(shù)量。

進(jìn)入VBA界面

首先,在工作表中,點(diǎn)擊菜單欄的【開發(fā)工具】,在其工具欄里找到【Visual Basic】按鈕,并點(diǎn)擊它,進(jìn)入VBA界面。

創(chuàng)建一個(gè)新模塊

在VBA界面中,點(diǎn)擊菜單欄的【插入】,在下拉菜單中選擇【模塊】選項(xiàng)。這樣就會(huì)彈出一個(gè)名為【代碼編輯】的窗口。

輸入代碼

在代碼編輯窗口中,輸入以下代碼:

```VBA

Sub likeexercise0()

Dim i%, j As Integer, n%

With Sheet1

For j 2 To 6

For i 2 To 14

If .Cells(i, "a") Like .Cells(j, "e") Then

n n 1

End If

Next i

.Range("f" j) n

n 0

Next j

End With

End Sub

```

運(yùn)行代碼

點(diǎn)擊VBA窗口下工具欄中的【運(yùn)行】按鈕,即可運(yùn)行所編寫的代碼。

統(tǒng)計(jì)結(jié)果

通過(guò)以上代碼的運(yùn)行,可以立即得到統(tǒng)計(jì)結(jié)果。

以上是關(guān)于VBA中應(yīng)用LIKE語(yǔ)句進(jìn)行條件編碼數(shù)量統(tǒng)計(jì)的分享。希望本文對(duì)大家在電腦SEO相關(guān)文章編輯方面有所幫助。

標(biāo)簽: