Vba excel именованный диапазон в массив - Word и Excel - помощь в работе с программами

Копирование значений из диапазона ячеек в массив и обратно с помощью VBA Excel. Простейшие примеры обмена значениями между диапазоном и массивом.

Как известно, VBA обрабатывает информацию в массивах значительно быстрее, чем в ячейках рабочего листа Excel. Поэтому, при работе с большими объемами данных, удобнее использовать массивы, чем наблюдать во время выполнения кода за мерцанием изображения на экране или просто смотреть в неизменную картинку, если обновление экрана отключено (Application.ScreenUpdating = False). Здесь обмен значениями между массивом и диапазоном ячеек будет вполне уместен.

Копирование значений из диапазона ячеек в массив

Чтобы скопировать значения из диапазона ячеек в массив, необходимо объявить переменную универсального типа (As Variant) и присвоить ей значения диапазона ячеек с помощью оператора присваивания (=):

Dim a As Variant

a = Range(«A1:C3»)

VBA Excel автоматически преобразует объявленную переменную в двумерный массив, соответствующий размерности диапазона ячеек, в нашем случае в массив — a(1 To 3, 1 To 3), и заполняет его значениями. Нумерация измерений массивов, созданных таким образом, начинается с единицы (1).

Можно, в этом случае, объявить сразу динамический массив, чтобы изначально указать, что эта переменная будет массивом. Так как свойством диапазона ячеек по умолчанию в VBA Excel является значение (Value), его можно в коде явно не указывать, но, при желании, можно и указать. Получится такая конструкция, аналогичная первой:

Dim a() As Variant

a = Range(«A1:C3»).Value

Стоит отметить, что для копирования значений из диапазона ячеек в массив можно использовать только обычную переменную или динамический массив универсального типа (Variant). VBA Excel автоматически преобразовывает их в двумерный массив. Если объявить двумерный массив с указанной заранее размерностью, использовать его не получится, будет сгенерирована ошибка с сообщением: Can’t assign to array (Нельзя назначать массив).

Копирование значений из массива в диапазон ячеек

Значения в диапазон ячеек добавляются из массива с помощью оператора присваивания (=):

Range(«A6:F15») = a

‘или

Range(«A6:F15»).Value = a

‘где a — переменная двумерного массива

Обратите внимание, что вставить значения в диапазон ячеек можно только из двумерного массива. Размерность такого массива может начинаться с нуля (0). Количество элементов в измерениях массива должно совпадать с количеством строк и столбцов в диапазоне ячеек. Если вам нужно вставить значения в одну строку или в один столбец, укажите размерность единственной строки или единственного столбца как (0) или (1 To 1), если вы хотите использовать нумерацию измерений своего массива с единицы. Например, для записи десяти значений из массива в одну строку можно объявить такой массив — massiv(9, 0), или в один столбец — massiv(0, 9).

Для вставки значений в диапазон ячеек из массива идеально подойдет массив, созданный для копирования в него значений из диапазона. В этом случае, данные с рабочего листа Excel переносятся в массив, обрабатываются и, после обработки, вставляются обратно в ту же или другую таблицу на том же или другом рабочем листе.

Обмен значениями между двумя диапазонами

Обмен значениями можно осуществить в VBA Excel не только между массивом и диапазоном, но и между двумя диапазонами одинаковой размерности:

Range(«B2:D6») = Range(«G7:I11»).Value

У диапазона, являющегося источником значений, обязательно должно быть указано свойство Value.

Если диапазон ячеек, принимающий значения, по размеру меньше диапазона-источника, то он будет заполнен полностью:

Range(«B2:D6») = Range(«G5:L13»).Value

Если принимающий диапазон ячеек по размеру больше передающего, то часть его будет заполнена значениями диапазона-источника, а остальные ячейки — значениями #Н/Д:

Range(«B2:D6») = Range(«G7:H9»).Value

Простейшие примеры обмена значениями

Эти примеры составлены так, чтобы вам не пришлось совершать лишних действий, просто скопируйте их в свой модуль любой книги Excel с поддержкой макросов и запустите по очереди на выполнение.

Пример 1

