Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Случайная выборка строк https://www.cyberforum.ru/ vba/ thread903093.html
Здравствуйте, есть следующий макрос Sub jj() Const N& = 100 'размер выборки Dim a(), b(1 To N, 1 To 1), i& a = Intersect(Range("A:C"), ActiveSheet.UsedRange).Value For i = 1 To N Do b(i, 1) = a(1 + Int(Rnd * UBound(a)), 1 + Int(Rnd * 3)) Loop While IsEmpty(b(i, 1))
Необходимо найти среднее значение! VBA
Помогите пожалуйста подправить программу! Задание такое: необходимо найти среднее значение по условию, а именно: Условие_для_обр ,которое выделено жёлтым цветом, должно подсчитывать среднее значение всех сумм для определ. условий ( т.е. если выделено "высшее",то должно посчитать среднее значение столбца "сумма" всех людей,у которых в столбце "Образование" стоит "высшее"). Private Sub...
VBA Создать проект VBA для обработки столбцов (полей) основной таблицы Дана таблица с данными (Я не знаю как вставить сюда таблицу из excel, поэтому прикреплю файлом). Нужно обработать столбец с помощью функции среднее по условию. Также нужно выбрать столбец для обработки по цвету. Выбор функции для обработки и выбор условия также по цвету. Нужная таблица будет находиться на листе БД. https://www.cyberforum.ru/ vba/ thread902974.html VBA четные места Добрый вечер. Нужна помощь, Необходимо найти сумму элементов стоящих на четных местах в последовательности из n элементов. Фишка с массивом не проходит=( https://www.cyberforum.ru/ vba/ thread902872.html
Внесение массива в ListBox VBA
Доброго времени суток! Пытаюсь сделать на форме два Listbox и перенести значения из одного в другой. В первый Listbox элементы были занесены как массив (несколько столбцов наименование и цена). При нажатии кнопки выбранная строка из первого Listbox должна перемещается во второй, при этом еще добавляется элемент количество, заносимый по inputbox. Private Sub CommandButton4_Click()...
VBA Необходимо написать пользовательскую функцию в табличном процессоре на языке VBA, транспонирующую матрицу А размера n*n. Функции в качестве аргументов Необходимо написать пользовательскую функцию в табличном процессоре на языке VBA, транспонирующую матрицу А размера n*n. Функции в качестве аргументов передаются диапазоны ячеек с исходными данными. Функция должна вернуть одно число или массив в зависимости от варианта задания. https://www.cyberforum.ru/ vba/ thread902382.html
VBA я на экзамене! https://www.cyberforum.ru/ vba/ thread902369.html
Необходимо написать пользовательскую функцию в табличном процессоре на языке VBA, транспонирующую матрицу А размера n*n. Функции в качестве аргументов передаются диапазоны ячеек с исходными данными. Функция должна вернуть одно число или массив в зависимости от варианта задания. Спасибо!!
Вычислить количество элементов строки матрицы А размера n x n, удовлетворяющих условию 0 < а ij < 5. VBA
Вычислить количество элементов строки матрицы А размера n x n, удовлетворяющих условию 0 < а ij < 5.
VBA Написать логическую функцию https://www.cyberforum.ru/ vba/ thread902247.html
Помогите пожалуйста написать программу, что бы все верно работало. Нужно написать логическую функцию, принимающее значения True, если в двух переменных типа String, являющихся аргументом этой функции, имеется хотя бы одна одинаковая русская буква.
VBA На рабочий лист Лист3 информацию обо всех контрактах на поставку заданного товара https://www.cyberforum.ru/ vba/ thread902187.html
На рабочем листе Лист1 в столбце А введены номера контрактов,в столбце В - названия товаров(для каждого контракта - один товар ),в столбце С - количество товара.На рабочем листе Лист2 в столбце А введены названия товаров(каждый товар указан один раз),в столбце В - цены товаров.Предполагается,что цена каждого из товаров во всех контрактах одинакова.Программа должна выводить на рабочий лист Лист3...
Как, сопоставив значения двух столбцов, вернуть их в нужное место на листе? VBA
Помогите пожалуйста разобраться! Суть проблемы: есть непрерывный диапазон данных. Начиная с первой ячейки из этого диапазона, берем последовательно каждую ячейку, ищем такую же по значению ячейку в другой книге. Находим и берем то что правее соответствующей на одну ячейку, далее ее копируем и вставляем в ту же книгу в которой искали на другой лист в определенный столбец начиная со второй...
VBA Диапазон ячеек в программу и манипуляция с ним Вообщем задача такая:\ нужно задать диапазон заданного размера, с разрывами или без на листе Excel. Например столбец цифр. + как задействовать в программе встроенные статфункции Excel. Например найти минимум в диапазоне, среднее арифметическое или медиану. https://www.cyberforum.ru/ vba/ thread901812.html
Модератор
Эксперт функциональных языков программированияЭксперт Python
35521 / 19996 / 4186
Регистрация: 12.02.2012
Сообщений: 33,172
Записей в блоге: 13
16.06.2013, 13:13 0

Заданы три одномерных массива разной размерности Для каждого из массивов определить повторяющиеся элементы - VBA - Ответ 4727899

16.06.2013, 13:13. Показов 2839. Ответов 1
Метки (Все метки)

Ответ

indesit94, ты не ошибся адресом? Здесь не udaff.com

Добавлено через 25 минут
Вот функция, которая возвращает массив повторяющихся, или Empty, если повторений нет.

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
27
28
29
Function RepeatedEl(A() As Integer)
Dim Res() As Integer
    n% = UBound(A, 1)
    ReDim Res(1 To n%) As Integer
    p% = 0
    For i% = 1 To n% - 1
        For j% = i% + 1 To n%
            If A(i%) = A(j%) Then
               q% = 0
               For k% = 1 To p%
                   If Res(k%) = A(i%) Then
                      q% = -1
                      Exit For
                   End If
               Next k%
               If q% = 0 Then
                  p% = p% + 1
                  Res(p%) = A(i%)
               End If
            End If
        Next j%
    Next i%
    If p% > 0 Then
       ReDim Preserve Res(1 To p%) As Integer
       RepeatedEl = Res
    Else
       RepeatedEl = Empty
    End If
End Function
Вызывай эту функцию три раза (для трех массивов) и печатай результаты...

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

Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из
Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов...

Для каждого из массивов определить повторяющиеся элементы
&quot;Подпрограммы.&quot; Заданы три одномерных массива разной размерности. Для каждого из массивов...

Даны два одномерных массива разной размерности. найти элементы принадлежащие и тому и другому массиву
Помогите пожалуйста! Даны два одномерных массива разной размерности. найти элементы принадлежащие...

В файле исходных данных содержатся значения элементов 2-ух одномерных массивов разной размерности
Ошибка в 23 строке не могу исправить... помогите пожалуйста Program Massiv; Uses...

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

Подпрограммы: для каждого из массивов вывести на печать повторяющиеся элементы, и количество их повторений
Задачка: Заданы три одномерных массива разной размерности.Для каждого из массивов вывести на...

Заданы три одномерных массива произв.размеров
Заданы три одномерных массива произв.размеров. Для каждого из этих массивов получить по новому...

Определить, в каком из одномерных массивов А, В и С одинаковой размерности n наибольшее количество положительных элементов
Определить, в каком из одномерных массивов А, В и С одинаковой размерности n наибольшее количество...

Обработка массивов разной размерности
Даны три массива А, В и C. Сформировать массивы А1, В1 и С1, содержащие положительные нечетные...

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