Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как из массива вытянуть его размер по горизонталивертикали? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как из массива вытянуть его размер по горизонталивертикали? (Макросы/Sub)
Как из массива вытянуть его размер по горизонталивертикали?
Юрий_Нд Дата: Среда, 10.10.2018, 09:34 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Доброго дня всем.
Допустим мы "забили" двумерный массив элементами с помощью кода:
[vba]
Код
ar = Range("E10:G13")
[/vba]
Как из этого массива вытянуть его размер по горизонтали и по вертикали?
Спасибо ____________ Юрий.
 
Ответить
СообщениеДоброго дня всем.
Допустим мы "забили" двумерный массив элементами с помощью кода:
[vba]
Код
ar = Range("E10:G13")
[/vba]
Как из этого массива вытянуть его размер по горизонтали и по вертикали?
Спасибо ____________ Юрий.
Автор - Юрий_Нд
Дата добавления - 10.10.2018 в 09:34
_Boroda_ Дата: Среда, 10.10.2018, 09:35 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
[vba]
Код
ubound(ar) 'или ubound(ar,1) - кол строк
ubound(ar,2) ' - кол столбцов
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение[vba]
Код
ubound(ar) 'или ubound(ar,1) - кол строк
ubound(ar,2) ' - кол столбцов
[/vba]
Автор - _Boroda_
Дата добавления - 10.10.2018 в 09:35
Юрий_Нд Дата: Среда, 10.10.2018, 09:40 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Спасибо, с меня плюсик...
 
Ответить
СообщениеСпасибо, с меня плюсик...
Автор - Юрий_Нд
Дата добавления - 10.10.2018 в 09:40
Юрий_Нд Дата: Среда, 10.10.2018, 10:30 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
Где-то я всё-таки перемудрил:
Говорит Compile error, Expected array.

[vba]
Код
Public Function МАСИВ(ЗНАЧ_X, ЗНАЧ_Y, ЗНАЧ_ФУНК As Range)
Dim es, ec As Long

With Sheets(1)

es = UBound(ЗНАЧ_ФУНК, 1)
ec = UBound(ЗНАЧ_ФУНК, 2)

End With
End Function
[/vba]
 
Ответить
СообщениеГде-то я всё-таки перемудрил:
Говорит Compile error, Expected array.

[vba]
Код
Public Function МАСИВ(ЗНАЧ_X, ЗНАЧ_Y, ЗНАЧ_ФУНК As Range)
Dim es, ec As Long

With Sheets(1)

es = UBound(ЗНАЧ_ФУНК, 1)
ec = UBound(ЗНАЧ_ФУНК, 2)

End With
End Function
[/vba]
Автор - Юрий_Нд
Дата добавления - 10.10.2018 в 10:30
sboy Дата: Среда, 10.10.2018, 10:35 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
ЗНАЧ_ФУНК объявляете RANGE
а Range не массив =)
Приложили бы файл, решили бы быстрей.

Яндекс: 410016850021169
 
Ответить
СообщениеЗНАЧ_ФУНК объявляете RANGE
а Range не массив =)
Приложили бы файл, решили бы быстрей.
Автор - sboy
Дата добавления - 10.10.2018 в 10:35
Юрий_Нд Дата: Среда, 10.10.2018, 11:05 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
sboy, спасибо, приложил...
К сообщению приложен файл: 0-3_.xlsm (19.5 Kb)


Сообщение отредактировал Юрий_Нд - Среда, 10.10.2018, 11:06
 
Ответить
Сообщениеsboy, спасибо, приложил...
Автор - Юрий_Нд
Дата добавления - 10.10.2018 в 11:05
boa Дата: Среда, 10.10.2018, 11:13 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
Юрий_Нд,
[vba]
Код
es = ЗНАЧ_ФУНК.Rows.Count
ec = ЗНАЧ_ФУНК.Columns.Count
[/vba]



Сообщение отредактировал boa - Среда, 10.10.2018, 11:16
 
Ответить
СообщениеЮрий_Нд,
[vba]
Код
es = ЗНАЧ_ФУНК.Rows.Count
ec = ЗНАЧ_ФУНК.Columns.Count
[/vba]
Автор - boa
Дата добавления - 10.10.2018 в 11:13
Юрий_Нд Дата: Среда, 10.10.2018, 11:42 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 441
Репутация: 19 ±
Замечаний: 0% ±

Excel 2013
boa, Всё замечательно работает, "Проверено электроникой".
Спасибо.


Сообщение отредактировал Юрий_Нд - Среда, 10.10.2018, 11:42
 
Ответить
Сообщениеboa, Всё замечательно работает, "Проверено электроникой".
Спасибо.
Автор - Юрий_Нд
Дата добавления - 10.10.2018 в 11:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как из массива вытянуть его размер по горизонталивертикали? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!