|
|
Другие темы раздела | |
VBA Работа с массивами в EXEL подправьте код
https://www.cyberforum.ru/ vba/ thread1993781.html Вся основная часть работы выполнена. ТОлько не могу понять как распределить положительные и отрицательные значения массива по разным колонкам прошу о помощи. Sub Массив() Dim x() As Single Dim s As Single, r As Single Dim i As Integer, j As Integer, n As Integer n = CInt(InputBox("Введите число элементов массива")) ReDim x(n) s = 0 Cells(1, 1) = "Исходный массив" Cells(1, 1) = "... |
Создать макрос, который копирует столбцы по условию VBA Есть пустой файл, в ячейке А1 название этого файла, А2 название семестра (1-10), макрос должен открывать другой файл из названия ячейки, переходить к номеру семестра и копировать столбцы В и О, в соответствии. Т.е. в ячейке О23 стоит значение 34, напротив в ячейке В23 стоит имя "Русский язык", он должен скопировать значение 34 и имя "Русский язык", если ячейка пустая или объединенная, копировать... |
VBA Составьте процедуру, преобразующую эту последовательность по правилу Как сделать для этой программы процедуру, если условие: Пусть даны вещественные числа a1..a20. Составьте процедуру, преобразующую эту последовательность по правилу: большее из ai и ai+10 (i=1..10) принять в качестве нового значения ai, меньшее – в качестве нового значения ai+10. программу написал, а вот с процедурой проблема( Private Sub CommandButton1_Click() Dim arrTemp(20) As Double... https://www.cyberforum.ru/ vba/ thread1993710.html | VBA Раскрасить ячейки по диапазону значений после их рандомного заполнения Заполнить любые 10 ячеек случайными числами в диапазоне от 1 до 90 и раскрасить их разными цветами в следующем порядке: от 1 до 30 - желтый; от 31 до 60 - синий; от 61 до 90 - зеленый. https://www.cyberforum.ru/ vba/ thread1993658.html |
Не могу запустить процедуру создания новой последовательности VBA Написал программу с процедурой для создания новых последовательностей, а процедуру не могу запустить, что нужно сделать? Private Sub CommandButton1_Click() Dim arrtemp(20) As Double Dim temp As Double Dim i As Integer For i = 1 To 20 arrtemp(i) = CInt(Int((10 * Rnd()) + 1)) Next i |
VBA Как создать запрет на ввод отрицательных значений Для значений, которые водятся в поле справа нужно поставить запрет на ввод отрицательных чисел, можно и с выводом сообщения типа "введите положительные значения". https://www.cyberforum.ru/ vba/ thread1993518.html |
VBA Как прочитать текст под заливкой
https://www.cyberforum.ru/ vba/ thread1993241.html Код который удаляет текст с заливкой определённого цвета я нашёл: With wdDoc.Content.Find .Highlight = True .Format = True Do While .Execute = True If .Parent.HighlightColorIndex = 6 Then .Parent.Delete End If Loop |
Матрицы, функции, подпрограммы и прочее VBA Ребзя, помогите, пожалуйста. Есть условие: Есть 2 матрицы 6х6. Для матрицы, в которой выполняется условие "больше отрицательных элементов", ищется сумма положительных в каждой строке. Есть код. На выходе итоговый столбец полностью зануляется, хотя того не должно быть. Что я делаю не так?) Option Base 1 Sub Lab() Dim A(6, 6) As Integer |
VBA Run-time error 432
https://www.cyberforum.ru/ vba/ thread1993163.html Добрый день! С недавнего времени при попытке открыть форму с помощью команды ufCorrosion.Show появляется сообщение run-time error 432 File name or class name not found during Automation operation. Не понимаю, что конкретно найти не получается, если файл на месте, форма тоже. В код не вмешивались. И на другом файле точно такая же форма по такой команде открывается без проблем. |
VBA В каждой строке матрицы найти количество элементов,меньших среднего арифметического всех элементов этой строки
https://www.cyberforum.ru/ vba/ thread1993123.html 2) Дана матрица размера MxN. В каждой ее строке найти количество элементов,меньших среднего арифметического всех элементов этой строки. Есть какие-то идеи? |
VBA Найти два различных элемента массива, сумма которых наиболее близка к числу R 1) Дано число R и массив размера N. Найти два различных элемента массива, сумма которых наиболее близка к числу R, и вывести эти элементы в порядке возрастания их индексов |
VBA Разработать процедуру, проверяющую/исправляющую орфографию Разработать процедуру, проверяющую \ исправляющую орфографию записи в текстовом поле формы либо документа. Есть макрос для текстового поля, как сделать, чтобы можно было писать и исправлять ошибки в форме? Sub Auto_Spell() Dim myDoc As Document Dim SpellSuggs As SpellingSuggestions Set myDoc = ActiveDocument https://www.cyberforum.ru/ vba/ thread1993080.html |
0 / 0 / 0
Регистрация: 04.05.2017
Сообщений: 6
|
|
31.05.2017, 07:48 [ТС] | 0 |
Просуммировать определенные столбцы в Excel - VBA - Ответ 1049685831.05.2017, 07:48. Показов 525. Ответов 4
Метки (Все метки)
Ответ
0
|
31.05.2017, 07:48 | |
Готовые ответы и решения:
4
Извлечь определенные символы из строки и просуммировать их. Просуммировать столбцы из 2 таблиц Просуммировать столбцы по критерию Поменять местами определенные строки матрицы, и определенные столбцы матрицы |
31.05.2017, 07:48 | |
31.05.2017, 07:48 | |
Помогаю со студенческими работами здесь
0
Как просуммировать соответствующие столбцы из нескольких таблиц Просуммировать столбцы матрицы и занести получившиеся суммы в массив Просуммировать столбцы матрицы и занести получившиеся суммы в массив Выбрать определенные столбцы |