Присвоить диапазон данных excel массиву

@sungreal · Регистрация: 18.04.2012

Author24 — интернет-сервис помощи студентам

В VBA, работая с объектами excel : range, cells и тд, столкнулся с проблемой, не получается безошибочно присвоить область range массиву, для дальнейший операции с совместным участием как областей range, так и массивов находящихся в оперативной памяти.

Прикладываю пример, в нем необходимо данные области rng2, которые хранятся в ячейках листа, держать в оперативной памяти, и во втором действии делать умножения используя данные с листа excel и данных хранящихся в оперативной памяти

Visual Basic

a = Range("h1")
   Dim rng As Range, rng2 As Range, rng3 As Range, rng4 As Range
    n = a + 1
    m = a
   Range(Cells(6, 2), Cells(n + 5, m + 1)).Activate
   Set rng = Range(Cells(6, 2), Cells(n + 6, m))
   Set rng2 = Range(Cells(n + 10, 2), Cells(n + 10, m + 1))
    Dim p As Double, k As Double, l As Double
    p = 0
    For j = 1 To m
        For i = 1 To n
            p = p - rng.Cells(i, j)
            p = Abs(p)
        Next i
        rng2.Cells(j) = p
        p = 0
    Next j
Set rng4 = Range(Cells(n + 11, 2), Cells(n + 11, m + 1))
Set rng3 = Range(Cells(n + 9, 2), Cells(n + 9, m + 1))
    p = 0
For j = 1 To m
p = rng2.Cells(j) * rng3.Cells(j)
rng4.Cells(j) = p
Next j

@mc-black · 18.04.2012, 15:45

Есть вариант, когда a объявлена как Variant, обращаться к ней как к массиву:

Visual Basic

1
2
3

a = Range("h1").Value
n = a(1,1) + 1
m = a(1,1)

А есть вариант записать одно значение нужного типа, например Long:

Visual Basic

1
2
3

a = Cells(1, 8).Value ' Потому что h - это восьмой столбец
n = a + 1
m = a

@KoGG · 18.04.2012, 15:53

В примере нет ни одного массива, находящегося в оперативной памяти отдельно от данных листа.
rng , rng2 , rng3, rng4 - объектные переменные, обращающиеся к диапазонам листа.

@Казанский · 18.04.2012, 15:54

Сообщение от mc-black

Есть вариант, когда a объявлена как Variant, обращаться к ней как к массиву:
a = Range("h1").Value
n = a(1,1) + 1
m = a(1,1)

Не работает! Значение одной ячейки - не массив!
Для унификации работы с диапазоном, который может состоять из одной ячейки, можно так:

Visual Basic

Sub bb()
Dim a
a = Selection.Value
If Not IsArray(a) Then
    ReDim a(1 To 1, 1 To 1)
    a(1, 1) = Selection.Value
End If
'a - всегда массив
End Sub

@mc-black · 18.04.2012, 16:03

Казанский, спасибо, не знал и не догадывался об этой "тонкости", ты прав.

@KoGG 5612 / 1596 / 414 Регистрация: 23.12.2010 Сообщений: 2,392 Записей в блоге: 1
	18.04.2012, 15:53	3
	В примере нет ни одного массива, находящегося в оперативной памяти отдельно от данных листа. rng , rng2 , rng3, rng4 - объектные переменные, обращающиеся к диапазонам листа. 0

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	18.04.2012, 16:03	5
	Казанский, спасибо, не знал и не догадывался об этой "тонкости", ты прав. 0