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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир 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
 
Ответить
СообщениеДобрый день, нашел одну функцию, не соображу как ее применить в какой-нибудь простенькой процедуре транспонирования какого-нибудь диапазона.
Подскажите пожалуйста как передать эту функцию в процедуру. Заранее большое спасибо!

[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 в 12:21
RAN Дата: Воскресенье, 22.08.2021, 12:39 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5494
Репутация: 1100 ±
Замечаний: 0% ±

2010
[vba]
Код
Transpose arr
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Transpose arr
[/vba]

Автор - RAN
Дата добавления - 22.08.2021 в 12:39
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
 
Ответить
СообщениеИсправил пару опечаток

[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 в 12:51
sirenkodenis01 Дата: Воскресенье, 22.08.2021, 14:03 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Transpose arr


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


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

Автор - sirenkodenis01
Дата добавления - 22.08.2021 в 14:03
sirenkodenis01 Дата: Воскресенье, 22.08.2021, 14:28 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - sirenkodenis01
Дата добавления - 22.08.2021 в 14:28
bigor Дата: Воскресенье, 22.08.2021, 14:46 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 489
Репутация: 94 ±
Замечаний: 0% ±

нет
Цитата sirenkodenis01, 22.08.2021 в 12:51, в сообщении № 3 ()
a1 = UBound(arr(), 1)
a1 = UBound(arr(), 2)
здесь все правильно?
 
Ответить
Сообщение
Цитата sirenkodenis01, 22.08.2021 в 12:51, в сообщении № 3 ()
a1 = UBound(arr(), 1)
a1 = UBound(arr(), 2)
здесь все правильно?

Автор - bigor
Дата добавления - 22.08.2021 в 14:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с динамическими массивами (применение функций) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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