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

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

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

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

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

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

Сообщений: 6

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

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

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

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

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

Ответить

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

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

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

Сообщений: 5660

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

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

2010

Transpose arr

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

Ответить

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

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

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

Сообщений: 6

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

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

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

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

Сообщение отредактировал 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

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

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

Сообщений: 1378

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

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

нет

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

писал(а)):

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

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

Ответить

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

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