Работа с динамическими массивами (применение функций)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с динамическими массивами (применение функций) (Макросы/Sub)

sirenkodenis01

Дата: Воскресенье, 22.08.2021, 12:21 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Добрый день, нашел одну функцию, не соображу как ее применить в какой-нибудь простенькой процедуре транспонирования какого-нибудь диапазона.
Подскажите пожалуйста как передать эту функцию в процедуру. Заранее большое спасибо!

[vba]

Код

Function Transpose(arr())

Dim a1, a2, x, y As Long
a1 = UBound(arr(, 1))
a1 = UBound(arr(, 1))
Dim temp()
ReDim temp(a2, a1)

For x = 0 To a1
     For y = 0 To a2
          temp(y, x) = arr(x, y)
     Next y
Next x
Transpose = temp()

End Function

[/vba]

Сообщение отредактировал sirenkodenis01 - Воскресенье, 22.08.2021, 13:33

Ответить

RAN

Дата: Воскресенье, 22.08.2021, 12:39 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Transpose arr

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

sirenkodenis01

Дата: Воскресенье, 22.08.2021, 12:51 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Исправил пару опечаток

[vba]

Код

Function Transpose(arr())

Dim a1, a2, x, y As Long
a1 = UBound(arr(), 1)
a1 = UBound(arr(), 2)
Dim temp()
ReDim temp(a2, a1)

For x = 0 To a1
     For y = 0 To a2
          temp(y, x) = arr(x, y)
     Next y
Next x
Transpose = temp()

End Function

[/vba]

Сообщение отредактировал sirenkodenis01 - Воскресенье, 22.08.2021, 13:04

Ответить

sirenkodenis01

Дата: Воскресенье, 22.08.2021, 14:03 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Цитата RAN, 22.08.2021 в 12:39, в сообщении № 2 (

)

Transpose arr

Немного не ясно, как применить эту команду, не могли бы немного по подробнее описать решение? Заранее спасибо!

Ответить

sirenkodenis01

Дата: Воскресенье, 22.08.2021, 14:28 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Спасибо сам разобрался, без отписок..

Просьба админам, удалить тему с форума, первый и последний раз обращался за помощью, больше года справлялся, продолжу так делать.

Ответить

bigor

Дата: Воскресенье, 22.08.2021, 14:46 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 1100

Репутация: 210 ±

Замечаний: 0% ±

нет

Цитата sirenkodenis01, 22.08.2021 в 12:51, в сообщении № 3 (

)

a1 = UBound(arr(), 1)
a1 = UBound(arr(), 2)

здесь все правильно?

Ответить

Страница 1 из 1
1