Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Добавление столбцов с формулой https://www.cyberforum.ru/ vba/ thread402923.html
Добрый день. Немогли вы мне помочь со следующим . Необходимо добавить 2 новых столбца в которых вставляется формула. Мой код, который записан при помоши "записи макроса" Но он очень долго работает . Есть код который определяет последнию заполненую строку. Можно какнибуть сделать, чтобы он побысрей работал или хотябы привязать 1 код с другим. With Лист1.Cells НизЛист1 = .Find(What:="*",...
VBA Найти место в самолёте (первый или второй салон, слева или справа)
Private Sub CommandButton1_Click() Dim M, N, M1, N1, M0 As Integer M = TextBox1.Value 'общее количество рядов N = TextBox2.Value 'количество мест в ряду M1 = TextBox3.Value 'номер ряда N1 = TextBox4.Value 'номер места M0 = TextBox5.Value 'количество рядов в первом салоне If N1 <= N / 2 And M1 <= M0 Then MsgBox ("1-й салон, слева") ElseIf N1 > N / 2 And N1 <= N And M1 <= M0 Then
VBA Решить ребус Здравствуйте! Ищу помощи в написании программы для решения арифметических ребусов. Первая программа должна решать ребус, который я вложил, а вторая ребусы подобного вида. Очень надеюсь на Вашу помощь. Заранее очень благодарен! https://www.cyberforum.ru/ vba/ thread402790.html VBA Поиск списка в списке Excel Всем доброго дня, собственно суть оптимизации: Имеется список X с названиями, этот список нужно прокатить по другому списку Y, для поиска точных совпадений (достаточно номера ячейки Y, для последующего ручного сравнения других полей..) До этого видел VBA на пару лекциях, лет 5 назад.. :( https://www.cyberforum.ru/ vba/ thread402776.html
Вывести 10 раз слово Привет разными цветами в новый документ Word VBA
Задача вроде довольно проста, но я не очень разбираюсь в VBA. Открыть документ Word и вывести список команд. Изменить цвет текста; вывести 10 раз слово ПРивет разными цветами в новый документ Word.
VBA В макросе, используя методы объектов Selection и Application создать и сохранить документ Word https://www.cyberforum.ru/ vba/ thread402519.html
1. В макросе, используя методы объектов Selection и Application создать и сохранить документ Word 2. Открыть документ Word и вывести список команд. Изменить цвет текста; вывести 10 раз слово ПРивет разными цветами в новый документ Word. 3. Разработать программу, которая по введенным числовым значениям некоторого уравнения решает данное уравнение и находит неизвестную переменную х. Результат...
VBA MS Outlook: режим просмотра полей заголовков сообщений в папке "Входящие" по выбору пользователя https://www.cyberforum.ru/ vba/ thread402445.html
Задание: нужно написать скрипт что будет устанавливать режим просмотра полей заголовков сообщений в папке "Входящие" по выбору пользователя. Собственно буду благодарен если кто подкинет что-то (желательно на русском) по Outlook по управлению этой папкой "входящие", так как в книге что я прочитал по vba по оутлуку почти ничего не написано, ну и если кто что делал с этими полями заголовков...
Работа свойства System.ProfileString VBA
Что сделать в этой программе, что бы например вместо показа работы свойства System.Application, показывало бы работу свойства System.ProfileString Private Sub CommandButton1_Click() ex = TextBox1.Text iy = TextBox2.Text Func = Cosex + 2 * iy + 0.13 * (ex + iy * iy) ^ (1 / 3) TextBox3.Text = Func Selection.TypeText Text:="| " + TextBox3.Text + " |" End Sub Private Sub...
VBA Превратить введённый пользователем текстовый символ операнда в сам операнд в программном коде https://www.cyberforum.ru/ vba/ thread402409.html
Есть ячейка, в которой указывается алгоритм, который будет использоваться для подсчёта выручки. Например: + + Программа считывает названия в квадратных скобках и ищет столбцы в присылаемых отчётах с этими названиями, а затем производит указанные операции (в данном случае суммирование). Но иногда требуется использовать другие операнды (–, /, *). Вопрос: как превратить введённый...
VBA Заменить первые 5 элементов массива пятью последними, массив задан как диапазон ячеек В массиве А(20) поменять местами первые пять элементов с последними пятью элементами. При этом A(i)=Cells(i,1).Value. Пжл, подскажите https://www.cyberforum.ru/ vba/ thread402368.html
VBA Вычислить значение суммы обратных величин 3 переменных
необходимо в Visual Basik вычислить значение суммы обратных величин 3 переменных
VBA Вычислить значение выражения https://www.cyberforum.ru/ vba/ thread402283.html
помогите, пожалуйста)))очень нужно.....и блок-схема) На форуме есть радактор формул
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 4
0

Сумма элементов массива, расположенных после последнего отрицательного элемента - VBA - Ответ 2265910

09.12.2011, 19:11. Показов 3513. Ответов 3
Метки (Все метки)

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
27
Sub PR18()
Dim sum As Single, check As Boolean
Dim A() As Single, n As Integer, i As Single, Str1 As String, Str2 As String
n = InputBox("Введите число элементов массива:", "Определение размера")
ReDim A(n) As Single
Str1 = ""
Str2 = ""
 
'Заполнение массива с клавиатуры и формирование строки
For i = 1 To n
A(i) = Val(InputBox("Введите   " & i & "-ый элемент массива", "Заполнение массива"))
Str1 = Str1 & A(i) & " "
Next
 
'Сумма элементов массива, расположенных после последнего отрицательного элемента
check = False
sum = 0
For i = 1 To n
If A(i) < 0 Then
check = True
ElseIf A(i) > 0 And check = True Then
sum = sum + A(i)
End If
Next
 
MsgBox "Исходный массив: " & Str1 & Chr(13) & "Сумма элементов массива: " & sum, , "Результат"
End Sub


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

Найти сумму модулей элементов массива, расположенных после первого отрицательного элемента
Здравствуйте! Дали задачу в дополнение к РГЗ, а я практически не понимаю как ее делать...Помогите...

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

Определить среднее арифметическое значение n-го отрицательного и последнего положительного элемента массива
опр среднее арифметическое значение !-го отрицательного и последнего положит. элемента одномерного...

Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю
буду очень благодарен за помощь,если еще блок схема будет, то вообще будет прекрасно

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

Найти разность первого положительного и последнего отрицательного элементов массива
В заданном векторе (одномерном массиве) найти: разность первого положительного и последнего...

Найти количество элементов, расположенных после минимального элемента матрицы
Всем привет)) Народ срочно нужна помощь) пожалуйста) вот задание: В матрице А(5,7) найти...

Определить количество элементов массива, отличных от последнего элемента
Sub one() Dim B(20) As Integer Dim i, k As Integer k = 0 For i = 0 To 19 B(i) = Rnd * 20...

Вычислить среднее арифметическое элементов, расположенных до максимального элемента массива
Добрый день. Помогите с кодом. Заранее спасибо. В целочисленном массиве вычислить: сумму квадратов...

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