VBA/Excel/Access/Word/Excel/CountA — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Версия 19:33, 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>