Блог

Немного новичок в vba, и у меня был приятель, который дал мне эту строку:

ReDim Сохраняет InputD(от 1 до UBound(InputD, 1), от 1 до 3)

Я не совсем уверен, что делает эта строка, я понимаю ReDim для изменения значений в массиве и сохранения, в котором хранятся все данные, кроме последнего. Что именно операторы «To» делают внутри этого массива? это просто указание, сколько раз повторять?

1. ReDim Preserve тогда действует иначе ReDim . Он способен изменять только последнее измерение и сохранять (существующие) значения (если таковые имеются). То, как вы это используете, немного странно. Я имею в виду, обычно полезно, чтобы ReDim массив с размерами (особенно последний) мог охватывать предполагаемое количество загружаемых элементов плюс что-то еще. Обычно используется переменная, увеличиваемая с каждым добавленным новым элементом, чтобы Redim Preserve иметь этот конкретный номер переменной.

Например:

 Sub testRedimPreserve()
 Dim sh As Worksheet, arr, arrToProcess, i As Long, k As Long
 Set sh = ActiveSheet
 arr = sh.Range("A2:A20"): k = 1
 ReDim arrToProcess(1 To 2, 1 To UBound(arr))  'redim at a maximum which surely will not be exceeded
  For i = 1 To UBound(arr)
    If arr(i, 1) = "x" Then
        arrToProcess(1, k) = "Row " amp; i: arrToProcess(2, k) = "OK": k = k   1
    End If
  Next i
  'Since some values in the range are not "x", the obtained array must use Redim Preserve:
  ReDim Preserve arrToProcess(1 To 2, 1 To k - 1) 'All the elements value up to k -1 are kept/preserved
  'Since only the last dimension can be preserved, the obtained array must be trasnposed.
  sh.Range("C2").Resize(k - 1, 2).Value = WorksheetFunction.Transpose(arrToProcess)
End Sub
  

1.a Конечно, если у вас массив большего размера и вам нужны только его первые три столбца, вы можете поступить так, как предложил ваш друг.

2. Redim arr(1 to x) означает, что первый элемент измерения равен 1. В таком случае он будет содержать элементы от 1 до x. Если не указать таким образом, я имею в виду ReDim arr(x) , что первый элемент равен нулю. Это VBA по умолчанию. Он работает в базе 0. За исключением случая, когда Option Base 1 используется поверх модуля…

Если вы посмотрите на документацию для ReDim, вы увидите индексы в круглых скобках, а если вы посмотрите дальше, вы увидите объяснение индексов:

Требуется. Размеры переменной массива; может быть объявлено до 60 кратных измерений. Аргумент subscripts использует следующий синтаксис:

[ Нижний ] верхний [, [Нижний ] верхний ] . . .

Если явно не указано в lower , нижняя граница массива управляется оператором Option Base . Нижняя граница равна нулю, если нет базового оператора Option.

Это означает, что вы изменяете размер своего массива InputID с того, каким он был раньше, на (от 1 до его верхних границ от предыдущего) для первого измерения и (от 1 до 3) для второго измерения.