VBA/Excel/Access/Word/Excel/CountA — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 16:33, 26 мая 2010
Returns a count of non-blank cells in a selection
Sub CountNonBlankCells()
Dim myCount As Integer
myCount = Application.CountA(Selection)
MsgBox "The number of non-blank cell(s) in this selection is : " & myCount, vbInformation, "Count Cells"
End Sub