Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA VBA - управление документами Microsoft Office Document Imaging https://www.cyberforum.ru/ vba/ thread1598209.html
Доброго времени суток, господа профессионалы! :) Есть те, кто разбирается в программировании VBA, касательно Microsoft Office Document Imaging (MODI)? В общем, задача следующая: У меня есть уже открытый документ формата TIF, открывается файл в программе Microsoft Office Documents Imaging. Мне нужно средствами VBA-MODI управлять этим документом - переключать страницы, менять ориентацию...
Макрос на выделение цветом найденную запись VBA
здравствуйте, данный макрос находит заданное значение и выделяет его цветом Sub Finderer() Dim FD, firstAddress, adrs FD = InputBox("ВВЕДИТЕ ИСКОМОЕ СЛОВО ИЛИ ЧИСЛО", "Мой поиск") If FD = "" Then Exit Sub ' если пользователь нажал кнопку ОТМЕНА - отказ от поиска Dim c As Range: Set c = Range("A:A").Find(FD) ' поиск данных ' если ничего не нашли - выход из макроса If c Is Nothing Then...
VBA Поиск текста и перемещение по документу Word из редактора VBA CorelDraw X6 Добрый день! Пробую автоматизировать работу, осваиваю VBA, столкнулся со следующей загвоздкой: Необходимо в документе Word находить по названию таблицы индекс этой таблицы в документе для дальнейшей работы с ней. Операции поиска необходимо проводить из редактора Corel, потому что дальше основная работа будет осуществляться в документе Corel со значениями из таблицы. Ниже привожу код, написанный... https://www.cyberforum.ru/ vba/ thread1598156.html VBA Определение объема выданных (не выполненных) заданий https://www.cyberforum.ru/ vba/ thread1597801.html
Добрый день, уважаемые форумчане. Окажите содействие в решении небольшого вопроса: нужно в журнале заданий рабочему посчитать сколько этому рабочему уже выдано работы, которая им еще не выполнена. Предполагаемый алгоритм я описал в примечании к столбцу М. Заранее благодарен.
Копирование данных с нескольких листов с по двойному клику мыши VBA
Помогите написать макрос для копирования данных в лист "Заказ" по двойному клику мыши по цене товара
VBA Textbox Как считать ряд цифр, записанных в TextBox? https://www.cyberforum.ru/ vba/ thread1597650.html
VBA При создании нового документа Word в документе уже что то есть https://www.cyberforum.ru/ vba/ thread1597487.html
Разбирался с VBA Word. Не знаю, что мог такого сделать, но теперь каждый раз при создании нового документа Word, каждый раз в новом документе уже есть какие то значения (которые я возможно раньше вводил) Появляется такое, если создавать новый документ как с помощью меню "Файл - Создать", или просто на рабочем столе нажать "ПКМ - Создать - Документ Word", или просто запустить сам exe файл Word....
VBA Сумма цифр чисел одномерного массива
Вот такой код получился,выдает ошибку next without for Sub summa(a) Dim i, s s = 0 n = TextBox1 For i = 1 To n While a(i) <> 0 s = s + (a(i) / 100) a(i) = a(i) / 10
VBA Перенос данных по условию Доброго времени суток. Помогите, пожалуйста, решить задачу: Есть 3 таблицы (отдельными файлами). В основной таблице, в столбце А набор данных (фамилии). в столбце В условие переноса (да/нет). Необходимо, чтобы данные (вводимые и имеющиеся при изменении условия) из основной таблицы по условию ДА автоматически переносились в две другие таблицы. https://www.cyberforum.ru/ vba/ thread1597282.html VBA Частичная очистка листа при сохранении https://www.cyberforum.ru/ vba/ thread1597235.html
Уважаемые форумчане,помогите решить проблему. Имеется такой код With Range("A3") .FormulaLocal = .Value .AutoFill Destination:=Range("A3:A10000"), Type:=xlFillDefault End With With Range("F3") .FormulaLocal = .Value .AutoFill Destination:=Range("F3:F2000"), Type:=xlFillDefault End With
Псевдотаблицы word в нормальные таблицы VBA
Добрых вечеров, постояльцы. Есть ли вариант перевода псевдотаблиц (когда текст обрамлен символами вертикальных и горизонтальных линий) в человеческие таблицы? Может кто-то боролся с подобным?
VBA Перенос данных по условию https://www.cyberforum.ru/ vba/ thread1597165.html
Доброго времени суток. Помогите, пожалуйста, решить задачу: Есть 3 таблицы (отдельными файлами). В основной таблице, в столбце А набор данных (фамилии). в столбце В условие переноса (да/нет). Необходимо, чтобы данные (вводимые и имеющиеся при изменении условия) из основной таблицы по условию ДА автоматически переносились в две другие таблицы.
0 / 0 / 0
Регистрация: 13.10.2015
Сообщений: 4
01.12.2015, 20:05  [ТС] 0