Заполнение двумерного массива значениями и и их присвоение диапазону ячеек на рабочем листе Excel:

Sub Test1()

Dim a(2, 2) As Variant

a(0, 0) = «телепузик»

a(0, 1) = «журналист»

a(0, 2) = «ящерица»

a(1, 0) = «короед»

a(1, 1) = «утенок»

a(1, 2) = «шмель»

a(2, 0) = 200

a(2, 1) = 300

a(2, 2) = 400

Range(«A1:C3»).Value = a

End Sub

В данном случае переменная массива не обязательно должна быть универсального типа (As Variant), например, если бы в нее записывались только текстовые данные, ее можно было бы объявить как строковую (As String), и все бы работало.

Пример 2

Объявление обычной переменной универсального типа, присвоение ей значений из диапазона ячеек «A1:C3», записанных кодом первого примера, и вставка этих значений из полученного двумерного массива в диапазон «D10:F12»:

Sub Test2()

Dim a As Variant

a = Range(«A1:C3»)

Range(«D10:F12») = a

End Sub

Естественно, указанные диапазоны ячеек расположены на активном листе.

Пример 3

Допустим, на рабочем листе «Лист1» в ячейках «A1:A5» записано количество какого-то товара, а в ячейках «B1:B5» — его цена. Необходимо к этой информации добавить сумму каждого товара, умножив количество на цену, и перенести данные на «Лист2».

Sub Test3()

Dim a As Variant, i As Long

a = Лист1.Range(«A1:C5»)

For i = 1 To 5

a(i, 3) = a(i, 1) _

* a(i, 2)

Лист2.Range(«A1:C5») = a

End Sub

Массив создан сразу с размерностью 5×3 с элементами под суммы. Даже если на первом листе в ячейках «C1:C5» есть какие-то значения, в массиве они будут перезаписаны результатами вычислений.

Копирование значений из массива в массив

Этот пример показывает, как в VBA Excel можно скопировать значения из одного массива в другой:

Sub Test4()

Dim arr1, arr2

arr1 = Range(«G7:I11»)

arr2 = arr1

Range(«B2:D6») = arr2

End Sub

Источник

I’m trying to figure out how I can get the names of ranges in a given worksheet into an array. I’ve got as far as the listnames function but that seems to list them all in one go. Any ideas?

asked Jun 7, 2017 at 10:46

Something like:

Sub listum()
    Dim ary(1 To 3) As String
    With ActiveWorkbook
        If .Names.Count > 0 Then
            For i = 1 To .Names.Count
                MsgBox (i & "  " & .Names(i).Name & "  " & Range(.Names(i)).Address)
                ary(i) = .Names(i).Name
            Next
        End If
    End With
End Sub

will display them and put them into an array.

Size the array to suit your needs.
Insure that there are no non-Range Names in the workbook.

answered Jun 7, 2017 at 11:43

Gary’s StudentGary’s Student

95.3k9 gold badges58 silver badges98 bronze badges

My version is I used dynamic array:

    Sub TestNamedRange()
    Dim i As Long
    Dim intCount As Long
    Dim NameArray() As String
    'count number of named ranges
    intCount = ThisWorkbook.Names.Count
    ReDim NameArray(intCount)  'for dynamic number of named ranges
    'assign all names to each array element
    For i = 1 To intCount
      NameArray(i) = ThisWorkbook.Names(i).Name 'remove .Name if you want address range only
    Next
   'check array elements
   For Each ele In NameArray
     Debug.Print ele
   Next
  'manipulate your array here
  End Sub

answered Jun 7, 2017 at 11:54

Wils MilsWils Mils

6134 silver badges9 bronze badges

Источник

Using the shape of the Range

Another approach in creating a function for ArrayFromRange would be using the shape and size of the Range to determine how we should structure the array. This way we don’t have to load the data into an intermediate array to determine the dimension.

For instance, if the target range is only one cell, then we know we want to return an array with the single value in it Array(target.value).

Below is the complete function that should deal with all cases. Note, this uses the same technique of using the Application.Transpose method to reshape the array.

