|
|
| Другие темы раздела | |
|
VBA программа VBA
https://www.cyberforum.ru/ vba/ thread197883.html написать программу для решения задач. Для первой кнопки- For...Next,для второй-цикл Doo...Loop . Создать третью кнопку для которой написать программу вычисления суммы.S=значок суммы , вверху к,в низу n=1потом 1/(2n-1)x^2n-1=1/x 1/3x^3 1/5x^3 x=3 k=14 |
VBA Найти произведение четных элементов массива Ребят помогите пожалуйста!!! 1) Ввести массив A(N). Найти произведение четных элементов массива, сумму нечетных элементов, разность произведения и суммы. Вывести все результаты. Помогите пожалуйста очень срочно надо!!! |
| VBA Обращение к переменным из других модулей Помогите разобраться с обращением к переменным из разных модулей, к примеру есть модуль '=== Sub DataClear() Static DataRange As Range With DataRange .Replace What:="года", Replacement:="": .Replace What:="год", Replacement:="": https://www.cyberforum.ru/ vba/ thread197220.html |
VBA VISIO поиск Shape по свойствам
https://www.cyberforum.ru/ vba/ thread197205.html как найти Shape по одному из свойств? Например у нас есть 10000 различных фигур, у всех есть свойство "Код", мне нужно найти фигуру с кодом, например, "Obj0001". |
|
VBA определить,принадлежит ли точка кольцу напишите,пожалуйста программу в VBA при помощи условного оператора.Вот условие:определить,принадлежит ли точка с координатами(x;y)кольцу с внутренним радиусом r1 и внешним радиусом r2,центр которого расположен в начале координат. |
VBA Internet Explorer, автоматизация Камрады, Есть web-сервис, который по определенной ссылке выдает excel-файл. Подскажите, как из excel на vba сохранить сохранить excel-файл, выдаваемый web-сервисом. Подскажите какие медоты/свойста класса InternetExplorer.Application использовать? Где можно найти помощь по классу InternetExplorer.Application? Спасибо. BR, Павел https://www.cyberforum.ru/ vba/ thread196662.html |
| VBA Зависание при открытии канала DDE Здравствуйте, уважаемое сообщество! ОС Windows XP, MS Office 2003 SP3 Написал макрос, в котором управляю другим приложением через Dynamic Data Exchange (DDE). Этот механизм взаимодействия приложений уже устарел, но пока поддерживается Windows. Код, например, такой: Dim ddeChannel As Long ddeChannel1 = DDEInitiate("Excel", "MySheet.XLS") If ddeChannel1 = 0 Then MsgBox ("Запусти... https://www.cyberforum.ru/ vba/ thread196646.html |
VBA Записать сразу 2 формулы в макросе для VBA Помогите, пожалуйста, как мне записать 2 формулы в макросе . Одну формулу для нахождения конечного пути я ввела, а вот вторую не могу. S=at^2/2. Буду очень благодарна!!! Sub расчёт() Range("E2").Value = "=B2*10" Range("E2").Formula = "=B2*10" Range("E2").Formula = "=B2*D2" Range("E2").Formula = "=RD*RD" Range("E2").FormulaR1D1 = "=RD*RD" End Sub |
|
VBA Значение суммы
https://www.cyberforum.ru/ vba/ thread196269.html Здравствуйте, подскажите, пожалуйста, как с помощью васика вычислить значение суммы. Я не понимаю как записать сразу все значения от 1 до 14. Спасибо |
VBA Создание макросов для всех презентаций PowerPoint Как сделать общие макросы для всех презентаций PowerPoint? Добавлено через 20 часов 12 минут Пока придумал следующее: нужно открыть презентацию, содержащую макросы, и макросы становятся доступными для всех открытых презентаций. Добавлено через 2 часа 48 минут Ключевое словосочетание здесь "создание надстройки". http://support.microsoft.com/kb/222737/ru https://www.cyberforum.ru/ vba/ thread196192.html |
|
VBA Вывести на печать первую, и вторую страницу, и 4 копии третьей страницы Доброго времени суток. Есть документ Excel, содержит в себе три страницы. Надо создать макрос для того чтоб вывести на печать первую, и вторую страницу, и 4 копии третьей страницы. В книге нашел такую команду Object.PrintOut (From, To, Copies....) Я представляю Что должно выглядеть примерно так Object.PrintOut (1, 3, 1) 'Это печать страниц с 1 по 3 по 1 копии Object.PrintOut (3, 3, 3) '... |
VBA Как в PowerPoint открыть диалоговое окно "Печать"
https://www.cyberforum.ru/ vba/ thread196091.html Как в PowerPoint открыть диалоговое окно "Печать" с помощью VBA. Добавлено через 19 часов 58 минут На русском языке не смог сформулировать правильный запрос в поисковых системах. Сделал запрос на английском "built-in dialog powerpoint vba". http://support.microsoft.com/kb/222701 Выход (workaround) оказался банальным: Sub Макрос1() SendKeys "^p" End Sub |
|
Заблокирован
|
|
| 12.12.2010, 03:57 | 0 |
Определите максимальное количество подряд идущих положительных элементов последовательности - VBA - Ответ 119247512.12.2010, 03:57. Показов 4158. Ответов 15
Метки (Все метки)
Ответ
Я ж говорю: настругал от души. А как от ума — это можете продемонстрировать.
Равномощных подмассивов может быть > 1*, вот я эту ситуацию и отлавливаю. ___________________________________ * например, по 2 числа > 0 встретятся подряд в начале исходного массива и в конце Вернуться к обсуждению: Определите максимальное количество подряд идущих положительных элементов последовательности VBA
1
|
|
| 12.12.2010, 03:57 | |
|
Готовые ответы и решения:
15
Сформируйте массив целых чисел и определите максимальное количество подряд идущих одинаковых элементов Определить максимальное количество положительных элементов последовательности, идущих подряд Определить максимальное количество подряд идущих положительных элементов последовательности, не прерываемых ни нулями, ни отрицательными элементами
|
| 12.12.2010, 03:57 | |
| 12.12.2010, 03:57 | |
|
Помогаю со студенческими работами здесь
0
Подсчитать максимальное количество подряд идущих положительных элементов Определите количество пифагоровых троек из идущих подряд элементов последовательности Найти максимальное количество подряд идущих положительных четных элементов |