|
|
Другие темы раздела | |
VBA Зачетная. Про сотрудников
https://www.cyberforum.ru/ vba/ thread1737201.html Нужно: В 1 столбце заполнить i сотрудника 2-4) столбцы ФИО (полностью) соответственно 5) зарплата Нужно вычислить: 6) премия, которая равна % от зарплаты. Сам % либо вводим через инпутбокс, либо через какую-то ячейку, чтобы динамически можно было менять 7) к выплате (зарплата + премия) Эта часть еще более-менее, сам тоже постараюсь. А дальше идет: |
VBA Как выделить цветом значения в столбце, которые содержатся в другом столбце другого листа Как выделить цветом значения в столбце , которые содержатся в другом столбце другого листа ? |
VBA программно читать текстовый файл можно так Sub Макрос1() 'On Error Resume Next Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.OpenTextFile("f:\в UTF8.txt", 1, True) Do While MyFile.AtEndOfStream <> True MsgBox MyFile.ReadLine Loop https://www.cyberforum.ru/ vba/ thread1736772.html | VBA Закрашивание совершенствующий значений цветами Нужна помощь, есть столбец со значениями, нужно если значения совпадают со значениями 14820 44949 66089 58444 58619 44915 14579 66072 66000 https://www.cyberforum.ru/ vba/ thread1736688.html |
Определить количество положительных элементов массива VBA Определить количество положительных элементов массива |
VBA Пытаюсь написать макрос, в котором рассчитывается формула, но у меня все зацикливается и неверно считает.
https://www.cyberforum.ru/ vba/ thread1736647.html Доброго времени суток! Помогите пожалуйста разобраться. В Excel в ячейке А2:А25 значения по порядку от 1 до 24, а в ячейке С2:С25 данные в миллионах. Пытаюсь написать макрос, в котором рассчитывается формула, но у меня все зацикливается и неверно считает. Вот код: Sub Êíîïêà1_Ùåë÷îê() Columns("E").ClearContents t = Cells(2, 1).Value |
VBA [Access 2007, 2016] Команда меню "Закрыть всё"
https://www.cyberforum.ru/ vba/ thread1736583.html Здравствуйте, у меня база данных, с отключены параметры панелей инструментов, области навигации. Т.е. при запуске чисто форма. Форма может запускать другие формы, запросы, таблицы. При закрытии форм, открытых из главной, все запросы, таблицы которые были открыты должны все закрыться\скрыться, т.е. то же самое что и в контекстном меню "Закрыть всё". Вопрос собственно и состоит в том, как... |
Runtime error 13 - type mismatch - VBA VBA Привет всем ! У меня тут не сходится, взгляните, если не сложно. Private Sub CommandButton1_Click() Dim k1 As String Dim k2 As String Dim k3 As String Dim s2 As Integer Dim s1 As Integer k1 = TextBox268.Text = "г" + TextBox269.Text = "р" + TextBox270.Text = "а" + TextBox271.Text = "д" + TextBox273.Text = "и" + TextBox272.Text = "е" + TextBox275.Text = "н" + TextBox274.Text... |
VBA Выгрузить из listbox данные в таблицу в числовом формате Доброго времени суток. столкнулся с проблемой форматов ячеек ((. в ЛистБокс (на форме) загружаются данные из большого файла (более 100 мб). столбец1 - назв.Организации столбец2 - Сумма Операций (рубли) столбец3 - инн.... После данные из Listbox выгружаются в текущий документ эксель в определенную форму (далее пойдут на загрузку в 1с). Проблема в выгружаемых суммах. часть сумм... https://www.cyberforum.ru/ vba/ thread1736336.html |
VBA Автоматическое изменение шрифта относительно количества символов
https://www.cyberforum.ru/ vba/ thread1736325.html Добрый день, пытаюсь создать скрипт для автоматического изменения размера шрифта в заданной ячейке. Суть в том, что если у нас в ячейке до 11 символов - шрифт 26, если 12 - шрифт 25, если 13 - 23 и тд. У меня работает следующая схема If Len(CStr(Cells(4, 2))) > 11 Then Cells(4, 2).Font.Size = 25 End If If Len(CStr(Cells(4, 2))) > 12 Then Cells(4,... |
Макрос, который бы в столбце в пустые строки вставлял формулы =""&&"" предыдущего значения VBA Помогите пожалуйста, нужен макрос который бы в столбце в пустые строки вставлял формулы =""&&"" предыдущего значения, пример : 0 нужен 0 458 нужно 458 991 991 991 991 991 |
VBA Добавление формулы в пустые строки Помогите пожалуйста, нужен макрос который бы в столбце в пустые строки вставлял формулы =""&&"" предыдущего значения, пример : 0 нужен 0 458 нужно 458 991 991 991 991 991 https://www.cyberforum.ru/ vba/ thread1736258.html |
0 / 0 / 0
Регистрация: 17.05.2016
Сообщений: 10
|
|
17.05.2016, 14:24 [ТС] | 0 |
Как создать функцию для вычисление сумму элементов в одномерном массиве vba? - VBA - Ответ 915140317.05.2016, 14:24. Показов 2233. Ответов 10
Метки (Все метки)
Ответ
нет мне надо создать Function sum(ar())
а не готовую Вернуться к обсуждению: Как создать функцию для вычисление сумму элементов в одномерном массиве vba? VBA
0
|
17.05.2016, 14:24 | |
Готовые ответы и решения:
10
Написать функцию для нахождения в одномерном массиве суммы элементов, кратных 7 В одномерном массиве, состоящем из вещественных элементов вычислить номер минимального элемента в массиве, сумму элементов массива Для каждого столбца матрицы посчитать сумму четных элементов. Результат сохранить в одномерном массиве. Создать шаблон-функцию для перестановки элементов в массиве |
17.05.2016, 14:24 | |
17.05.2016, 14:24 | |
Помогаю со студенческими работами здесь
0
В одномерном целочисленном массиве найти сумму всех четных элементов и сумму элементов, стоящих на четных местах В одномерном массиве, состоящем их N вещественных элементов, вычислить сумму и произведение элементов В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму положительных элементов В одномерном массиве (из n вещественных элементов) вычислить сумму положительных элементов массива |