|
|
Другие темы раздела | |
VBA Составить программу вычисления и печати суммы ряда
https://www.cyberforum.ru/ vba/ thread904311.html Составить программу вычисления и печати суммы ряда S = -1!+2!-3!+...+10! Вычисление факториала оформить в виде подпрограммы function Пожалуйста помогите((( |
VBA Автоматизировать составление договоров Уважаемые форумчане! Помогите пожалуйста чайнику. По работе необходимо составлять договора на основе "болванки" в ворде. При этом в документе необходимо менять по тексту часто повторяющиеся одни и те же данные. Подскажите пожалуйста как это реализовать. Дайте пожалуйста ссылку на видео уроки по программированию в ворде |
VBA Уменьшение времени расчета формулы массива
https://www.cyberforum.ru/ vba/ thread904089.html Добрый день уважаемые знатоки-программисты! Я тут столкнулся с весьма неприятным сюрпризом и возможно смогу объяснить такое поведение, но, я не знаю как это обойти... Проблема заключается в следующем: есть функция UDF, которая работает с большим двумерным массивом данных. Работает она, нужно признать, хорошо, но долго. После нескольких экспериментов я понял, что когда эта UDF введена в одну... |
VBA Чтение реквизитов типа СправчникСсылка НАРОД НУЖНА ПОМОЩЬ. Есть код в VBA EXCEL Sub Кнопка1_Щелчок() Dim trade As Object Dim Товар As Object Dim Группа As Object Set trade = CreateObject("V82.Application") trade.Connect ("Srvr=""SERVERTRADE"";Ref=""trade2013"";Usr=""Лесюк Маргарита"";Pwd=""********""") https://www.cyberforum.ru/ vba/ thread903944.html |
VBA Ребят, не могу справиться с курсовой В звероводческом хозяйстве имеется 6 ферм, специализирующихся на вы- ращивании зверьков одного вида. Каждый год (в течение 5 -ти) хозяйство продавало зверьков по закупочным ценам, различным в разные годы. Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран: • исходные данные в виде таблицы, где перечислены названия зверь- ков, выращиваемых... |
VBA Расшифруйте код Sub Поиск_токов() 'Нечетный путь 'Перебор моментов времени For j = 1 To 41 Step 1 'Перебор пикетов For i = 1 To 10 Step 1 'Поиск значения тока по пикету Sheets("МС").Select Cells(57 + i, 1 + j).Select Selection.Copy https://www.cyberforum.ru/ vba/ thread903696.html |
VBA Сравнить скорости работы методов сортировки
https://www.cyberforum.ru/ vba/ thread903417.html Всем привет. Помогите пожалуйста. Все сделал, но не могу сравнить методы сортировки. Завтра сдавать( "Сравнить скорости работы выбранных методов сортировки на массиве заданном случайным образом, уже отсортированном и отсортированном в обратном порядке. Размер массива задается пользователем. Результаты выводятся на отдельную форму." Файл стал прикреплять, не влезает. Залил на rghost.ru -... |
VBA Заполнение динамического массива с листа Excel Добрый день! Столкнулась с такой задачей: необходимо создать процедуру ReadArray для считывания данных из электронной таблицы и присвоения их одномерному массиву A(N). Размерность массива должна определятся автоматически. Вот что делаю я: Sub ReadArray() Dim LastCol As Long Application.ScreenUpdating = False Application.EnableEvents = False |
VBA Написать приложение добрый день) так получилось что не хватает смекалки и надо обратиться за помощью к знающим людям) нужно сделать "приложение" на Excel "автоматизация контроля проведения практик студентов колледжа" должны быть 2-3 списка групп, для каждой группы название практики, кнопки фильтрации по оценкам (ну там найти двоечников, хорошистов - для каждой оценки) и вывод сколько учащихся сдали и сколько... https://www.cyberforum.ru/ vba/ thread903374.html |
VBA Нужно исправить программу
https://www.cyberforum.ru/ vba/ thread903289.html Задать две матрицы А и B. Поменять местами минимальный элемент главной диагонали матрицы A и максимальный элемент матрицы B. Option Explicit Sub pr5() Dim A(10, 10) As Double, B(10) As Double, Amin As Double, Bmax As Double, i As Byte, j As Byte Amin = 11 For i = 0 To 10 For j = 0 To 10 A(i, j) = Int(11 * Rnd + 1) Cells(i + 1, j + 1) = A(i, j) |
VBA Заданы три одномерных массива разной размерности Для каждого из массивов определить повторяющиеся элементы ЕСТЬ ОСНОВНОЙ КОД ПРОГРАММЫ,НО ВЫДАЕТ ОШИБКУ.Пожалуйста,помогите! Sub main() Dim A() As Double Dim B() As Double Dim C() As Double Dim masA() As Integer Dim masB() As Integer Dim masC() As Integer Dim otv1() As Integer |
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)) |
4 / 4 / 0
Регистрация: 28.01.2013
Сообщений: 17
|
|
17.06.2013, 17:26 | 0 |
Массив: Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке. - VBA - Ответ 473428417.06.2013, 17:26. Показов 1431. Ответов 10
Метки (Все метки)
Ответ
пример матрицы в студию
Вернуться к обсуждению: Массив: Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке. VBA
0
|
17.06.2013, 17:26 | |
Готовые ответы и решения:
10
Преобразуйте массив, поменяв местами минимальный и максимальный элементы в каждой строке массива Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно Дан двумерный массив . Найти максимальный элемент в каждой строке |
17.06.2013, 17:26 | |
17.06.2013, 17:26 | |
Помогаю со студенческими работами здесь
0
Преобразовать матрицу размера n x n, разделив каждый элемент матрицы на ее минимальный элемент Как преобразовать матрицу размера n x n, разделив каждый элемент матрицы на ее минимальный элемент В каждой строке матрицы найти максимальный элемент и заменить им первый элемент строки Найти максимальный элемент в каждой строке матрицы |