Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Что такое Range("A1:D4").Columns(4) ? Что должно вернуть его Count?
 
#1
05.03.2018 09:47:41
Доброе утро.
Код
Sub ddd()
Dim x As Range
Set x = Range("A1:D4").Columns(4)
MsgBox TypeName(x) & " - " & x.Address & " - " & x.Count
End Sub
Возвращает: Range - $D$1:$D$4 - 1

Почему? Если Range("A1:D4").Columns(4) это Range и если его адрес D1:D4, то его Count должен быть равно 4.
Ведь Msgbox Range("D1:D4").Count вернёт 4.
?
Изменено: Бахтиёр - 05.03.2018 09:48:00
 
 
 
#2
05.03.2018 09:51:26
Цитата
Бахтиёр написал: Range("A1:D4").Columns(4) это Range
Это 4-й столбец диапазона 'A1:D4' и его количество равно 1, а адрес в этом диапазоне 'D1:D4'
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
05.03.2018 12:49:06
x.Cells.Count возможно вернет 4 :)
F1 творит чудеса
 
 
 
#4
05.03.2018 13:00:23
Set x = Range("A1:D4").Columns(4) (объект = СТОЛБЕЦ)
Если как Range, то так:
Set x = Range("A1:D4") (объект = диапазон)
Изменено: Пытливый - 05.03.2018 13:03:40
Кому решение нужно - тот пример и рисует.
 
 
 
#5
05.03.2018 17:00:09
Цитата
Максим Зеленский:  x.Cells.Count возможно вернет 4
Точно.

Пытливый, Максим Зеленский, Sanja, спасибо.
 
 
 
#6
06.03.2018 14:31:46
В дополнение к предыдущим разъяснениям (для себя, в первую очередь).  Согласно документации Range.Count возвращает число элементов коллекции.  Следующий текст покажет эти элементы:
Код
Sub test()
  Dim rg1 As Range, rg2 As Range
  Dim obj As Object

  Set rg1 = Range(Cells(1, 1), Cells(4, 4))
  Set rg2 = rg1.Columns(4)

  Debug.Print "rg1 objects:"
  For Each obj In rg1
    Debug.Print obj.Address
  Next obj
  
  Debug.Print "rg2 objects:"
  For Each obj In rg2
    Debug.Print obj.Address
  Next obj

End Sub
Владимир
 
 
 
#7
06.03.2018 14:40:13
Спасибо.
 
 
 
Страницы: 1
Наверх