Содержание
0 Clouse24 [2016-06-10 21:36:00]
У меня возникли трудности с возвратом набора столбцов из массива. Я вернул оператор выбора sql в свой вариантный массив. Он имеет 16 столбцов. Мне нужно захватить 12 из 16 столбцов, чтобы вернуться к моей таблице из определенной строки в массиве. Я использую этот код для получения строки:
Как мне получить только 12 столбцов, которые мне нужны? Столбцы являются последними 12 столбцами в массиве и всегда будут в том порядке, в котором они мне нужны.
Заранее спасибо за помощь!
arrays vba excel-vba excel variant
1 ответ
1 Решение [2016-06-10 22:22:00]
Это будет зависеть от формы массива.
Если это один размерный массив
Обратите внимание, что WorksheetFunction.Transpose(a) свопирует строки и столбцы массива.
Многомерные массивы будут зависеть от того, как они создаются.
Мы можем думать об этом так
Массивы запросов базы данных: a = recordset.getRows()
Dim a (10, 100) Redim Preserve a (10, Ubound (a) + 1)
Выравниваются так: (столбцы, строки), потому что вы можете только изменить размер последнего размера массива.
Таким образом, мы бы: a = Фильтр (выбор, ячейки (i, 1).Value, vbTextCompare) rows = UBound (a, 2) columns = UBound (a, 1) Ячейки (i, 1).Resize (столбцы, строки ) = Application.WorksheetFunction.Transpose(a)
Массивы массивов Excel являются базовыми 1 и имеют ту же форму, что и сам диапазон.
Таким образом, вы можете сделать это
Или a = Фильтр (выбор, ячейки (i, 1).Value, vbTextCompare) rows = UBound (a, 1) columns = UBound (a, 2) Ячейки (i, 1).Resize(rows, columns) = a
Функция ArraySwapColumns позволяет переставить в нужном порядке столбцы двумерного массива.
Кроме того, попутно можно изменить вторую размерность массива (чтобы убрать лишние столбцы, или добавить недостающие)
См. пример использования в прикреплённом файле.
——————— добавлено позже ———————-
То же самое, но в виде одной функции:
Пример использования (для перeстановки столбцов на листе Excel)
| Вложение | Размер | Загрузки | Последняя загрузка |
|---|---|---|---|
| SwapColumns.xls | 53.5 КБ | 154 | 1 год 11 недель назад |
- 14896 просмотров
Комментарии
Потому что в VBA это не обязательно. И на работе кода не сказывается.
Почему переменные не объявлены?
Никита, для этих целей я использую функцию объединения двумерных массивов:
http://excelvba.ru/code/CombineArrays
Каким образом добавить полученный массив в конец к уже существующему?
Спасибо, теперь разобрался.
Обратите внимание на последнюю строку в макросе — примере использования:
Range("g1") — это ячейка, начиная с которой, будет вставлен новый массив на лист
А каким образом изменить диапазон для размещения переставленной матрицы ?
Копирование значений из диапазона ячеек в массив и обратно с помощью VBA Excel. Простейшие примеры обмена значениями между диапазоном и массивом.
Как известно, VBA обрабатывает информацию в массивах значительно быстрее, чем в ячейках рабочего листа Excel. Поэтому, при работе с большими объемами данных, удобнее использовать массивы, чем наблюдать во время выполнения кода за мерцанием изображения на экране или просто смотреть в неизменную картинку, если обновление экрана отключено (Application.ScreenUpdating = False). Здесь обмен значениями между массивом и диапазоном ячеек будет вполне уместен.
Копирование значений из диапазона ячеек в массив
Чтобы скопировать значения из диапазона ячеек в массив, необходимо объявить переменную универсального типа (As Variant) и присвоить ей значения диапазона ячеек с помощью оператора присваивания (=):
VBA Excel автоматически преобразует объявленную переменную в двумерный массив, соответствующий размерности диапазона ячеек, в нашем случае в массив — a(1 To 3, 1 To 3), и заполняет его значениями. Нумерация измерений массивов, созданных таким образом, начинается с единицы (1).
Можно, в этом случае, объявить сразу динамический массив, чтобы изначально указать, что эта переменная будет массивом. Так как свойством диапазона ячеек по-умолчанию в VBA Excel является значение (Value), его можно в коде явно не указывать, но, при желании, можно и указать. Получится такая конструкция, аналогичная первой:
Стоит отметить, что для копирования значений из диапазона ячеек в массив можно использовать только обычную переменную или динамический массив универсального типа (Variant). VBA Excel автоматически преобразовывает их в двумерный массив. Если объявить двумерный массив с указанной заранее размерностью, использовать его не получится, будет сгенерирована ошибка с сообщением: Can’t assign to array (Нельзя назначать массив).
Копирование значений из массива в диапазон ячеек
Значения в диапазон ячеек добавляются из массива с помощью оператора присваивания (=):
Обратите внимание, что вставить значения в диапазон ячеек можно только из двумерного массива. Размерность такого массива может начинаться с нуля (0). Количество элементов в измерениях массива должно совпадать с количеством строк и столбцов в диапазоне ячеек. Если вам нужно вставить значения в одну строку или в один столбец, укажите размерность единственной строки или единственного столбца как (0) или (1 To 1), если вы хотите использовать нумерацию измерений своего массива с единицы. Например, для записи десяти значений из массива в одну строку можно объявить такой массив — massiv(9, 0), или в один столбец — massiv(0, 9).
Для вставки значений в диапазон ячеек из массива идеально подойдет массив, созданный для копирования в него значений из диапазона. В этом случае, данные с рабочего листа Excel переносятся в массив, обрабатываются и, после обработки, вставляются обратно в ту же или другую таблицу на том же или другом рабочем листе.
Простейшие примеры обмена значениями
Эти примеры составлены так, чтобы вам не пришлось совершать лишних действий, просто скопируйте их в свой модуль любой книги Excel с поддержкой макросов и запустите по-очереди на выполнение.
Пример 1
Заполнение двумерного массива значениями и и их присвоение диапазону ячеек на рабочем листе Excel:
В данном случае переменная массива не обязательно должна быть универсального типа (As Variant), например, если бы в нее записывались только текстовые данные, ее можно было бы объявить как строковую (As String), и все бы работало.
Пример 2
Объявление обычной переменной универсального типа, присвоение ей значений из диапазона ячеек «A1:C3», записанных кодом первого примера, и вставка этих значений из полученного двумерного массива в диапазон «D10:F12»:
Естественно, указанные диапазоны ячеек расположены на активном листе.
Пример 3
Допустим, на рабочем листе «Лист1» в ячейках «A1:A5» записано количество какого-то товара, а в ячейках «B1:B5» — его цена. Необходимо к этой информации добавить сумму каждого товара, умножив количество на цену, и перенести данные на «Лист2».
Массив создан сразу с размерностью 5×3 с элементами под суммы. Даже если на первом листе в ячейках «C1:C5» есть какие-то значения, в массиве они будут перезаписаны результатами вычислений.
VBA Excel. Диапазон ячеек и массив (обмен значениями) : 17 комментариев
"Еще стоит отметить, что объявить динамический массив можно, а вот использовать обычный двумерный массив с указанной заранее размерностью не получится."
А почему? Не ясно где и как именно применяется двумерный массив и, соответственно, почему не получится его применить
Артем, двумерные массивы в VBA Excel используются без ограничений, как и массивы с другим количеством измерений. Тесты показали, что значения ячеек невозможно присвоить заранее объявленному двумерному массиву (естественно с размерностью, соответствующей диапазону ячеек):
Выполнение кода сгенерирует ошибку, а если убрать размерность при объявлении переменной, все заработает корректно. Процитированную вами строку я изменил, чтобы она точнее передавала смысл.
Честно говоря выше так и не понял фразу даже после корректировки, а вот в комментарии вы все описали ясно и понятно. Спасибо!
Евгений, можете показать пример, когда данные с рабочего листа Excel переносятся в массив, обрабатываются и, после обработки, вставляются на другой лист или в другую книгу
Нурислам, в качестве ответа я добавил в статью «Пример 3».
Евгений.
Дано: массив (1 to 5, 1 to 10, 1 to 3)
по порядку:
1-5 периоды (пусть 1, 2, 3, 4, 5)
1-10 — Наименование товара (10 вариантов)
1-3 — цена в разных магазинах (цена1, цена2, цена3).
Пусть массив заполнен полностью.
Вопрос:
Как быстро вывести на экран (лист) данные массива относящиеся к периоду 2 (например)?
Спасибо!
Василий,
для быстрого выведения информации на рабочий лист Excel используйте еще один массив, двумерный. Заполняйте его циклом, который с элементами массива работает намного быстрее, чем с ячейками.
Добрый день, Евгений!
Подскажите, пожалуйста, если необходимо вставить значения таблицы — перечень клиентов в соответствующие поля динамической таблицы. Как будет выглядеть?
Если динамическая таблица расположена в левом верхнем углу рабочего листа, используйте при вставке данных обычную адресацию рабочего листа вида Range(Cells(1, 1), Cells(2, 2)) .
Если динамическая таблица расположена не в левом верхнем углу рабочего листа, использование адресации умной таблицы вида Range("Таблица1").Range(Cells(1, 1), Cells(2, 2)) будет оправдано тем, что не придется изменять код при удалении строк выше таблицы и столбцов левее.
Евгений, спасибо большое, очень хорошее и полное объяснение! Только остался еще вопрос — чтобы рабоать с динамическим массивом после копирования из диапазона ячеек, его надо переопределить с preserve?
1) Вы можете переопределить массив с оператором Preserve, только учитывайте, что таким способом можно переопределить только последнее измерение массива. Если условно сопоставить двумерный массив с диапазоном ячеек, то расширение возможно только путем «добавления столбцов», количеству которых соответствует значение второго измерения.
2) Если вам нужно добавить «строки», вы можете присвоить массиву значения диапазона на нужное количество строк больше, чтобы использовать их для промежуточных расчетов. Например, вместо диапазона A1:C3 с нужными значениями можно присвоить массиву значения диапазона A1:C4 и элементы ИмяМассива(4, 1), ИмяМассива(4, 2), ИмяМассива(4, 3) использовать для промежуточных расчетов.
3) Для промежуточных расчетов можно объявить отдельный массив.
Евгений, благодарю от души! Удовольствие Вас читать, настолько все полно и понятно описано)
Спасибо, Ольга, за добрые слова и столь высокую оценку!
а как в строку через запятую это написать
Sub Test2()
Dim a As Variant
a = Range("A1:C3")
Range("D10:F12") = a
End Sub
Привет, ASD!
В этом случае не обойтись без цикла:
Добрый день.
Есть массив A(1,3,5)
Как в вывести в ячейки на лист1 не только элементы этого массива, а еще и индексы.
То есть должно получиться так:
Строка с индексами: 1 2 3
Строка с элементами:1 3 5
Добрый день, Руслан!
Вывести индексы в ячейки можно с помощью циклов For. Next: