Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Произведение в массиве Никак не могу понять массивы, собственно вот вопрос: Найти произведение положительных элементов массива (для одно-мерных и двумерных массивов). https://www.cyberforum.ru/ vba/ thread872156.html VBA Пример работы с базой данных MS Access средствами VBA MS Excel
Выкладываю свой пример работы с базой данных MS Access (так и с любой базой данных, меняется только строка подключения) с помощью VBA MS Excel. В примере использована возможность отображения данных из базы в MS Flex Grid. Пример может быть использован и в других приложениях MS Office. Используемый компонент MS Flex Grid присутствует в архиве. Пример был разработан на 64 битной системе, возможно...
VBA Пару задач в ВБА https://www.cyberforum.ru/ vba/ thread872031.html
Найти произведение положительных элементов массива (для одно-мерных и двумерных массивов). Буду признателен Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п. Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема. Удаленные задачи оформите согласно правилам.
VBA Магический квадрат Помогите пожалуйста!! Определить, является ли целая квадратная матрица "магическим квадратом", т.е. суммы элементов во всех строках и столбцах одинаковы. https://www.cyberforum.ru/ vba/ thread871982.html
VBA Исправить код программы
Изначальное задание ...... Заданы две матрицы А (4,4) и В (3,3) и два вектора С (4) и D (3). Написать программу вычисления произведений матриц на соответствующие им вектора. Определить минимальное среднее арифметическое значение для полученных векторов. Мой код для этой программы: Sub P1() Dim A(4, 4) As Double, B(3, 3) As Double Dim C(4) As Double, D(3) As Double Dim E(4) As Double,...
VBA Как преобразовать матрицу размера n x n, разделив каждый элемент матрицы на ее минимальный элемент Помогите. Срочно. Составить программу преобразования матрицы размера n x n, разделив каждый элемент матрицы на ее минимальный элемент. Что тут не так?? Sub zad() dim i&, j&, mMIN#, mARR() mMIN=round(application.Min(mARR),2) for i=lbound(marr,1) to ubound(marr,1) for j=lbound(marr,2) to ubound(marr,2) https://www.cyberforum.ru/ vba/ thread871862.html
VBA Вставить одномерный массив на лист и сгруппировать его по уровням https://www.cyberforum.ru/ vba/ thread871721.html
Добрый день! 1) подскажите код вставки одномерного массива в лист книги Worksheets.Add.Range("a1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr выдает пусто, хотя понимаю что для двухмерного массива, что исправить? 2) имеется диапазон, 1 столбец наименования, 2 столбец -уровни группировки, теперь как сгруппировать програмно строки согласно этих уровней, чтобы в 1-ую входили все 2...
VBA макрос построения закрепки
Прошу помощи в корректировке кода. Проблема заключается в выполнении условия проверки.нужно сделать так чтобы проводилась проверка Lmin<li<lmax и при выполнении условия выводилась в PivotTable1 Option Explicit Dim skSegment As Object Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object
VBA Выделение нескольких строк Подскажите пожалуйста, как выделить несколько абзацей одновременно. К примеру мне необходимо применить этот стиль не только к Paragraphs(i), а в диапазоне от i до ActiveDocument.Paragraphs.Count Set myRange = ActiveDocument.Paragraphs(i).Range With myRange.Font .Italic = True .Name = "Arial" .Size = 9 End With https://www.cyberforum.ru/ vba/ thread871634.html VBA корректировка у меня есть какие то данные на листе excel мне нужно отыскать допустим какого-то человека по имени и фамилии и старые данные его заменить новыми)как это сделать? нужен код для кнопки) https://www.cyberforum.ru/ vba/ thread871626.html
VBA Во введенной дате определить время года (зима, весна, лето. осень)
Во введенной дате определить время года (зима, весна, лето. осень).
VBA Подсчитать общее количество букв «А» и «В» и заменить каждый символ «К» на «С» https://www.cyberforum.ru/ vba/ thread871355.html
Составить программу, которая вводит строку текста, печатает ее, производит вычисления и преобразования, указанные в задании и печатает результат. - Подсчитать общее количество букв «А» и «В» и заменить каждый символ «К» на «С»
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 7
0

Написать процедуру поиска в заданном массиве В, состоящем из 20-ти элементов, третьего положительного элемента и его индекса - VBA - Ответ 4587699

20.05.2013, 20:49. Показов 2087. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Lab_5()
Dim A(1 To 20)
Dim ind As Integer, K As Integer, P As Integer
Dim Tittle As String
Dim String1 As String
Dim String2 As String
Dim String3 As String
Title = " Индексы элементов одномерного массива "
String1 = " Третье положительное число = "
String2 = " Индекс числа ="
For b = 1 To 20
A(b) = Int(21 * Rnd - 10)
Next
     ind = 0
For q = 1 To 10
  If A(q) > 0 Then
     ind = ind + 1
  End If
  If ind = 3 Then
     K = A(q)
     P = q
     Exit For
  End If
Next
MsgBox String2 & P & Chr(13) & String1 & K, , Title
End Sub

Вот собственно я составил, НО я просто заполнил массив случайными числами.
Если кто может помочь, нужно :
Для заданного условия составить процедуру и придумать несколько наборов тестовых данных для отладки. Возможно использование как статических массивов, так и динамических. Ввод исходных данных осуществить из файла. Предусмотреть вывод результата в файл или на лист рабочей книги Excel.
Спасибо за помощь

Вернуться к обсуждению:
Написать процедуру поиска в заданном массиве В, состоящем из 20-ти элементов, третьего положительного элемента и его индекса VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2013, 20:49
Готовые ответы и решения:

Поиск в заданном массиве В, состоящем из 10-ти элементов, третьего положительного элемента и его индекса
Для заданного условия составить процедуру и придумать несколько наборов тестовых данных для...

Написать программу для поиска в заданном массиве В, состоящем из 10-ти элементов, третьего положительного
Написать программу для поиска в заданном массиве В, состоящем из 10-ти элементов, третьего...

Поиск в заданном массиве третьего положительного элемента и его индекса
Нужно: Написать программу поиска в заданном массиве B, состоящем из 20-ти элементов, третьего...

Написать процедуру поиска индекса n-го по счету нулевого элемента в одномерном массиве
Написать процедуру поиска индекса n-го по счету нулевого элемента в одномерном массиве. Значение n...

1
20.05.2013, 20:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2013, 20:49
Помогаю со студенческими работами здесь

Напишите программу поиска в одномерном массиве максимального элемента и его индекса
Напишите программу поиска в одномерном массиве максимального элемента и его индекса. Для элементов...

Написать функцию вычисления линейного индекса элемента (его номера расположения в памяти) по заданым размерам и индексам элемента в N-мерном массиве
Елементи N-вимірного масиву розміром n розміщуються в послідовних ділянках пам'яті так, що швидше...

Написать процедуру поиска суммы индексов первого и последнего нулевого элемента в одномерном массиве
Добрый день! Собственно такая задача: Написать процедуру поиска суммы индексов первого и...

Написать процедуру поиска данных элементов в введенном с клавиатуры массиве
Задание звучит так: Пусть дана непустая последовательность символов цифр, букв, знаков препинания....

Написать программу поиска номеров строки и столбца минимального и максимального элемента в заданном двухмерном массиве целых чисел
Написать программу поиска номеров строки и столбца минимального и максимального элемента в заданном...

Сумма каждого третьего положительного элемента последовательности, начиная с первого положительного
Дана целочисленная последовательность. Признаком завершения последовательности является ноль,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru