Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA установка соединение с бд https://www.cyberforum.ru/ vba/ thread765895.html
Добрый день уважаемые форумчане. Мне скинули проект и БД я добавил на sql-сервер бд пытаюсь приконектиться к БД (у человека который это делал все работает) получаю такое "Сannot open database 'data'...
Составить программу нахождения всех корней нелинейных уравнений VBA
1. Составить программу нахождения всех корней нелинейных уравнений: x^3 - 3* x^2 + 3*х -1 = 0 c заданной точностью е = 0.001; х; x^3 - 3*x + 2 = 0 е = 0.001; х; x^3 +3 *x^2 – 3 = 0 е...
VBA Ошибка 76 Путь не найден (Path not found) https://www.cyberforum.ru/ vba/ thread765673.html
Есть: файл с .pptm макросом, в котором созданы UserForm1 и Module2. Код Module2: Sub SlideGenerate() UserForm1.Show End Sub При запуске выдаёт ошибку: Run-time error '76': Path not found
VBA Словарь словарей плюс Коллекция массивов Здрасьте! Что-то я или запутался совсем, или лечить пора. Создал Dict (ключи - значения ячейки текущего ряда r столбца 11). Использует как Item подсловарь subDict (ключи - значения ячеки... https://www.cyberforum.ru/ vba/ thread765642.html
VBA Word: построить график функции y(x), которую вводит пользователь
Добрый день! Нужно написать программу, которая работает по принципу 1) пользователь вводит функцию y(x) 2) пользователь указывает пределы по x и по y, в рамках которых будет построен график 3)...
VBA Как сохранить данные из одного в файла в несколько Есть файл, в котором содержится информация по менеджерам. Формат таблицы ФИО менеджера – Название клиента – Сумма продаж за прошлый год – Сумма продаж за текущий год. За каждым менеджером может... https://www.cyberforum.ru/ vba/ thread765596.html
VBA Отображение на форме результатов перекрестного запроса https://www.cyberforum.ru/ vba/ thread765583.html
Вынес в отдельную тему, т.к. последний вопрос предыдущей темы затерялся в тексте и стал нечитабельным. Имеется форма Form1, куча контролов типа TextBox и источник записей этой формы - перекрестный...
VBA Считать текст из текстового файла, вставить в Word, выделить цветом слова по критерию
помогите пожалуйста сделать((очень надо Задание. С помощью программных средств VBA разработать программу считывающую из заранее созданного текстового файла фрагмент текста объемом 300 - 400...
VBA Сортировка двоичным деревом / Sub or Function not defined https://www.cyberforum.ru/ vba/ thread765439.html
Sub ma() Randomize Const n As Integer = 10 Dim x(n) As Integer Dim u As Integer Dim k As Integer For icount = 0 To 9 x(icount) = Rnd() * 100 - 50 ...
VBA Создание динамической таблицы в Word из данных, находящихся в Access Добрый день! Задача: Формировать динамическую таблицу в Worde из данных находящихся в Accesse. Будет шаблон документа. В нем помимо обычной текстовой информации присуствует 2 таблицы. Вернее 1... https://www.cyberforum.ru/ vba/ thread765348.html
Как разобрать структуру из объединенных ячеек как массив ? VBA
Привет всем! Впервые столкнулся с такой вещью.. требуется разобрать шапку таблицы из объединенных ячеек как массив (см. вложенный рисунок). Нужно получить массив типа : 1) "1. Среднесписочная...
VBA Периодическое выполнение макроса в книге Помогите, пожалуйста, написать макрос, чтоб выполнялся периодически, каждые 10 секунд. Сейчас у меня срабатывает только 1 раз при открытии книги. Мой код в Auto_open: Sub Auto_open()... https://www.cyberforum.ru/ vba/ thread765272.html
1 / 1 / 0
Регистрация: 18.01.2013
Сообщений: 22
19.01.2013, 20:16  [ТС] 0

Найти сумму элементов на пересечении строк четной нумерации и столбцов нечетной нумерации в двумерном массиве - VBA - Ответ 4026762

19.01.2013, 20:16. Показов 1416. Ответов 3
Метки (Все метки)

Ответ

Так?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub A1()
Dim n%, m%, j%, i%, A!(), s!
n = Cells(1, 1)
m = Cells(1, 2)
ReDim A(n, m)
For i = 1 To n Step 1
For j = 1 To m Step 1
A(i, j) = Cells(i + 2, j + 2)
Next j
Next i
s = 0
For i = 2 To n Step 2
For j = 1 To m Step 2
s = s + A(i, j)
Next j
Next i
Cells(10, 10) = s
End Sub


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

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

Найти в двумерном динамическом массиве сумму строк и сумму столбцов и сравнить их
Доброго времени суток! Не могу понять это задание: дана матрица (N+15)x(N+15), если сумма всех...

В двумерном массиве A из m строк и n столбцов вычислить сумму и количество элементов выше главной диагонали
В двумерном массиве A из m строк и n столбцов вычислить сумму и количество элементов выше главной...

В двумерном массиве A из m строк и n столбцов вычислить сумму и количество элементов выше главной диагонали
Не могу понять,как сделать сложение по строкам,вот что у меня есть: var a:array of integer; ...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2013, 20:16

В двумерном массиве найти сумму максимальных элементов его столбцов
Здравствуйте . Задание: В двумерном массиве A найти сумму максимальных элементов его столбцов ....

В двумерном массиве найти сумму элементов, заканчивающихся четной цифрой, и произведение чисел, заканчивающихся нулем
дан двумерный массив, состоящий из 3 столбцов и 4 строк. Найти сумму элементов, заканчивающихся на...

В двумерном массиве А из m строк и n столбцов найти произведение элементов на главной диагонали и минимальные элементы в каждой строке
В двумерном массиве А из m строк и n столбцов найти произведение элементов на главной диагонали и...

Найти сумму элементов находящихся на пересечении четных строк и четных столбцов
дан массив 15х15 найти сумму элементов находящихся на пересечении четных строк и четных столбцов,...

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