Автор Vasiliy-oleynik@mail.ru задал вопрос в разделе Другие языки и технологии
Как сделать в VBA ввод и вывод массива?А именно в этой процедуре? и получил лучший ответ
Ответ от Bono[гуру]
Этот код полностью не рабочий. Даже можно сказать, что это нечто похожее на VBA.
Ввод делается оператором присваивания для каждого элемента массива, например arr(i)=rnd, но можно и как в 3-й строке, а вывод зависит от того куда выводить, например в окно непосредственных вычислений Debug.Print arr(i). И ввод и вывод организуется в цикле.
После исправления многочисленных ошибок вот что получилось, но не факт, что это то что надо:
Sub tt()
Dim arr1(), arr2()
arr1() = Array(1, 2, -1, -2)
For i = LBound(arr1) To UBound(arr1)
If arr1(i) < 0 Then
sumneg = sumneg + arr1(i)
countneg = countneg + i
End If
Next
ReDim Preserve arr2(UBound(arr1))
For i = LBound(arr1) To UBound(arr1)
If arr1(i) > 0 Then
arr2(i) = sumneg / countneg
Else
arr2(i) = arr1(i)
Debug.Print arr2(i)
End If
Next
End Sub
vba excel. Как присвоить одномерному диапазону один ряд из значений из двумерного массива?
Dim r%, c%, v
v = Array(Array(1, 2, 3, 4, 5, 6, 7), Array(2, 6, 4, 3, 7, 2, 3),
подробнее...
VBA Excel. Работает ли Select case вместе с Like? Хучу сортировать данные в зависимости от части названия книги. Книга*
Напрямую так - нет. Можно сделать только с < > = и сочетаниями
н-р
Dim s as
подробнее...
Подскажите как обратиться к символу в строке (VBA)
Увидел begin и чуть не получил разрыв сердца.
Неужели, думаю, создали Delphi Applications for
подробнее...
Подскажите прогу для работы с веб камерой в линукс (убунту)
А название камеры? В скайпе все есть, скорее камера не узнаётся. Даже если вебкэм поддерживается,
подробнее...
Подскажите код пузырьковой сортировки в Excel на VBA
Если вопрос еще актуален, то вот:
Sub BubbleSort(List() As String)
' Сортировка
подробнее...
Как подключить модем D-Link dsl-2640u В режиме роудера
я попытался своими словами рассказать о том, что такое работа ADSL-модема в режиме бриджа и роутера
подробнее...
Как удалить строку из файла (Visual Basic 6.0)
Создайте новый проект. В модуль формы поместите следующий код (не забудьте правильно указать имена
подробнее...
после установки dr.web система виснет и не отвечает
1- воспользуйся LockOFF 1.0 [2010, разблокировщик функций]
при запуске напротив проблем
подробнее...
Посоветуйте пожалуйста программу для резки и склейки видео без потери качества?
VirtualDub — свободная утилита для захвата, монтажа и редактирования видеопотока для платформы
подробнее...
подскажите поиз где можно скачать уроки пол gimp, заранее спасибо!! 1
nixp.ru -- форум -- Уроки gimpУроки gimp [Добавлено: 15.11.2006 в 00:42:17], Цитировать. Никто не
подробнее...
Как установить операционную систему Linux mini 11росинка?
Может быть всё же Mint 11 Росинка? Тупо ненастраиваемую дыру в безопасности с перепутанными правами
подробнее...
прямая ссылка. на каком сайте можно залить файл и получить прямую ссылку
rapid. ufanet. ru
narod. yandex.
подробнее...