' Helper function that returns an array from a range with the
' correct dimensions. This fixes the issue of single values
' not returning as an array, and when a 2 dimension array is returned
' when it only has 1 dimension of data.
'
' @author Robert Todar <robert@roberttodar.com>
Public Function ArrayFromRange(ByVal target As Range) As Variant
    Select Case True
        ' Single cell
        Case target.Cells.Count = 1
            ArrayFromRange = Array(target.Value)
            
        ' Single Row
        Case target.Rows.Count = 1
            ArrayFromRange = Application.Transpose( _
                Application.Transpose(target.Value) _
            )
        
        ' Single Column
        Case target.Columns.Count = 1
            ArrayFromRange = Application.Transpose(target.Value)
            
        ' Multi dimension array
        Case Else
            ArrayFromRange = target.Value
    End Select
End Function

Testing the `ArrayFromRange` function

As a bonus, here are the tests that I ran to check that this function works.

' @requires {function} ArrayDimensionLength
' @requires {function} ArrayCount
Private Sub testArrayFromRange()
    ' Setup a new workbook/worksheet for
    ' adding testing data
    Dim testWorkbook As Workbook
    Set testWorkbook = Workbooks.Add
    Dim ws As Worksheet
    Set ws = testWorkbook.Worksheets(1)
    
    ' Add sample data for testing.
    ws.Range("A1:A2") = Application.Transpose(Array("A1", "A2"))
    ws.Range("B1:B2") = Application.Transpose(Array("B1", "B2"))
    
    ' This section will run all the tests.
    Dim x As Variant
    
    ' Single cell
    x = ArrayFromRange(ws.Range("A1"))
    Debug.Assert ArrayDimensionLength(x) = 1
    Debug.Assert ArrayCount(x) = 1
    
    ' Single Row
    x = ArrayFromRange(ws.Range("A1:B1"))
    Debug.Assert ArrayDimensionLength(x) = 1
    Debug.Assert ArrayCount(x) = 2
    
    ' Single Column
    x = ArrayFromRange(ws.Range("A1:A2"))
    Debug.Assert ArrayDimensionLength(x) = 1
    Debug.Assert ArrayCount(x) = 2
    
    ' Multi Column
    x = ArrayFromRange(ws.Range("A1:B2"))
    Debug.Assert ArrayDimensionLength(x) = 2
    Debug.Assert ArrayCount(x) = 4
    
    ' Cleanup testing environment
    testWorkbook.Close False
    
    ' Print result
    Debug.Print "testArrayFromRange: PASS"
End Sub

Helper functions for the tests

In my tests I used two helper functions: ArrayCount, and ArrayDimensionLength. These are listed below for reference.

' Returns the length of the dimension of an array
'
' @author Robert Todar <robert@roberttodar.com>
Public Function ArrayDimensionLength(sourceArray As Variant) As Integer
On Error GoTo catch
    Do
        Dim currentDimension As Long
        currentDimension = currentDimension + 1
        
        ' `test` is used to see when the
        ' Ubound throws an error. It is unused
        ' on purpose.
        Dim test As Long
        test = UBound(sourceArray, currentDimension)
    Loop
catch:
    ' Need to subtract one because the last
    ' one errored out.
    ArrayDimensionLength = currentDimension - 1
End Function

' Get count of elements in an array regardless of
' the option base. This Looks purely at the size
' of the array, not the contents within them such as
' empty elements.
'
' @author Robert Todar <robert@roberttodar.com>
' @requires {function} ArrayDimensionLength
Public Function ArrayCount(ByVal sourceArray As Variant) As Long
    Dim dimensions As Long
    dimensions = ArrayDimensionLength(sourceArray)
    
    Select Case dimensions
        Case 0
            ArrayCount = 0
        
        Case 1
            ArrayCount = (UBound(sourceArray, 1) - LBound(sourceArray, 1)) + 1
        
        Case Else
            ' Need to set arrayCount to 1 otherwise the
            ' loop will keep multiplying by zero for each
            ' iteration
            ArrayCount = 1
           
            Dim dimension As Long
            For dimension = 1 To dimensions
                ArrayCount = ArrayCount * _
                    ((UBound(sourceArray, dimension) - LBound(sourceArray, dimension)) + 1)
            Next
    End Select
