|
|
Другие темы раздела | |
VBA Вставка текста через VBA в ячейку таблицы Есть код: Dim currText As Range 'текущее выделение текста For i = 3 To 5 If (ComboBoxArrive(i).Value Like "**") = True Then Set currText = ActiveWindow.Selection.Tables(1).Cell(2, 5).Range currText.Text = currText.Text & ComboBoxArrive(i).Value End If Next Который вставляет текст подряд из массива в одну ячейку, если... https://www.cyberforum.ru/ vba/ thread2248018.html |
VBA Ошибка: Object variable or With block variable not set необходимо создать форму авторизации к access подключила SQL Server(БД находится на нем), в access создала запрос SELECT dbo_Авторизация.Пароль FROM dbo_Авторизация WHERE (dbo_Авторизация.Логин)=; Затем в форме создала уже два поля ввода для теста и кнопку входа Для кнопки прописала код Private Sub Êíîïêà4_Click() Dim dbs As DAO.Database Dim qdf As DAO.QueryDef |
VBA Цикл ByChange:=
https://www.cyberforum.ru/ vba/ thread2247887.html Ребят, подскажите, пожалуйста, как записать диапазон для изменяемых ячеек переменных в макросе поиска решения для цикла. Чтобы в ByChange:= на первом цикле брал "$AD$2:$AE$2:$AF$2", на втором цикле "$AD$3:$AE$3:$AF$3" и т.д. Где ошибка в макросе ниже? Sub Макрос7() Dim i As Integer For i = 2 To 5 SolverOk SetCell:="$AC$" & i, MaxMinVal:=3, ValueOf:=Range("$AB$" & i).Value, ByChange:= _... |
VBA Поиск нужной строки по двум условиям (макрос) Добрый день! Заранее прошу не кидаться тапками, второй день занимаюсь макросами, ранее с ними не сталкивалась. Есть табличка, в первой колонке название города, в третьей - месяц. Остальные колонки - курсы валют. Также есть файл на каждый город, в каждом файле вкладка на каждый месяц. Необходимо для каждого города и каждого месяца найти строку с курсами валют и разнести их по файлам. Повторов... https://www.cyberforum.ru/ vba/ thread2247782.html |
Автозаполнение данных с Лист2 в Лист1 при совпадении ФИО VBA Добрый день, с синтаксисом VBA совсем не знаком, может кто сталкивался или есть похожие решения следующей задачи, буду благодарен за помощь. Есть книга с двумя листами, условно Лист1, Лист2. На Лист1, есть таблица со столбцами ФИО \ Пропуск(карта скуд) \ Должность; На Лист2, аналогичная таблица, только с двумя столбцами ФИО \ Должность; Необходимо произвести автозаполнение столбца... |
VBA Создание макроса для копирования некоторых форматированных ячеек в соседний столбец Здравствуйте. Буду очень благодарна за помощь в создании макроса. Есть таблица, нужно, чтобы данные из выделенных серым ячеек столбца B копировались в пустые ячейки столбца A. Как реализовать это с помощью мокроса? Заранее спасибо! https://www.cyberforum.ru/ vba/ thread2247742.html |
VBA Спец. символы в поле НАЙТИ
https://www.cyberforum.ru/ vba/ thread2247681.html Добрый день. Не могу справиться с одной задачей. Есть формула в Microsoft Equation. Нужно перейти к этой формуле в её начало. Как это сделать ? Делаю методом Selection.Find, но он мне иногда пишет: "^( нельзя использовать как специальный символ в поле найти". Если есть в формуле ^(, то он считает, что я хочу найти спец. символ. Как решить проблему? |
VBA Как сделать кнопк «ОК»? Я тупой |
VBA Медленно работает advancedsearch()
https://www.cyberforum.ru/ vba/ thread2247547.html Добрый день. Делаю скрипт, который выбирает коллекцию писем из почтового ящика не старше определенного дня и ищет отправителей, переставших писать. Для создания выборки использую этот код: Dim sFilter As String Dim sDate As String, sFormDate As String sDate = CStr(Date - iDepth) sFormDate = "'" + Mid(sDate, 1, 2) + "/" + Mid(sDate, 4, 2) +... |
VBA Из паскаля в VBA Program ololo; var a, b, s1, s2:real; begin writeln("введите радиус круга"); readln(a); s1:=3.14*a*a; writeln("введите сторону квадрата"); read(b); s2:=b*b; if s1>s2 then write("Площадь круга больше") else if s2>s1 then write("Площадь квадрата больше") else write("Площади равны"); https://www.cyberforum.ru/ vba/ thread2247538.html |
Генерировать случайные числа по правилу VBA Всем добрым и отзывчивым,добрый вечер) Такая проблема нужен код или подсказка,как сделать это в excel. По нажатию кнопки задавились случайные .ГТ.е. енерируем N количество раз такой алгоритм - Xi, далее Xi^2 ,снова генерируем в новом столбе X , далее X <= Xi^2 сравнение 0 или 1. И это надо проделать K раз т.е.сделать так можно было просто указать количество раз. |
VBA Создание программ с линейной структурой(яблоки)
https://www.cyberforum.ru/ vba/ thread2247293.html Составьте блок-схему и программу на языке VBA для вычисления стоимости некоторого количества (по весу) яблок. Исходные данные: Цена одного килограмма яблок (руб.): 8,5 Стоимость покупки: 19,55 (руб.) Результат: Вес яблок (кг): 2,3 |
-1 / 0 / 0
Регистрация: 18.03.2018
Сообщений: 14
|
|
0 | |
Найти минимальную зарплату за каждый месяц - VBA - Ответ 1239899217.05.2018, 19:52. Показов 1749. Ответов 3
Метки (Все метки)
1. Найти общую зарплату за 2 квартал.
2. Найти разницу между максимальной и минимальной зарплатами в летние месяцы. 3. Найти минимальную зарплату за каждый месяц. что здесь не правильно? не работает Вернуться к обсуждению: Найти минимальную зарплату за каждый месяц VBA
0
|
17.05.2018, 19:52 | |
Готовые ответы и решения:
3
Определить зарплату за каждый месяц Определить среднюю зарплату за каждый месяц Определить среднюю зарплату за каждый месяц Класс "Сотрудники", метод определяющий минимальную зарплату и месяц с минимальной зарплатой |
17.05.2018, 19:52 | |
17.05.2018, 19:52 | |
Помогаю со студенческими работами здесь
0
Найти минимальную и максимальную зарплату Запрос на минимальную зарплату Найти минимальную температуру и среднюю, затем среди всех месяцев определить месяц с минимальной температурой Как подсчитать зарплату за месяц? |