Свойство Areas.Count (Excel)

Возвращает значение Long , представляющее количество объектов в коллекции.

Синтаксис

expression. Считать

выражение Переменная, представляющая объект Areas .

Пример

В этом примере отображается количество столбцов в выделенном фрагменте на листе Sheet1. Код также проверяет выбор нескольких областей. Если она существует, код циклит по областям выбора нескольких областей.

Sub DisplayColumnCount() 
 Dim iAreaCount As Integer 
 Dim i As Integer 
 
 Worksheets("Sheet1").Activate 
 iAreaCount = Selection.Areas.Count 
 
 If iAreaCount <= 1 Then 
 MsgBox "The selection contains " & Selection.Columns.Count & " columns." 
 Else 
 For i = 1 To iAreaCount 
 MsgBox "Area " & i & " of the selection contains " & _ 
 Selection.Areas(i).Columns.Count & " columns." 
 Next i 
 End If 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.