Что ж, я боролся с небольшим количеством кода и, похоже, не могу его обойти... Я пытаюсь получить массив из диапазона ячеек, однако массив отображается шириной в 1 элемент.
Вот код:
Dim item As Variant
MsgBox Range("D19:H19").Count
item = Range("D19:H19").Value
MsgBox LBound(item) & " " & UBound(item)
насколько я понимаю, элемент должен содержать 2D-массив... однако я получаю следующий результат: 1-й MsgBox печатает 5 2-й MsgBox печатает 1 1
Что происходит не так?
Проблема в LBound и UBound
jtolle был прав насчет LBound и UBound.
LBound(item, 2)
UBound(item, 2)
Однако элемент не должен быть затемнен как массив (вы получите сообщение об ошибке).
Я думаю, это то, что вам нужно
Dim item As Variant
MsgBox Range("D19:H19").Count
item = Range("D19:H19").Value
MsgBox LBound(item, 2) & " " & UBound(item, 2)
For i = LBound(item, 2) To UBound(item, 2)
MsgBox item(1, i)
Next
Ваш элемент должен содержать двумерный массив, как и ожидалось. Если вы установите точку останова в своем коде и посмотрите на маленькое окно "Локальные" в редакторе VBA, вы должны это увидеть. Ваши вызовы LBound и UBound получают границы в первом измерении. Если вы вызовете Lbound(item,2) и UBound(item,2), вы должны получить 1 и 5, как и ожидалось.
РЕДАКТИРОВАТЬ: То есть после того, как вы сделали назначение, элемент будет выглядеть так, как вы могли бы объявить как таковой:
Тусклый элемент (от 1 до 1, от 1 до 5)
Одним из недостатков программирования на VBA является то, что массивы могут иметь произвольные нижние границы. Поэтому весь ваш код должен знать об этом.
Это правильно как есть. Даже если вы выберете массив ячеек, у вас все равно есть возможность выбрать одну ячейку из массива (и, например, перейти с помощью табуляции по элементам этого массива)
.Value
получает только содержимое текущей выбранной ячейки.
если вы хотите перечислить массив, вы можете вызвать .Cells()-метод Range-объекта
Предполагая, что D19 до H19 содержат от «a» до «e» соответственно, вызов
Range("D19:H19").Cells(2)
возвращает вам "b". Обратите внимание, что это одномерный массив, который может быть двумерным. Cells() принимает не более 2 параметров для указания внутреннего смещения от начала выделения.
надеюсь, что это проясняет... привет
lbound принимает второй параметр, который выражает то, что мы называем измерением. Я больше не уверен, какой параметр соответствует какому значению. Что возвращает VarType(Range("D19:H19").Value)? Должно быть vbArray... Попробуйте Ubound(item,1) вместо Ubound(1)
- person Atmocreations; 11.10.2009
item() вместо item
- person Atmocreations; 11.10.2009
Попробуй это:
Dim item As Variant
MsgBox Range("D19:H19").Count
item = Application.Transpose(Range("D19:H19").Value)
MsgBox LBound(item) & " " & UBound(item)
если вам нужен массив 1D, чтобы присоединиться к нему, например, для предложения IN, вы должны транспонировать свой диапазон. Я обнаружил, что вам нужно транспонировать дважды для строки, один раз для столбца данных, подобных этому:
Dim rngRow As Range, rngColumn As Range
Set rngRow = Sheets(1).Range("A1", "Z1")
Set rngColumn = Sheets(1).Range("A1", "A20")
Dim arrRowValues, arrColValues
arrRowValues = WorksheetFunction.Transpose(WorksheetFunction.Transpose(rngRow))
arrColValues = WorksheetFunction.Transpose(rngColumn)
Dim numList As String, stringList As String
numList = Join(arrRowValues, ",")
stringList = "'" & Join(arrColValues, "','") & "'"
стоит поиграть.
Tab. Вы увидите выбранную ячейку, которая будет выделена. Это ячейкаValueвозвращает содержимое. - person Atmocreations schedule 11.10.2009