VBA/Excel/Access/Word/Excel/CountA — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 15:47, 26 мая 2010
Returns a count of non-blank cells in a selection
<source lang="vb">
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
</source>