End Function

Источник

Return to VBA Code Examples

In this Article

Assign Range to Array
- Assign Value From a Single Column
- Assign value from multiple columns

This tutorial will demonstrate how to populate an array with a range of cells.

Assign Range to Array

We can easily populate a Variant array with a range of cells.

Assign Value From a Single Column

This example will loop through Range(“A1:A10”), assigning the the cell values to an array:

Sub TestArrayValuesSingle()
'Declare the array as a variant array
   Dim arRng() As Variant

'Declare the integer to store the number of rows
   Dim iRw As Integer

'Assign range to a the array variable
   arRng = Range("A1:A10")

'loop through the rows - 1 to 10
   For iRw = 1 To UBound(arRng)

'show the result in the immediate window
      Debug.Print arRng(iRw , 1)
   Next iRw 
End Sub

The UBound is used to set the array upper bound (eg 10) so that the loop knows to loop 10 times.

The Debug.Print function will show you the value contained in the array in the immediate window.

Assign value from multiple columns

Sub TestArrayValuesMultiple()
'Declare the array as a variant array
   Dim arRng() As Variant 

'Declare the integer to store the number of rows
   Dim iRw As Integer

'Declare the integer to store the number of columns
   Dim iCol as Integer

'Assign range to a the array variable
   arRng = Range("A1:C10")

'loop through the rows - 1 to 10
   For iRw = 1 To UBound(arRng,1)

'now - while in row 1, loop through the 3 columns
      For iCol = 1 to UBound(arRng,2)

'show the result in the immediate window
         Debug.Print arRng(iRw, iCol)
      Next iCol
   Next iRw 
End Sub

In the code above, we have populated the array with the values in Range(“A1:C10”).

The UBound is once again used – but this time it is needed twice – once to loop through the rows, and then again to loop through the columns.

The Debug.Print function will show you the value contained in the array in the immediate window.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More!

Источник

Molov

Пользователь

Сообщений: 18
Регистрация: 28.10.2013

04.09.2017 20:40:50

Здравствуйте, в одном из последних моих вопросов был совет начать работать с массивами.
Вот уже на первом этапе возникла проблема — Как создать Массив, используя имя таблицы?

Информации как объявить массив много и вроде всё понятно, но там ничего не сказано можно ли создать массив по имени таблицы?
Здесь

http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=30500

«… Но взять в массив просто: «

Код
Dim a a=[a1:b100]

или

Код
a=[a1:b100].Value

Далее был еще пример, попробовал разобрать

Код

Sub io()  
Dim v, x  'Объявление и инициализация массива Dim, Private, Public, ReDim, Static https://msdn.microsoft.com/RU-RU/library/office/gg251320.aspx
' но не указыван тип? https://msdn.microsoft.com/ru-ru/library/office/gg251750.aspx
With Sheets("СПБ") ' 'Оператор With используется для указания объекта, с которым мы будем работать. 
'Здесь Лист СПБ. Sheets это вроде коллекция?
v = .Range(.[A3], .Cells(.UsedRange.Rows.Count, "R")).Value ' массив таблицы  - там таблица от A до R 
'квадратные скобки А3 
'Свойства CurrentRegion и UsedRange  очень полезны, когда программа работает с диапазонами, размерами которых Вы не можете управлять.
' Мы не знали колличство строк поэтому вместо строк пишем .UsedRange.Rows.Count?  
'правда это была инфа из "MS Office. Руководство программиста по Visual Basic для MS Office 97" http://mf.grsu.by/UchProc/konspekt/VBA/ch02/ch04/ch03
ReDim x(1 To UBound(v), 1 To 18)   'Меняем размер массива?
End With  
End Sub

Но почему в этом примере не дают таблице имя и не создают массив по имени таблицы?

Здесь

https://msdn.microsoft.com/ru-ru/library/office/gg264844.aspx

«Функция Array» тоже имеет пример

Код
Dim A As Variant A = Array(10,20,30) B = A(2)

тоже не использовали ни разу имя таблицы

Читал про Оператор Dim

https://msdn.microsoft.com/ru-ru/library/office/gg251750.aspx

