日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

公告:魔扣目錄網(wǎng)為廣大站長提供免費收錄網(wǎng)站服務(wù),提交前請做好本站友鏈:【 網(wǎng)站目錄:http://www.ylptlb.cn 】, 免友鏈快審服務(wù)(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網(wǎng)站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

如果在Excel中選擇了一個或多個區(qū)域,用下面的VBA代碼可以統(tǒng)計當(dāng)前工作表所選區(qū)域中單元格(或行、列)的數(shù)量:

1. 統(tǒng)計選定區(qū)域中的單元格數(shù)量:

Sub CountCellsInSelection()
Dim CellsNum As Integer
CellsNum = Selection.Count
MsgBox "所選區(qū)域中的單元格數(shù)量為: " & CellsNum
End Sub

2.統(tǒng)計選定區(qū)域中所包含的行數(shù),如果選擇了多個區(qū)域,則統(tǒng)計行數(shù)之和。

Sub CountRowsInSelection()
Dim RowsNum As Integer
For i = 1 To Selection.Areas.Count
RowsNum = RowsNum + Selection.Areas(i).Rows.Count
Next i
MsgBox "所選區(qū)域中的行數(shù)為: " & RowsNum
End Sub

3.統(tǒng)計選定區(qū)域中所包含的列數(shù),如果選擇了多個區(qū)域,則統(tǒng)計列數(shù)之和。

Sub CountColumnsInSelection()
Dim ColumnsNum As Integer
For i = 1 To Selection.Areas.Count
ColumnsNum = ColumnsNum + Selection.Areas(i).Columns.Count
Next i
MsgBox "所選區(qū)域中的列數(shù)為: " & ColumnsNum
End Sub

4.統(tǒng)計選定區(qū)域中的非空單元格數(shù)量:

Sub CountNonBlankInSelection()
Dim NonBlankNum As Integer
NonBlankNum = Application.CountA(Selection)
MsgBox "所選區(qū)域中包含非空單元格有" & NonBlankNum & "個。"
End Sub

5.統(tǒng)計選定區(qū)域中有填充色的單元格數(shù)量:

Sub CountColorCellsInSelection()
Dim ColorCellsNum As Integer
Dim rCell As Range
For Each rCell In Selection
If rCell.Interior.ColorIndex > 0 Then
ColorCellsNum = ColorCellsNum + 1
End If
Next rCell
MsgBox "所選區(qū)域中填充了顏色的單元格有" & ColorCellsNum & "個。"
End Sub

6.統(tǒng)計選定區(qū)域中包含公式的單元格數(shù)量:

Sub CountFormulaInSelection()
Dim FormulaNum As Integer
Dim rCell As Range
For Each rCell In Selection
If rCell.HasFormula Or rCell.HasArray Then
FormulaNum = FormulaNum + 1
End If
Next rCell
MsgBox "所選區(qū)域中包含公式的單元格有" & FormulaNum & "個。"
End Sub

分享到:
標(biāo)簽:區(qū)域 單元格 統(tǒng)計 選定 Excel函數(shù)
用戶無頭像

網(wǎng)友整理

注冊時間:

網(wǎng)站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網(wǎng)站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網(wǎng)站吧!
最新入駐小程序

數(shù)獨大挑戰(zhàn)2018-06-03

數(shù)獨一種數(shù)學(xué)游戲,玩家需要根據(jù)9

答題星2018-06-03

您可以通過答題星輕松地創(chuàng)建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學(xué)四六

運動步數(shù)有氧達(dá)人2018-06-03

記錄運動步數(shù),積累氧氣值。還可偷

每日養(yǎng)生app2018-06-03

每日養(yǎng)生,天天健康

體育訓(xùn)練成績評定2018-06-03

通用課目體育訓(xùn)練成績評定