Nano Hash - криптовалюты, майнинг, программирование

Динамическое добавление массива в VBA

Я хочу добавить массив с числом в зависимости от состояния различных переменных. Вот код, который я придумал: я начинаю с пустого массива.

Sub makeArr()
Dim myArr() As Integer
If box1 = True Then
    ReDim Preserve myArr(LBound(myArr) To UBound(myArr) + 1)
    myArr(UBound(myArr)) = 1
End If

If box2 = True Then
    ReDim Preserve myArr(LBound(myArr) To UBound(myArr) + 1)
    myArr(UBound(myArr)) = 2
End If
End Sub

Очевидно, что это пример, так что это не самый элегантный способ выразить это, но он не работает, поскольку я не могу изменить размер массива, поскольку изначально он не имеет ubound или lbound. Когда я затемняю его как myArr(0 to 0), это также не работает.

Есть идеи?

arrays excel vba
30.01.2013

  • Другой подход к тестированию lbound — написать небольшую функцию SafeLBound. Он просто просматривает lbound переданного ему массива, но перехватывает любые ошибки. Если нет ошибки, он возвращает lbound, если ошибка, он возвращает 0 или -1 или что-то еще, что имеет смысл как невозможный lbound в вашем контексте. 30.01.2013

Ответы:


1

Прежде чем использовать массив myArr в первый раз, выполните следующее:

ReDim Preserve myArr(0 To 1)

Затем, когда вы дойдете до динамического оператора ReDim, используйте ReDim только в том случае, если выполняются определенные условия, например. If UBound(myArr) > 1 then и т. д.

If box1 = True Then
    If UBound(myArr) > 1 Then
        ReDim Preserve myArr(LBound(myArr) To UBound(myArr) + 1)
    End If
    myArr(UBound(myArr)) = 1
End If
30.01.2013

2

Решение Олле может быть дополнено дополнительными проверками и противовесами, если оно вас интересует.

см. функцию InsertElementIntoArray здесь: http://www.cpearson.com/excel/VBAArrays.htm< /а>

04.04.2014
Новые материалы
Кластеризация: более глубокий взгляд
Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
Как написать эффективное резюме
Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
Частный метод Python: улучшение инкапсуляции и безопасности
Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
Как я автоматизирую тестирование с помощью Jest
Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..