и то же ничего для этой задачи не нашел

Возник вопрос. Вообще можно создавать массивы указывая не конкретные ячейки, а имя таблицы? По логике, если для ComboBox можно указать имя, значит и для массива должна быть возможность.

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

04.09.2017 20:47:24

Код

'массив значений ОБЛАСТИ ДАННЫХ 'умной' таблицы
arr = ActiveSheet.ListObjects("Таблица1").DataBodyRange.Value
'массив значений именованного диапазона
arr = Range("Таблица1").Value

Изменено: Sanja — 04.09.2017 20:48:34

Согласие есть продукт при полном непротивлении сторон.

Molov

Пользователь

Сообщений: 18
Регистрация: 28.10.2013

05.09.2017 19:01:09

Взял на вооружение ‘массив значений ОБЛАСТИ ДАННЫХ ‘умной’ таблицы.
Написал так.

Код

Private Sub UserForm_Initialize()
Dim ArrSpisok() As Long
ArrSpisok = ActiveSheet.ListObjects("Список").DataBodyRange.Value ' имеется Таблица "Список"
UserForm1.ComboBox1.Value = ArrSpisok
End Sub

Всё верно, таблица у меня ‘умная’

http://www.planetaexcel.ru/techniques/2/136/

UserForm1.ComboBox1.List= ArrSpisok то же пробовал

Пишет Run-time error ’13’: Type mismatch

Прикрепленные файлы

ComboBox Массив.xlsm (43.25 КБ)

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

05.09.2017 19:05:13

И очень просто…

Код
UserForm1.ComboBox1.Value

Это 1 элемент массива, а не весь массив.

Код

Private Sub UserForm_Initialize()
    Dim ArrSpisok
    ArrSpisok = ActiveSheet.ListObjects("Список").DataBodyRange.Value ' имеется Таблица "Список"
    UserForm1.ComboBox1.List = ArrSpisok
End Sub

Изменено: RAN — 05.09.2017 19:28:39

Sanja Пользователь Сообщений: 14838 Регистрация: 10.01.2013	Вместо ActiveSheet впишите лист, на котором находится Ваша умная таблица. Согласие есть продукт при полном непротивлении сторон.

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

05.09.2017 19:28:37

И ArrSpisok() не

~~может быть~~

Long

Код

Private Sub UserForm_Initialize()
    Dim ArrSpisok
    ArrSpisok = WorkSheets("Люди").ListObjects("Список").DataBodyRange.Value ' имеется Таблица "Список"
    UserForm1.ComboBox1.List = ArrSpisok
End Sub

Изменено: Sanja — 05.09.2017 20:18:29

Согласие есть продукт при полном непротивлении сторон.

Molov

Пользователь

Сообщений: 18
Регистрация: 28.10.2013

Спасибо, всё шикарно подошло. Long указал, так как в других примерах его использовали когда ожидалось много строк.
Ну и путаница. Кое что смотрю из «Приемов» у вас, кое что на др сайтах/форумах, а по формам вообще на ютубе смотрел.

Имеется ли рекомендуемая литература, чтобы банально не путаться с синтаксисом? Может более целенаправленное и системное изучение поможет.

Sanja Пользователь Сообщений: 14838 Регистрация: 10.01.2013	Поищите в Курилке, несколько тем было про ‘рекомендуемую литературу’ Согласие есть продукт при полном непротивлении сторон.

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

05.09.2017 20:17:08

Цитата
Molov написал: Long указал, так как в других примерах его использовали когда ожидалось много строк

Быть такого не может. Long — это тип данных в массиве. И с количеством строк никак не связан. Но значения типа String (строка), при загрузке в него дадут ошибку.

Источник

Копирование значений из диапазона ячеек в массив

Копирование значений из массива в диапазон ячеек

Обмен значениями между двумя диапазонами

Простейшие примеры обмена значениями

Пример 1

Пример 2

Пример 3

Копирование значений из массива в массив

Using the shape of the Range

Testing the ArrayFromRange function

Helper functions for the tests

Assign Range to Array

Assign Value From a Single Column

Assign value from multiple columns

VBA Coding Made Easy

Testing the `ArrayFromRange` function