С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Удаление разделов документа WORD на основании данных и таблицы Excel https://www.cyberforum.ru/ vba/ thread1447927.html
Добрый день. Прошу помочь с макросом VBA для использования в MS WORD. На входе папка со следующими документами - 1) Документ MS WORD отчет.doc (либо .docx) 2) Таблица excel отсутствующие_объекты.xls Задача: удалить разделы документа word на основании данных из таблицы excel. Макрос должен выполнять следующие задачи: 1) Запросить у пользователя папку, в которой лежат документы (или еще...
VBA Удаление разделов документа по заголовкам
Добрый день. Прошу помочь с макросом VBA для использования в MS WORD. На входе папка со следующими документами - 1) Документ MS WORD отчет.doc (либо .docx) 2)Таблица excel отсутствующие_объекты.xls
VBA Ошибка при запуске программы "run time error 13 type mismatch" https://www.cyberforum.ru/ vba/ thread1447817.html
сама задача: Определить количество элементов массива, принадлежащих промежутку отa до b (значения a и b вводятся с клавиатуры; b > a). Sub abc() Dim a, b, k, i As Integer Dim l(10) As Integer a = InputBox("vvedite a", a) b = InputBox("vvedite b", b) For i = 0 To 10
VBA Преобразовать матрицу в одномерный массив в порядке следования столбцов https://www.cyberforum.ru/ vba/ thread1447779.html
Составить программу формирования элементов динамической прямоугольной матрицы A, произвольной размерности. Преобразовать эту матрицу в одномерный массив в порядке следования столбцов. Найти наименьший элемент полученного массива и вывести его через строку от одномерного массива.
Не работает поиск по tagname VBA
Добрый день, проблема в следующем , не хочет читать тег , помогите плиз. Спасибо i = 2 posl = 20 Page = 0 Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = False
VBA Как написать макрос, чтобы при определенных условиях в ячейке С прибавлялось значение 1 https://www.cyberforum.ru/ vba/ thread1447763.html
Как написать макрос, чтобы при определенных условиях (к примеру А=В) в ячейке, например, С к содержимому прибавлялось значение 1 (т.е. каждый раз +1, +1, +1, до бесконечности)
VBA Путём VBA заполнить ВХОДНЫЕ данные на ВЕБ странице, содержащей яваскрипт Здравствуйте, помогите пожалуйста. Как мог бы я заполнить свои ЛОГИН данные на страничке (https://online-kundencenter.new.de/NLP/) и потом нажать кнопку "Weiter" К сожалению страница содержит Яваскрипт и стандартный подход не работает (здесь просто как пример): ie.navigate "https://online-kundencenter.new.de/NLP/" IE.Visible = TRUE Do While IE.Busy And Not... https://www.cyberforum.ru/ vba/ thread1447736.html VBA Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова
Задание: Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова. Ввод строки и вывод результата реализовать через файл. Буду благодарен за помощь. Добавлено через 2 часа 58 минут Не могу понять как подсчитать количество букв в слове, если бы было сказано что дан массив то тогда всё ясно, но тут строка и количество элементов в строке может быть разным,...
VBA Определить сумму четных элементов массива https://www.cyberforum.ru/ vba/ thread1447577.html
Определить сумму второго, четвертого, шестого и т. д. элементов массива.. нужно решить через одномерный массив помогите пожалуйста
VBA Копирование таблиц из одной базы в другую https://www.cyberforum.ru/ vba/ thread1447403.html
Добрый день ! Прошу помощи. Есть две одинаковых базы данных с одним и тем же названием и одними и теми же таблицами, запросами, макросами и т.д. Только одна размещена на общем ресурсе и ей пользуются множество людей, в том числе и изменяют данные в ней, а вторая - у меня на локальном компьютере - я модернизирую её, добавляю новые кнопки и формы, пишу дополнительные процедуры. Вопрос: как я...
Отображение графических объектов с учетом диффузной модели освещения VBA
Разработка математического и алгоритмического обеспечения для отображения графических объектов с учетом диффузной модели освещения
VBA Переход на другой лист по условию https://www.cyberforum.ru/ vba/ thread1447255.html
Помогите пожалуйста, нужно осуществить переход на следующие листы при условии, что заполнены все выделенные ячейки в Листе1. У меня получилось сделать только для одной ячейки, для нескольких(хотя бы для двух) уже ничего не выходит:( собственно вот сам код:(знания языка скудные..:() Private Sub Workbook_SheetActivate(ByVal Sh As Object) If IsEmpty(ThisWorkbook.Sheets(1).Cells(14, 4))...
0 / 0 / 0
Регистрация: 13.12.2014
Сообщений: 14
0

Определить количество элементов массива, отличных от последнего элемента - VBA - Ответ 7622109

16.05.2015, 12:19. Показов 938. Ответов 4
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub one()
 
Dim B(20) As Integer
Dim i, k As Integer
k = 0
 
For i = 0 To 19
B(i) = Rnd * 20
ThisWorkbook.Sheets(1).Cells(i + 1, 1) = B(i)
 
  If B(i) <> B(20) Then
  k = k + 1
  End If
  Next i
  ThisWorkbook.Sheets(1).Cells(1, 2) = k
End Sub


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

Определить количество нулевых элементов массива и попадение на него каждого четного элемента
А(15) Определить количество нулевых элементов и попадение на него каждого четного элемента ...

Определить значение и порядковый номер последнего нечетного элемента массива
1)организуйте одномерный массив из случайных значений. Определите значение и порядковый номер...

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

Сумма элементов массива, расположенных после последнего отрицательного элемента
Помогите, пожалуйста, сделать код для по счета Суммы элементов массива, расположенных после...

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

Определить количество элементов массива, отличных от последнего элемента и их суммы
Дан массив Р(10). Определить количество элементов , отличных от последнего элемента и их суммы 2 ...

Определить количество элементов, отличных от последнего элемента
Определить количество элементов, отличных от последнего элемента.

Дан массив. Определить количество элементов, отличных от последнего элемента.
2.Дан массив А(10). Определить количество элементов, отличных от последнего элемента.

Найти количество элементов массива, отличных от значения последнего элемента
массив из 50 чисел и заполнить его случайными числами.сколько в нем элементов, отличных от...

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