VBA Как сохранить значение оператора в массив на каждом шаге цикла?

Question

[Виктор Будко]

Существует ли команда, которая сможет сохранять в массив значение sStr(i) на каждом шаге цикла, чтобы в результате в массиве avArr1 оказалось столько элементов, сколько шагов сделает цикл?

Dim sStr
Dim i, e
Dim avArr
Dim avArr1
sStr = Split(Me!ОрганРегУчета)
e = UBound(sStr)
i = 1
i = i + 1
Do
i = i + 1
???
Loop Until i = e
avArr = (sStr(1), s sStr(2))
avArr1 = ....

Comments

[h8nor]

У вас изначально цикл построен не верно. Переменная i перед оператором Do принимает значение равное 2. Войдя в цикл первый раз i = 3, тогда как e уже может быть меньше 3. Цикл получается бесконечным. Первый элемент массива sStr, который создаёт функция Split, имеет индекс равный 0, что тоже необходимо учесть при подсчёте. Если интересно, я постараюсь объяснить, как выполнить задание.

[Виктор Будко]

Отсчет идет с (0) элемента, соответственно I на первом шаге - 4 элемент, именно с него мне нужно было начать. e не меняет своего значения, и цикл прервется когда i примет значение последнего элемента. Единственная проблема этого кода в том, что если выводить результат куда либо через i, то выводится последней элемент, так как нет команды, которая бы сохранила результат в массив. Если бы была команда похожая на avArr.Add.Item sStr(i), было бы куда проще

[h8nor]

Погодите! Вы уже мешаете массивы с коллекциями. У них разные свойства.
Можете пояснить, что значит куда-либо? "выводить результат куда либо через i", и "нет команды, которая бы сохранила результат в массив" - в массив sStr сохраняет функция Split. Жаль, что вы этого не понимаете.

Чем не устраивает мой рабочий вариант решения задачи?

[Виктор Будко]

Дѣаволъ: Я, честно сказать новичек в этом деле, только начинаю осваивать программирование. У меня ваше решение выводит MsgBox содержащий:

№ имеет значение:
№ имеет значение:
№ имеет значение:
№ имеет значение:
№ имеет значение:
№ имеет значение:
№ имеет значение:
Возможно я не корректно его перенес... также функцию Option Explicit Отладчик выдает как ошибку..

[h8nor]

Option Explicit - это свойство модуля, он должен находиться вне процедуры. Если вам сложно ориентироваться, вставьте только код из примера. Нажмите Ctrl+G (появится окно Immediate). Вставьте в код после avArr = ...
Debug.Print Me!ОрганРегУчета
Какое значение у вас возвращает переменная Me!ОрганРегУчета?

Answer 1

[Виктор Будко]

Алексей Немиро, спасибо огромное за старание)) Решение задачи циклом:

Private Sub Кнопка()
Dim sStr() As String
sStr = Split(Me!Поле)
Dim avArr() As String
Dim i As Integer
For i = 3 To UBound(sStr) 'Где три начало отсчета'
If i = 3 Then 
ReDim avArr(0)
Else
ReDim Preserve avArr(UBound(avArr) + 1)
End If
avArr(UBound(avArr)) = sStr(i)
Next i
MsgBox Join(avArr, " ")
End Sub

Comments

[Алексей Немиро]

Удалить элементы из строки можно проще:

Dim arr() As String
'разбиваем на массив
arr = Split("1 2 3 4 5")

'перебираем все элементы
Dim i As Integer
For i = 0 To UBound(arr)
    'если индекс элемента меньше двух
    'аннулируем значение элемента
    If i < 2 Then arr(i) = ""
    '0 < 2 - удаляем
    '1 < 2 - удаляем
    '2 < 2 - оставляем, т.к. это не истина
Next i

'собираем массив в строку
Dim result As String
result = Join(arr, " ")

'показываем результат
MsgBox result

Answer 2

[h8nor]

Надеюсь вы учитываете, что Me!ОрганРегУчета должен иметь тип String!
Вот простой вариант выполнения задания:

Option Explicit ' Обязательное объявление переменных
' чтобы избежать ошибок, и так удобнее пользоваться отладчиком
'123456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789

Sub Save_in_avArr() ' Процедура сохранения в массив avArr
' значений из Me!ОрганРегУчета и присвоение массиву avArr1
' верхней границы массива avArr
  Dim i As Integer, avArr() As String, avArr1 As Variant
  
  ' По умолчанию функция Split использует разделитель "символ ПРОБЕЛ"
  avArr = Split(Me!ОрганРегУчета)
  ' Передаваемая строка Me!ОрганРегУчета стала массивом avArr
  ' Нижняя граница массива LBOUND(avArr) = 0
  
  ReDim avArr1(UBound(avArr)) ' Создаём массив avArr1 с верхней границей как у avArr
  ' Заполняем массив avArr1 от 0 до e (в вашем случае)
  For i = LBound(avArr1) To UBound(avArr1)
    ' ...
    ' avArr1(i) = i
  Next i
  
  ' Например, выводим на экран значения массива avArr1
  MsgBox "№ имеет значение: " & Join(avArr, vbCr & "№ имеет значение: ")
End Sub

Обратите внимание на объявление переменных:

' Иногда вместо объявления динамического массива текстового типа String
Dim avArr() As String
' Удобнее использовать универсальный тип переменной Variant
Dim avArr() As Variant
' Тогда в ходе выполнения можно удалить из массива, например, элементы с 0 по 2
ReDim Preserve avArr(3 To UBound(avArr))
' Примечание: в многомерных массивах изменять можно только последнюю размерность

' Важно! Если не объявлять динамический массив, а поместить его в тип переменной
Dim avArr As Variant
' то работа со значениями массива будет медленнее примерно в 18 раз