|
|
| Другие темы раздела | |||||||||||||||||||||||
| 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) https://www.cyberforum.ru/ vba/ thread431384.html |
Для данного числа а>0 найти такое натуральное n, для которого n!<a и (n+1)!>a VBA Нужно решить задачу с использованием цикла с предусловием с ключевым словом While. | ||||||||||||||||||||||
| VBA Заполнение элементов массива значениями элементов последовательности Элементы последовательности вычисляются по правилу А = х^n *sin(k)/e^k , k = 1,2,3, ,7. Составить проект программы для заполнения элементов массива значениями элементов последовательности. Заменить минимальный элемент массива числом 999 и вывести полученный массив на форму, а также вычислить количество отрицательных элементов массива. Значение величины x ввести из текстового окна. https://www.cyberforum.ru/ vba/ thread431380.html |
VBA Дан массив A(n). Вычислить сумму элементов с k-го по k1-й элемент, произведение с k-го по k2-й элемент
https://www.cyberforum.ru/ vba/ thread431345.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 | ||||||||||||||||||||||
|
Для данного числа а>0 найти такое натуральное n, для которого n!<a и (n+1)!>a VBA Для данного числа а>0 найти такое натуральное n, для которого n!<a и (n+1)!>a. Решить задачу с использованием цикла с предусловием с ключевым словом While. |
VBA Проверить, чередуется ли в массиве положительный элементы с отрицательными
https://www.cyberforum.ru/ vba/ thread431261.html 1. Дан одномерный массив целых чисел. Проверить, чередуется ли в массиве положительный элементы с отрицательными. 2. Дан одномерный массив вещественных чисел. Определить произведение элементов массива, расположенных между максимальным и "центральным" элементами (предполагается что кол-во элементов нечетное и макс элемент один). 3. Преобразовать массив по определенным правилам. Вставить после... | ||||||||||||||||||||||
|
VBA Рисование границ диапазона ячеек в экселевском макросе с циклом
https://www.cyberforum.ru/ vba/ thread431223.html Добрый день! Прошу помощи,т.к.VBA не знаю совсем.Имеется макрос,работающий для конкретной таблицы,за исключением того,что длина таблицы (кол-во строк в ней) может быть любой. Макрос при печати вставляет внизу каждой страницы строку с суммой указанных столбцов.Можно ли дополнить этот макрос,чтобы все ячейки этой строки таблицы,следующие за ячейкой со словами "Всего по странице",а именно диапазона... |
Как найти и выделить 5-е от начала документа слово "сапог" VBA Доброго времени суток! Не могу сообразить, как выкрутиться. Дан текст в котором многократно повторяется слово "сапог", как найти и выделить 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 работает,а на русском языке не хочет))))как можно с этим справиться? https://www.cyberforum.ru/ vba/ thread431180.html | ||||||||||||||||||||||
|
Проверить, содержит ли строка символы отличные от "+", "-", "*" и "/" VBA "+", "-", "*" и "/" вот начал, дальше не знаю что делать Sub rr() Dim s As String, s1 As String, s2 As String, s3 As String, s4 As String, x As Single s1 = "+": s2 = "-": s3 = "-": s4 = "/" |
VBA Программа должна брать данные с 1 листа и выводить полученное на второй
Помогите пожалуста,непойму что надо дописать
Программа должна брать данные с 1 листа и выводить полученное на второй
Private Sub CommandButton1_Click()
Dim cena(7) As Double
Dim koll(7, 5) As Integer
Sheets("Лист1").Select
For i = 1 To 8
cena(i) = Cells(3 + i, 2)
Next
For i =
Наверх
| ||||||||||||||||||||||
Сообщение от Kate_C