Переставить местами строку матрицы с max элементом и строку с минимальным средним арифметическим - VBA - Ответ 8423419

01.12.2015, 20:05. Показов 1238. Ответов 4
Метки (Все метки)

Ответ

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
.Sub matr()
Dim a() As Integer
Dim s() As Integer
Dim sr() As Integer
n = InputBox("введите размер массива")
ReDim a(n, n) As Integer
ReDim s(n) As Integer
ReDim sr(n) As Integer
For i = 1 To n
For j = 1 To n
a(i, j) = InputBox("Введите A(" & i & ", " & j & "):")
Next j, i
msgString = ""
For i = 1 To n
For j = 1 To n
msgString = msgString & a(i, j) & ", "
Next j
msgString = msgString & Chr(13)
Next i
MsgBox ("Массив А:" & Chr(13) & msgString)
Max = a(1, 1): nmax = 1
Min = a(1, 1): nmin = 1
k = 1
For i = 1 To n
For j = 1 To n
s(k) = s(i) + a(i, j)
Next j
k = k + 1
Next i
For i = 1 To k
sr(i) = s(i) / n
If sr(1) < sr(i) Then
nmin = i
End If
Next i
For i = 1 To n
For j = 1 To n
If a(i, j) > Max Then
Max = a(i, j)
nmax = i
End If
Next j
Next i
MsgBox ("Минимальный" & Str(Min) & Chr(13) & "Максимальный" & Str(Max))
For j = 1 To n
t = a(nmin, j)
a(nmin, j) = a(nmax, j)
a(nmax, j) = t
Next j
msgString = ""
For i = 1 To n
For j = 1 To n
msgString = msgString & a(i, j) & ", "
Next j
msgString = msgString & Chr(13)
Next i
MsgBox ("Массив А после обмена:" & Chr(13) & msgString)
End Sub
Проблема в строке, где пыаюсь найти среднее арифметическое...

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

Переставить последнюю строку матрицы со строкой с максимальным средним арифметическим значением
Пожалуйста, помогите составить программу. Заданы два двумерных массива А(4,4) и В(3,3). Для...

Поменять местами строку с максимальный элемент и строку с минимальным элементом матрицы
привет!я хотел бы попросить знающих людей написать программу на языке С!надо поменять местами рядок...

Найти строку с минимальным средним арифметическим своих элементов
Как найти номер строки двумерного массива A( n,m) в которой среднеарифметическое значение ее...

Переставить строку матрицы с минимальным элементом и со строкой с заданным номером
Добрый вечер. Помогите пожалуйста. Дан массив R (М, M). Переставить строку с минимальным...

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

Переставить последнюю строку со строкой со средним арифметическим значением
Помогите пожалуйста составить программу. Заданы два двумерных массива А(4,4) и В(3,3). Для...

Заполнить строку нулей матрицы средним арифметическим по столбцам, а столбец - средним по строкам
В матрице(10на10) имеются строка и столбец, содержащие только элементы, раввные нулю. Заполните эту...

Переставить строку с минимальным элементом на главной диагонали матрицы со строкой с заданным номером
Помогите пожалуйста с задачкой Дан массив R(m,m).Надо переставить строку с минимальным элементом...

В матрице переставить последнюю строку со строкой с максимальным средним арифметическим значением
Заданы два двумерных массива А(4, 4) и В (3, 3). Для каждого из них переставить последнюю строку со...

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