|
|
| Другие темы раздела | ||||||||||||||||||
| VBA Необходимо в MS Excel написать макрос, который бы формировал презентацию в Power Point доброго времени суток! существует следующая задача: необходимо в MS Excel написать макрос, который бы формировал презентацию в Power Point. Исходные данные: таблица в Excel, содержащая перечень разделов, каждому разделу соответствует своя мини-презентация (от одного до нескольких слайдов). Необходимо нажатием кнопки в Excel сформировать презентацию в Power Point. Такое возможно? https://www.cyberforum.ru/ vba/ thread431402.html |
VBA Найти сумму элементов на побочной диагонали и сумму элементов ниже главной диагонали я запутался. нашёл сумму выше главной диагонали (ошибочно, нужно ниже), а с суммой на побочной не могу разобраться даже Sub hhhhh() Dim a(1 To 5, 1 To 5) As Single, sum As Single Randomize Sheets("ëèñò1").Select Range("a1:h100") = Empty For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(100 * Rnd + 50) | |||||||||||||||||
|
VBA Для данного числа а>0 найти такое натуральное n, для которого n!<a и (n+1)!>a
https://www.cyberforum.ru/ vba/ thread431381.html Нужно решить задачу с использованием цикла с предусловием с ключевым словом While. |
VBA Заполнение элементов массива значениями элементов последовательности Элементы последовательности вычисляются по правилу А = х^n *sin(k)/e^k , k = 1,2,3, ,7. Составить проект программы для заполнения элементов массива значениями элементов последовательности. Заменить минимальный элемент массива числом 999 и вывести полученный массив на форму, а также вычислить количество отрицательных элементов массива. Значение величины x ввести из текстового окна. https://www.cyberforum.ru/ vba/ thread431380.html | |||||||||||||||||
|
Дан массив A(n). Вычислить сумму элементов с k-го по k1-й элемент, произведение с k-го по k2-й элемент VBA Я решил, вроде все правильно, но преподаватель сказал, что надо k1 и k2 элементы вводить и сделать для них цикл, вот не пойму, помогите пожалуйста Sub ff() Dim a() As Integer, n As Integer, i As Integer, k As Integer, s As Integer, p As Integer Range("a1:w100") = Empty s = 0 p = 1 n = Val(InputBox("введите n")) k = Val(InputBox("введите k")) ReDim a(n) As Integer |
VBA Для данного числа а>0 найти такое натуральное n, для которого n!<a и (n+1)!>a
https://www.cyberforum.ru/ vba/ thread431343.html Для данного числа а>0 найти такое натуральное n, для которого n!<a и (n+1)!>a. Решить задачу с использованием цикла с предусловием с ключевым словом While. | |||||||||||||||||
|
VBA Проверить, чередуется ли в массиве положительный элементы с отрицательными
https://www.cyberforum.ru/ vba/ thread431261.html 1. Дан одномерный массив целых чисел. Проверить, чередуется ли в массиве положительный элементы с отрицательными. 2. Дан одномерный массив вещественных чисел. Определить произведение элементов массива, расположенных между максимальным и "центральным" элементами (предполагается что кол-во элементов нечетное и макс элемент один). 3. Преобразовать массив по определенным правилам. Вставить после... |
Рисование границ диапазона ячеек в экселевском макросе с циклом VBA Добрый день! Прошу помощи,т.к.VBA не знаю совсем.Имеется макрос,работающий для конкретной таблицы,за исключением того,что длина таблицы (кол-во строк в ней) может быть любой. Макрос при печати вставляет внизу каждой страницы строку с суммой указанных столбцов.Можно ли дополнить этот макрос,чтобы все ячейки этой строки таблицы,следующие за ячейкой со словами "Всего по странице",а именно диапазона... | |||||||||||||||||
|
VBA Как найти и выделить 5-е от начала документа слово "сапог"
https://www.cyberforum.ru/ vba/ thread431193.html Доброго времени суток! Не могу сообразить, как выкрутиться. Дан текст в котором многократно повторяется слово "сапог", как найти и выделить 5-е от начала документа слово сапог. Нужен макрос для ворд. Добавлено через 20 часов 21 минуту Что никто не знает? С сапогом это так, для примера. Вопрос можно видоизменить: Как найти и выделить 136-е троеточие, считая от начала документа? |
VBA Дан массив A(n). Вычислить сумму элементов с k-го по k1-й элемент, произведение с k-го по k2-й элемент
https://www.cyberforum.ru/ vba/ thread431187.html Я решил, вроде все правильно, но преподаватель сказал, что надо k1 и k2 элементы вводить и сделать для них цикл, вот не пойму, помогите пожалуйста Sub ff() Dim a() As Integer, n As Integer, i As Integer, k As Integer, s As Integer, p As Integer Range("a1:w100") = Empty s = 0 p = 1 n = Val(InputBox("введите n")) k = Val(InputBox("введите k")) ReDim a(n) As Integer For i = 1 To n | |||||||||||||||||
|
VBA Разделитель дробного числа в TextBox при любой раскладке клавиатуры Доброго дня Всем! Уважаемые форумчане,как разобраться с разделителем дробного числа в TextBox....(при переключении клавиатуры на англ-яз. точка на кнопке Del работает,а на русском языке не хочет))))как можно с этим справиться? |
VBA Проверить, содержит ли строка символы отличные от "+", "-", "*" и "/"
https://www.cyberforum.ru/ vba/ thread431177.html "+", "-", "*&quo
Наверх
| |||||||||||||||||
